Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted by Tarcisio ( 12 years ago )
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("BOT BY APO", 513, 177, 192, 124)
Global $Label1 = GUICtrlCreateLabel("F5 = COMENZAR(START)", 40, 32, 392, 39)
GUICtrlSetFont($Label1, 24, 800, 0, "MS Serif")
Global $Label2 = GUICtrlCreateLabel("ESC= TERMINAR(END BOT)", 40, 104, 435, 39)
GUICtrlSetFont($Label2, 24, 800, 0, "MS Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{F5}","START")
HotKeySet("{Esc}","End")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func START()
MSGBOX(0,"welcome","F5 START BOT OR ESC TO EXIT BOT")
$var =99
while $var <>1
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
sleep(3000)
Send("{1}")
Send("{1}")
Send("{1}")
Send("{1}")
Send("{1}")
sleep(3000)
Send("{4}")
Send("{4}")
Send("{4}")
Send("{4}")
Send("{4}")
Send("{4}")
sleep(3000)
$var = $var- 1
Wend
endfunc
Func End()
exit
endfunc
Revise this Paste
Parent: 73704