[Thewolf]

خیلی ممنون دوست عزیز

خب این کد ج داد، اما میشه درباره این کد توضیح بدید.

و اینکه چه طور می تونم واسه کلیدهای دیگه هم از این کد استفاده کنم.

[Ghoghnus]

س !!!!!!!!!!!!!

کسی از دوستان نمی تونه این مشکل من رو حل کنه ؟

بیا

دکمهf12 بزن فرمتو نمایش میده

کد:

Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
If i = "123" Then Me.Show
End If
Next i
End Sub

یه تایمر روی فرمت بزار تایم هم بده روی 1

امین چقد کد هارا سخت کردی!میشد مثل کیلاگر رفتار کرد!فکر کنم اونطوری کدهاش خوانا تر میشد!

[Thewolf]

دوستان می توانید درباره این کدها توضیح بدید.

و

بگید چه طور می شه واسه کلیدهای دیگه صفحه کلید نیز اینکار رو کرد.

[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