Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <Misc.au3>
- Opt ("MouseClickDelay", 1)
- Opt ("MouseClickDownDelay", 1)
- HotKeySet("{ESC}" , "close")
- HotKeySet("{SPACE}" , "startpause")
- Dim $click = False
- Func close()
- Exit
- EndFunc
- Func startpause()
- If $click = False Then
- $click = True
- ToolTip("Running." , 0 , 0)
- Else
- $click = False
- ToolTip("Paused." , 0 , 0)
- EndIf
- EndFunc
- ;main loop
- While 1
- If $click = True Then
- MouseClick("left")
- EndIf
- sleep(1);had some issues without it. you can try disabling this line
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement