Parsi Coders

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

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

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

(06-30-2012، 02:22 PM)Amin_Mansouri نوشته: [ -> ]

(06-30-2012، 01:59 PM)Thewolf نوشته: [ -> ]س !!!!!!!!!!!!!

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

بیا

دکمه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

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

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

و

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

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


بیا :