;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Do
$pass = InputBox ("Password", "Please enter your password","","*",180,150)
If $pass <> "1234" Then
MsgBox (0,"Warning", "Password Invalid" & @CRLF & "")
EndIf
Until $pass == "1234"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MsgBox (0,"Credit", "Created by lee90 aka ???? (BETA)")
WinActivate("notepad.exe", "")
WinMove("notepad.exe", "", 0, 0)
Global $UnPaused
HotKeySet("{F4}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While 1
Sleep(100)
ToolTip("Press F4 to start.. Esc to quit..",0,0)
WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func TogglePause()
$UnPaused = NOT $UnPaused
While $UnPaused
ToolTip("Press F4 to Pause Credit: lee90 aka xxx",0,0)
AutoItSetOption ("MouseClickDelay",100)
MouseClick("left", 320, 433, 1, 0)
MouseClick("left", 186, 164, 1, 0)
MouseClick("left", 186, 460, 1, 0)
MouseClick("left", 740, 154, 1, 0)
MouseClick("left", 465, 154, 1, 0)
MouseClick("left", 203, 333, 1, 0)
MouseClick("left", 205, 343, 1, 0)
Sleep(100)
WEnd
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func Terminate()
Exit 0
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|