Simulace kliknutí myší

Postup:
Declare Sub mouse_event Lib "user32" Alias "mouse_event" _
(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _
ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_ABSOLUTE = &H8000 'absolutní pohyb
Public Const MOUSEEVENTF_LEFTDOWN = &H2 'stisk levého tlačítka
Public Const MOUSEEVENTF_LEFTUP = &H4 'uvolnění levého tlačítka
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 'stisk středního tlačítka
Public Const MOUSEEVENTF_MIDDLEUP = &H40 'uvolnění středního tlačítka
Public Const MOUSEEVENTF_MOVE = &H1 'pohyb myši
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 'stisk pravého tlačítka
Public Const MOUSEEVENTF_RIGHTUP = &H10 'uvolnění pravého tlačítka

Příklady použití:
'Koordináty X a Y se vztahují k obrazovce, ne k formuláři
mouse_event MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, x, y, 0, 0

mouse_event MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, x, y, 0, 0

mouse_event MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, x, y, 0, 0 

Zpět

Autor: The Bozena