تغییر کرسر ماوس ویندوز

با سلام خدمت برنامه نویسان حرفه ای از جمله visual basic نویسان.

برنامه ای که در زیر آمده است می تواند windows curser mouse را تغییر دهد.این کار توسط توابع api در visual basic انجام می شود.  

Private Const OCR_NORMAL = 32512

Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function CopyIcon Lib "user32" (ByVal hIcon As Long) As Long

Dim hCurOld As Long
Dim hCurNew As Long

Private Sub Command1_Click()
  hCurOld = GetCursor()
  hCurNew = CopyIcon(Picture1.Picture)
  SetSystemCursor hCurNew, OCR_NORMAL
End Sub

Private Sub Form_Load()

End Sub

دانلود

 

بدست آوردن ورژن ویندوز (windows version)

شاید شما به برنامه هایی برخورده باشید که فقط بر روی یک ورژن خاص windows اجرا شوند.برای اعمال این محدودیت در برنامه هایی که  visual basic نوشته می شوند می توان از تابع api زیر استفاده کرد.به این صورت که ابتدا با این تابع نسخه یا ویرایش windows را پیدا کرده و سپس با یک شرط در برنامه می توان ورژن ویندوز را چک کرده و از اجرا برنامه در یک نسخه خاص windows جلوگیری کرد. 

 Private Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajorVersion As Long
  dwMinorVersion As Long
  dwBuildNumber As Long
  dwPlatformId As Long
  szCSDVersion As String * 128
End Type

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
  Dim Info As OSVERSIONINFO, strOs As String
  Dim Retval As Long, Result As String
 
  Me.AutoRedraw = True
  Info.dwOSVersionInfoSize = Len(Info)
  Retval = GetVersionEx(Info)
  If Retval = 0 Then MsgBox "Error": Exit Sub
  Select Case Info.dwPlatformId
     Case 0
        strOs = "Windows 3.x"
     Case 1
       If (Info.dwMinorVersion = 0) Then
         strOs = "Windows 95"
       End If
       If (Info.dwMinorVersion = 10) Then
         strOs = "Windows 98"
       End If
       If (Info.dwMinorVersion = 90) Then
         strOs = "Windows ME"
       End If
     Case 2
       If (Info.dwMajorVersion < 5) Then
         strOs = "Windows NT"
       End If
       If (Info.dwMajorVersion = 5 And Info.dwMinorVersion = 0) Then
         strOs = "Windows 2K"
       End If
       If (Info.dwMajorVersion = 5 And Info.dwMinorVersion = 1) Then
         strOs = "Windows XP"
       End If
  End Select
  Text1.Text = strOs
  Result = Str$(Info.dwMajorVersion) + "." + LTrim(Str(Info.dwMinorVersion))
  Text2.Text = Result
End Sub

 

 

دانلود 

 

hibernet کردن سیستم

امروز تابع api زیر رو برای هایبرنت کردن سیستم در وی بی براتون می گزارم.امیدوارم مورد استفاده صحیح قرار گیرد. دانلود

Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Long, ByVal ForceCritical As Long, ByVal DisableWakeEvent As Long) As Long

 ()Private Sub Form_Load

  SetSuspendState 1, 0, 0
End Sub

حذف فایل بدون دادن اخطار

با تابع ای پی آی که در ویژوال بیسیک نوشته شده و در زیر لینک آن قرار داده شده است می توان یک فایل را حذف نمود بدون آنکه یوزر متوجه حذف فایل شود فقط کافیست کدهای زیر را در فرم visual basic وارد کنید.

دانلود

Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

( )Private Sub Form_Load

   DeleteFile "C:\hossein.ini"End Sub

به همین سادگی