[Amin_Mansouri]

هر کلیدی که فشار بدی کدشو بهت میده


بیا :

کد:

Dim result As Integer

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()

For i = 1 To 255

result = 0

result = GetAsyncKeyState(i)

If result = -32767 Then

MsgBox (i)

End If

Next i

End Sub