Welcome, guest! Login / Register - Why register?
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
Your Name: Code Language: