simulating mouse clicks?

Mac OSX specific forum
PHP
User
User
Posts: 63
Joined: Sat Sep 10, 2005 5:38 pm

simulating mouse clicks?

Post by PHP »

hi,

how can i simulate mouse clicks?

thanks!
User avatar
Shardik
Addict
Addict
Posts: 1989
Joined: Thu Apr 21, 2005 2:38 pm
Location: Germany

Re: simulating mouse clicks?

Post by Shardik »

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
Post Reply