تحريك المؤشرة باستخدام الكي بورد " اكواد برأيي هامة"

لا ادري اذا سبقني احد و كتب موضوعا مماثلا و لكن تقبلوه مني

اولا هذه هي الاكواد قبل ما انساها:

في الفورم اولا في قسم التصريحات العامة نضع مايلي:

 

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
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_RIGHTDOWN = &H8 '  right button down
Const MOUSEEVENTF_RIGHTUP = &H10 '  right button up

ثم سنقوم باضافة نوع جديد من المتغيرات:

 

Private Type POINTAPI
	x As Long
	y As Long
End Type

الان سوف نقوم بالاعلان عن بعض المتغيرات :

 

Dim XY As POINTAPI

Dim C As Integer

الان عند تحميل النافذة سنضيف الاكواد التالية بعد اضافة كومبو بوكس الى الفورم لملئها بالارقام من 1 الى 30 مثلا:

 

Private Sub Form_Load()
C = 2
For C = 2 To 30
	combox.AddItem C
	Next
End Sub

ثم سوف نقوم باضافة عنصر المؤقت و نضبط الانتر فال بالرقم 1

 

Private Sub Timer1_Timer()
On Error Resume Next

Dim cButt As Long, dwEI As Long
C = combox.Text

GetCursorPos XY

If GetAsyncKeyState(vbKeyK) = -32767 Then SetCursorPos XY.x - C, XY.y		'"  "
If GetAsyncKeyState(vbKeyO) = -32767 Then SetCursorPos XY.x, XY.y - C		  '" [Up] "
If GetAsyncKeyState(186) = -32767 Then SetCursorPos XY.x + C, XY.y		' "  "
If GetAsyncKeyState(vbKeyL) = -32767 Then SetCursorPos XY.x, XY.y + C		' " [Down] "

If GetAsyncKeyState(vbKeyI) = -32767 Then mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
 DoEvents
If GetAsyncKeyState(vbKeyP) = -32767 Then mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0&, 0&, cButt, dwEI
 DoEvents

End Sub

هنا قمنا باختبار الأزرار التي نقرها المستخدم فاذا نقر حرف ال خ عندها تتحرك الماوس الى الاعلى

و اذا نقر على حرف ال م تتحرك الماوس الى الاسفل

و اذا نقر على حرف ال ن عندها يتحرك الى اليسار

واذا نفر على حرف ال ك تتحرك الى اليسار

و ايضا حرف ال ه يحاكي نقر الزر اليساري

و الحرف ح يحاكي نقرة الزر اليميني