Global $Paused
Hotkeyset("{PAUSE}","Pause")
Hotkeyset("{END}","stop")
$text1 = InputBox("''", "" & @CRLF & "" & @CRLF & @CRLF & "" & @CRLF & @CRLF & "" & @CRLF & @CRLF & "" ,""," M999","480","240")
Select
Case @Error = 0 ;OK - The string returned is valid
Case @Error = 1 ;The Cancel button was pushed
stop ()
Case @Error = 3 ;The InputBox failed to open
stop ()
EndSelect
$text2 = InputBox("''","" & @CRLF & @CRLF & "" & @CRLF & @CRLF & "" & @CRLF & @CRLF & "" & @CRLF & @CRLF & "" @CRLF &,"6000"," M5","480","240")
Select
Case @Error = 0 ;OK - The string returned is valid
Case @Error = 1 ;The Cancel button was pushed
stop ()
Case @Error = 3 ;The InputBox failed to open
stop ()
EndSelect
Go()
Func Go()
For $count = 1 To 2
ToolTip ("Active", "Default", "Default")
ControlSend ($text1, "", "", "{F1}")
Sleep (500)
ControlSend ($text1, "", "","{F2}")
Sleep($text2)
$count=$count - 1
Next
stop()
EndFunc
Func Pause()
$Paused = NOT $Paused
While $Paused
ToolTip ("Paused", "Default", "Default")
WEnd
EndFunc
Func stop()
Exit
EndFunc
;
Edited by T4EAxel, 29 May 2012 - 09:52 PM.




This topic is locked


