hi,
how can i simulate mouse clicks?
thanks!
simulating mouse clicks?
Re: simulating mouse clicks?
Code: Select all
ImportC ""
CFRelease(CFTypeRef.L)
CGEventCreateMouseEvent(EventSourceRef.L, MouseEventType.L, x.F, y.F, MouseButton.L)
CGEventPost(CGEventTapLoacation.L, CGEventRef.L)
EndImport
#kCGMouseButtonLeft = 0
#kCGEventLeftMouseDown = 1
#kCGEventLeftMouseUp = 2
#kCGHIDEventTap = 0
OpenWindow(0, 200, 100, 300, 70, "ButtonGadgets")
ButtonGadget(0, 10, 10, WindowWidth(0) - 20, 20, "Click me to activate Button below")
ButtonGadget(1, 10, 40, WindowWidth(0) - 20, 20, "Click me to activate me")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Debug "Upper button pressed"
EventRef = CGEventCreateMouseEvent(0, #kCGEventLeftMouseDown, 340.0, 170.0, #kCGMouseButtonLeft)
CGEventPost(#kCGHIDEventTap, EventRef)
CFRelease(EventRef)
EventRef = CGEventCreateMouseEvent(0, #kCGEventLeftMouseUp, 340.0, 170.0, #kCGMouseButtonLeft)
CGEventPost(#kCGHIDEventTap, EventRef)
CFRelease(EventRef)
Case 1
Debug "Lower button pressed"
EndSelect
EndSelect
ForEver