Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #RequireAdmin
- #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
- #AutoIt3Wrapper_icon=ct3.ico
- #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
- #include <Misc.au3>
- $dll = DllOpen("user32.dll")
- HotKeySet("{pgup}", "Start")
- HotKeySet("{pgdn}", "Pause")
- HotKeySet("{HOME}", "init")
- Opt("SendKeyDelay", 1)
- $delay = 20
- While 1
- Sleep(1000)
- WEnd
- Func init()
- SoundPlay(@WindowsDir & "\media\tada.wav", 1)
- sleep(1000)
- Global $aPos = MouseGetPos()
- SoundPlay(@WindowsDir & "\media\tada.wav", 1)
- sleep(1000)
- Global $aPos2 = MouseGetPos()
- sleep(200)
- SoundPlay(@WindowsDir & "\media\tada.wav", 1)
- EndFunc
- Func Start()
- While 1
- MouseMove($aPos[0], $aPos[1], 1) ;von
- Sleep($delay)
- MouseDown("left")
- Sleep($delay)
- MouseMove($aPos2[0], $aPos2[1], 1);nach
- Sleep($delay)
- MouseUp("left")
- Sleep($delay)
- Send("{Enter}")
- Sleep(1)
- Send("{Enter}")
- Sleep($delay)
- WEnd
- EndFunc
- Func Pause()
- While 1
- Sleep(1000)
- WEnd
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement