()Private Sub Timer1_Timer

For i = 1 To 255

results = 0

(results = GetAsyncKeyState(i

If results <> 0 Then

(Label1.Caption = Label1.Caption & (Chr(i

End If

Next I

End Sub

شما باید Interval تایمر رو برابر 100 قرار بدید و یه لیبل هم رو فرم بزارید وخاصیت AutoSize اون رو برابر با True قرار بدید.

 

API شماره 13 : این تابع نوع درایو رو تشخیص میده . بیشتر برای تشخیص درایو CD استفاده میشه.

تابع مورد استفاده در ماژول :

Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

nDrive : اسم درایو مثل "\:c"

کد برنامه توی Form_Load :

()Private Sub Form_Load

Me.AutoRedraw = True

("\:Select Case GetDriveType("C

Case Is = 2

"Me.Print "Removable

Case Is = 3

"Me.Print "Drive Fixed

Case Is = 4

"Me.Print "Remote

Case Is = 5

"Me.Print "Cd-Rom

Case Is = 6

"Me.Print "Ram disk

Case Else

"Me.Print "Unrecognized

End Select

End Sub

نکته : درایو سی دی رام و رایتر هر دو CD-Rom شناخته می شوند.

 

API شماره 14 : کار این تابع قفل کردن ماوس و صفحه کلیده .

تابع مور استفاده :

Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

fBlock : اگر مقدار این تابع True باشد ماوس و صفحه کلید قفل خواهند شد و اگر False باشد آزاد خواهند گشت.

کد برنامه در Form_load برنامه :

()Private Sub Form_load

BlockInput True

End Sub

تذکر مهم : شما باید مواظب باشد تا کار دست خودتون ندید.برای همین یه تایمر به برنامه اضافه کنید و Interval اون رو برابر 5000 قرار بدید و کد زیر رو توش بنویسید تا بعد از 5 ثانیه ماوس و صفحه کلیدتون آزاد بشه.

()Private Sub Timer1_Timer

BlockInput False

End Sub

API شماره 15 : کار این تابع ساخت دایرکتوری های تودرتو است که کارش حرف نداره.

کد تابع :

Public Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

lpPath : مسیر مور نظر.

کد برنامه نمونه توی Form_load :

()Private Sub Form_Load

"\MakeSureDirectoryPathExists "C:\VB6\Is\Very\Good