PureBasic Forums - English

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