RosettaCodeData/Task/Simulate-input-Mouse/PureBasic/simulate-input-mouse-1.basic

14 lines
260 B
Plaintext

Macro Click()
mouse_event_(#MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
mouse_event_(#MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
EndMacro
; Click at the current location
Click()
Delay(1000) ; Wait a second
; Move to a new location and click it
SetCursorPos_(50, 50)
Click()