|
While 1=1
WinActivate("RF Online")
AutoItSetOption ( "SendKeyDownDelay", 1000)
Send("{F1}")
Sleep(1500)
Send("{F2}")
Sleep(1500)
Send("{F3}")
Sleep(1500)
AutoItSetOption ( "SendKeyDownDelay", 5)
Send("{F4}")
Sleep(1000)
$i = 0
AutoItSetOption ( "SendKeyDownDelay", 1000)
While $i <> 60
Send("{F5}")
Sleep(500)
Send("{F6}")
Sleep(500)
$i = $i + 1
WEnd
AutoItSetOption ( "SendKeyDownDelay", 5)
Send("{F4}")
Sleep(1000)
WEnd
Всё это в файл и переименовать в Inanna.au3
|