طلب طريقة الضغط على الفأرة برمجيا

يجب ان تعرف الاحداثيات x y

تقليد حدث النقر في التعاريف ضع التالي

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()
    Dim a
    a = SetCursorPos(0, 0)

    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
    DoEvents

End Sub

حيث 0,0 تمثل الاحداثيات غيرها حيث سيتحرك الماوس لها ومن ثم يضغط