Advertisement
ZxkH

Untitled

Feb 7th, 2024
13
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.31 KB | None | 0 0
  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6.  
  7. Opt("GUIOnEventMode", 1)
  8.  
  9. Global $SautoClickerWindow, $Btn_Start, $Btn_Stop, $Label_Speed, $Input_Speed
  10.  
  11. HotKeySet("{F1}", "ToggleClicker")
  12.  
  13. $SautoClickerWindow = GUICreate("AutoClicker Settings", 200, 120, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_CAPTION))
  14. GUISetOnEvent($GUI_EVENT_CLOSE, "CloseClicker")
  15.  
  16. $Btn_Start = GUICtrlCreateButton("Start", 30, 80, 60, 30)
  17. GUICtrlSetOnEvent($Btn_Start, "StartClicker")
  18.  
  19. $Btn_Stop = GUICtrlCreateButton("Stop", 110, 80, 60, 30)
  20. GUICtrlSetOnEvent($Btn_Stop, "StopClicker")
  21.  
  22. $Label_Speed = GUICtrlCreateLabel("Click Speed (ms):", 20, 20, 90, 20)
  23. $Input_Speed = GUICtrlCreateInput("500", 120, 18, 50, 20)
  24.  
  25. GUISetState(@SW_SHOW, $SautoClickerWindow)
  26.  
  27. While 1
  28. Sleep(100)
  29. WEnd
  30.  
  31. Func StartClicker()
  32. Local $speed = GUICtrlRead($Input_Speed)
  33. MsgBox(0, "Starting Clicker", "Clicker started with speed: " & $speed & "ms")
  34. ; Implement your clicker logic here
  35. EndFunc
  36.  
  37. Func StopClicker()
  38. MsgBox(0, "Stopping Clicker", "Clicker stopped")
  39. ; Implement your clicker stop logic here
  40. EndFunc
  41.  
  42. Func CloseClicker()
  43. Exit
  44. EndFunc
  45.  
  46. Func ToggleClicker()
  47. ; Implement your toggle logic here
  48. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement