Xyberviri

holdtoclick.au3

Oct 18th, 2019 (edited)
796
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.56 KB | None | 0 0
  1. ; hold middle mouse button to auto click the left mouse button
  2. ; pause key to pause
  3. ; Shift+pause to terminate
  4. Global $Paused
  5. HotKeySet("{PAUSE}", "TogglePause")
  6. HotKeySet("+{PAUSE}", "Terminate")
  7.  
  8. #Include <Misc.au3>
  9. While 1
  10. $end = 1
  11.  
  12. while _IsPressed(04)
  13. mousedown("left")
  14. mouseup("left")
  15. sleep(10)
  16. tooltip("clicking",0,0)
  17.     wend
  18.   tooltip("",0,0)
  19. WEnd
  20.  
  21. Func TogglePause()
  22.   $Paused = NOT $Paused
  23.   While $Paused
  24.     sleep(100)
  25.     ToolTip('Script is "Paused"',0,0)
  26.   WEnd
  27.   ToolTip("")
  28. EndFunc
  29.  
  30. Func Terminate()
  31.     Exit 0
  32. EndFunc
Add Comment
Please, Sign In to add comment