Download & Install AutoIt Here
The code is below, Heavily commented. Should have all the information you need. If you need any further help, Post here, or PM me.
Start > Program Files > AutoIt > SciTE
Copy below, Paste into SciTE
File > Save As > Bot.
au3
ALWAYS remember to save your script as
au3
or else you wont be able to run it.
Code:
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1") ;Creates a winhttprequest object, set to the $oHTTP variable.
$oUsername = "" ;Change this to your username
$oPassword = "" ;Change this to your password
$oThreadID = "31477931" ;Change this to the thread to post in
$oMessage = "Bump" ;Change this to the "Bump" message
$i = 0 ;Ignore this, Until youve read further
$oSauce = HTTPRequest($oHTTP, "POST", "http://login.gaiaonline.com/gaia/login.php", "username=" & $oUsername & "&password=" & $oPassword) ;This makes a HTTPRequest, used to Login, Returns the page source under the variable $oSauce
If StringInStr($oSauce, "blocked") Then ;Thisll be called if the string "blocked" is in $oSauce, Meaning the accounts banned.
ConsoleWrite("+> Account " & $oUsername & " is banned." & @CRLF) ;If banned, Then consolewrite
ElseIf StringInStr($oSauce, "invalid") Then ;Same for invalid user/pass
ConsoleWrite("+> Wrong username/password entered." & @CRLF) ;Same for invalid user/pass
Else ;"Else", Meaning, if invalid, or blocked ISNT in $oSauce, then itll do whatever is in the "Else" section.
ConsoleWrite("+> Logged in successfully." & @CRLF) ;ConsoleWrite a successful login
While 1 ;Start a While...WEnd loop. While 1, Meaning, While 1 = 1, Meaning, Infinite loop, Because 1 will always be 1
$i += 1 ;Remember the $i = 0 at the start? Basically, this line $i += 1, add 1 to that $i. So, everytime this is called, itll add to $i
$oSauce = HTTPRequest($oHTTP, "GET", "http://www.gaiaonline.com/forum/compose/entry/new/" & $oThreadID) ;Thisll make a GET request, to get the page source, to strip the nonce from
$oNonce = __StringBetween($oSauce, '<input type="hidden" name="nonce" value="', '" />') ;Thisll give us the nonce, Needed to make a post
HTTPRequest($oHTTP, "POST", "http://www.gaiaonline.com/forum/compose/entry/new/" & $oThreadID, "message=" & $oMessage & "&nonce=" & $oNonce & "&action_submit=submit") ;Thisll send a POST request, with our message & nonce. This is the part that "Posts Bump" in the thread
ConsoleWrite("+> Posted " & $i & " time(s)." & @CRLF) ;Thisll just consolewrite telling us its posted X times
For $z = 1 To 60 ;For...Next loop, $z = 1 To 60, Meaning, whatever is between the For...Next, will loop 60 times
ConsoleWrite("+> Sleeping " & $z & " seconds." & @CRLF) ;ConsoleWrite every second with how long its waited. After 60 loops, itll end
Sleep(1000) ;"Waits" 1 second before continuing
Next ;Closing off the For...Next loop
WEnd ;Closing off the While...WEnd loop
EndIf ;Closing off the If...Then statement
; The functions below this line, You should look at, But I wont explain what it does. If youve understood the above, you should be able to understand whats below.
; If not. Practice practice practice. Lol@3x practice. Anyway. HAVEFUN<33
Func HTTPRequest($oHTTP, $oMethod, $oURL, $oData = "")
$oHTTP.Open($oMethod, $oURL, False)
If $oMethod = "POST" Then $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.Send($oData)
Return $oHTTP.ResponseText
EndFunc
Func __StringBetween($s, $from, $to)
$x = StringInStr($s, $from) + StringLen($from)
$y = StringInStr(StringTrimLeft($s, $x), $to)
Return StringMid($s, $x, $y)
EndFunc Also, It will be alot easier to read it, if your reading it through SciTE, due to the syntax highlighting.
[code] tags just dont cut it, And they break my Tabs. D<< Loloololo.
Linear Mode
