أريد كود يقلد حدث النقر على المفاتيح

اعتقد يفيدك الكود التالي :

sendkeys "keyname"

for example:

sendkey "{enter}"

في هذه الحالة قد تكون الدالة keyb_event أفضل

http://allapi.mentalis.org/apilist/keyb_event.shtml

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
'''''''''''''
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Command1_Click()
'End
Text1.Text = "555"
End Sub

Private Sub Command2_Click()
Dim a
a = SetCursorPos(Text1, Text2)
'ÍÏË ÇáäÞÑ
'Do
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
DoEvents
'Loop
End Sub

ihsan_ahmed كتب:

اعتقد يفيدك الكود التالي :

sendkeys "keyname"

for example:

sendkey "{enter}"

أشكرك أخي بالفعل هذا يعمل لكن لا يزال ناقص

إني استخدمه مع تايمر يتكرر كل فترة زمنية

وأريد استخدامه بواسطة مراقبة المفاتيح مثلاً في حال النقر على مفتاح 1 أو A يقوم بتنفيذ عملية ي

عني اريد مراقبة نقرات المفاتيح على النافذة المفعلة لتخديد المهمة

وشكراً

أين الشباب

DreamNet كتب:

الحل الأنسب لمراقبة الكيبورد هو عمل hook للكيبورد

لو بحثت جيدا في المنتدى لوجدت ضالتك

/index.php?showtopic=78842

بالتوفيق

نعم أخي تمام أنه يعمل بشكل جيد لكن بصراحة أصبحت فكرتي أبعد من استخدامه في لعبة ( تراينر )

وكان هناك بعض الصعوبات فهل لهذا حل

استخدام CTRL+F1 أو SHIFT+F2 الخ

إنه لا يعطيني إلا رقم مفتاح واحد لا تتغير قيمته عند نقر مفتاحين

يعطيني رقم المفتاح الأخير فقط

abudawoodd كتب:

استخدام CTRL+F1 أو SHIFT+F2 الخ

بالمناسبة فكرة الـ Trainer تدور حول تثبيت و تغيير قيم بالذاكرة و ليس أرسال الشفرات للعبة (أبحث هنا بقسم الـ VB6 و قسمى البرمجة بلغة التجميع و قسم برمجة الالعاب و ستجد مواضيع عن الـ Trainers بعون الله).