AW: Sendkeys, aber Mouseclick senden
19.01.2021 09:42:07
Nepumuk
Hallo Klaus,
so:
Option Explicit
Private Declare PtrSafe Sub mouse_event Lib "user32.dll" ( _
ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As LongPtr)
Private Declare PtrSafe Function SetCursorPos Lib "user32.dll" ( _
ByVal X As Long, _
ByVal Y As Long) As Long
Private Const MOUSEEVENT_LEFTDOWN As Long = &H2
Private Const MOUSEEVENT_LEFTUP As Long = &H4
Public Sub Test()
Call MouseClick(500, 150)
End Sub
Private Sub MouseClick(ByVal pvlngXPos As Long, ByVal pvlngYPos As Long)
Call SetCursorPos(pvlngXPos, pvlngYPos)
Call mouse_event(MOUSEEVENT_LEFTDOWN, 0&, 0&, 0&, 0)
Call mouse_event(MOUSEEVENT_LEFTUP, 0&, 0&, 0&, 0)
End Sub
Gruß
Nepumuk