Advertisement
Guest User

Untitled

a guest
Jun 8th, 2016
213
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.54 KB | None | 0 0
  1. #include <Misc.au3>
  2.  
  3. Opt ("MouseClickDelay", 1)
  4. Opt ("MouseClickDownDelay", 1)
  5.  
  6. HotKeySet("{ESC}" , "close")
  7. HotKeySet("{SPACE}" , "startpause")
  8.  
  9. Dim $click = False
  10.  
  11. Func close()
  12. Exit
  13. EndFunc
  14.  
  15. Func startpause()
  16. If $click = False Then
  17. $click = True
  18. ToolTip("Running." , 0 , 0)
  19. Else
  20. $click = False
  21. ToolTip("Paused." , 0 , 0)
  22. EndIf
  23. EndFunc
  24.  
  25. ;main loop
  26. While 1
  27. If $click = True Then
  28. MouseClick("left")
  29. EndIf
  30. sleep(1);had some issues without it. you can try disabling this line
  31. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement