[AUTOIT] ValBot 08 - By G3

**|G3|** · 05-14-2008, 04:31 PM

Well this is the source code of my Valentine's bot. It's made in AUTOIT.

And it might be a little buggy but it worked fine last year, I think..
Of course it's outdated..

Also the GG auth is shit and you should make your own 'cause it's easy to bypass. For the auth to work you need 150 posts.

Main file:
"ValBot-G3.au3"

Code:

;MADE BY G3 @ GAMINGGUTTER.COM
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

#include <GUIConstants.au3>

Opt("TrayAutoPause",0)
Opt("TrayOnEventMode",1)

TraySetOnEvent(-8,"SpecialEvent")

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Valentines Bot - |G3| - Gaiaonline", 323, 380, 218, 140)
$Label3 = GUICtrlCreateLabel("Status: Idle", 0, 360, 321, 17)
$Tab1 = GUICtrlCreateTab(0, 8, 321, 345)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Login")
$Group1 = GUICtrlCreateGroup("Gaiaonline Login", 54, 214, 209, 129)
$Input3 = GUICtrlCreateInput("", 126, 238, 129, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input4 = GUICtrlCreateInput("", 126, 270, 129, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2 = GUICtrlCreateButton("Gaiaonline Login", 126, 302, 129, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label6 = GUICtrlCreateLabel("Username", 69, 237, 52, 17)
$Label5 = GUICtrlCreateLabel("Password", 72, 266, 50, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label7 = GUICtrlCreateLabel("Made by G3 @ Gaminggutter.com", 128, 8, 165, 17)
$Group2 = GUICtrlCreateGroup("Gaming Gutter Login", 54, 78, 209, 129)
$Input1 = GUICtrlCreateInput("", 118, 102, 137, 21)
$Input2 = GUICtrlCreateInput("", 118, 134, 137, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("Gaming Gutter Login", 118, 166, 137, 25)
$Label4 = GUICtrlCreateLabel("Password", 62, 134, 50, 17)
$Label1 = GUICtrlCreateLabel("Username", 62, 102, 52, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button5 = GUICtrlCreateButton("Load Settings From .ini", 103, 44, 121, 25, 0)
$TabSheet2 = GUICtrlCreateTabItem("Main")
$Button3 = GUICtrlCreateButton("Start", 25, 289, 105, 33, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$List1 = GUICtrlCreateList("", 16, 40, 281, 214)
$Group3 = GUICtrlCreateGroup("People Kissed", 192, 280, 97, 41)
$Label2 = GUICtrlCreateLabel("0", 200, 296, 10, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###




$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_MINIMIZE
            GuiSetState(@SW_HIDE)
            TraySetState(1)
            TraySetToolTip ("ValBot- double click here to restore")
            TrayTip("ValBot", "Double click the icon to restore.", 5, 1)
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Button1
        GUICtrlSetData($Label3, "Status: Logging in.")
        $gglog = GGLogin(GUICtrlRead($input1), GUICtrlRead($input2))
        If $gglog = "Failed" Then
            MsgBox(1, "Login Failed!!!!", "Login Failed")
            GUICtrlSetData($Label3, "Status: Login failed.")
        ElseIf $gglog = "Success" Then
            GUICtrlSetData($Label3, "Status: Logged in. Now login into Gaia")
            GUICtrlSetState($Button2, $GUI_ENABLE)
            GUICtrlSetState($input3, $GUI_ENABLE)
            GUICtrlSetState($Input4, $GUI_ENABLE)
        EndIf
    Case $Button5
        GUICtrlSetData($input1, IniRead("settings.ini", "GamingGutter", "username", "NotFound"))
        GUICtrlSetData($input2, IniRead("settings.ini", "GamingGutter", "password", "NotFound"))
        GUICtrlSetData($input3, IniRead("settings.ini", "Gaia", "username", "NotFound"))
        GUICtrlSetData($input4, IniRead("settings.ini", "Gaia", "password", "NotFound"))
        $sfrom = IniRead("settings.ini", "MillisecondsToWait", "from", "NotFound")
        $sto = IniRead("settings.ini", "MillisecondsToWait", "to", "NotFound")
    Case $Button2
        GUICtrlSetData($Label3, "Status: Logging in.")
        $gaialog = GaiaLogin(GUICtrlRead($input3), GUICtrlRead($input4))
        If $gaialog = "Failed" Then
            MsgBox(1, "Login Failed!!!!", "Login Failed")
            GUICtrlSetData($Label3, "Status: Login failed.")
        ElseIf $gglog = "Success" Then
            GUICtrlSetData($Label3, "Status: Logged in. Now you can switch to the main tab.")
            GUICtrlSetState($Button3, $GUI_ENABLE)        
        EndIf
    Case $Button3
            GUICtrlSetState($Button3, $GUI_DISABLE)        
            $gforumL = ""
            While 1
                If $gforumL = "" Then
                    $gReferer = "http://www.gaiaonline.com/event/valentines2008"
                Else
                    $gReferer = $gforumL
                EndIf
                GUICtrlSetData($Label3, "Status: Going to thread.")
                $strHTML = WrapperG("GET", "http://www.gaiaonline.com/forum/f.327", "", $gReferer)
                $gforumi1 = __StringBetween($strHTML, '<td class="topic-new title">', 'class=""')
                $gforumL = __StringBetween($gforumi1, '</a> <a href="', '/" ')
                
                $strHTML = WrapperG("GET", "http://www.gaiaonline.com" & $gforumL, "", "http://www.gaiaonline.com/forum/f.327")
                
                GUICtrlSetData($Label3, "Status: Getting person to kiss.")
                $gkissI1 = __StringBetween($strHTML, '<div id="post-1" ', 'alt="Kiss me!" wi')
                $gkissI2 = __StringBetween($gkissI1, '<div class="vday2008buttons">', "<img src=")
                $gkissO = __StringBetween($gkissI2, '"/', '">')
                
                GUICtrlSetData($Label3, "Status: Kissing")
                $strHTML = WrapperG("GET", "http://www.gaiaonline.com/" & $gkissO, "", "http://www.gaiaonline.com" & $gforumL)
                
                GUICtrlSetData($Label3, "Status: Checking if kiss is successful.")
                If StringInStr($strHTML, "<p>You already kissed this person. T") Then
                    GUICtrlSetData($List1, "[" & @HOUR & ":" & @MIN & ":" & @SEC & "] - Already kissed this noob. Trying again. ")
                ElseIf StringInStr($strHTML, '<div id="kissresponse">') Then
                    If StringInStr($strHTML, "<b>Congratulations!</b><br>") Then
                        $Item11 = __StringBetween($strHTML, "<b>Congratulations!</b><br>", "<p><i>")
                        $Item12 = __StringBetween($Item11, "<strong>", "</strong>")
                        GUICtrlSetData($List1, "[" & @HOUR & ":" & @MIN & ":" & @SEC & "] - Got item: " & $Item12)
                    EndIf
                    GUICtrlSetData($List1, "[" & @HOUR & ":" & @MIN & ":" & @SEC & "] - Kissed some noob.")
                    GUICtrlSetData($label2, GUICtrlRead($label2) + 1)
                    $millsleep = Random($sfrom, $sto, 1)
                    GUICtrlSetData($Label3, "Status: Waiting: " & $millsleep & " milliseconds.")
                    Sleep($millsleep)
                ElseIf StringInStr($strHTML, "Whoah, slow down there -- you don't want to get a bad reputation!") Then
                    GUICtrlSetData($List1, "[" & @HOUR & ":" & @MIN & ":" & @SEC & "] - Kissed too soon. WOAH SLOW DOWN THERE TIGER.")
                Else
                    GUICtrlSetData($List1, "[" & @HOUR & ":" & @MIN & ":" & @SEC & "] - Something else happened. Trying again.")
                EndIf
            WEnd                
EndSwitch

WEnd
;MADE BY G3 @ GAMINGGUTTER.COM
Func __StringBetween($s, $from, $to)
    $x = StringInStr($s, $from) + StringLen($from)
    $y = StringInStr(StringTrimLeft($s, $x), $to)
    Return StringMid($s, $x, $y)
EndFunc

Func GGLogin($username, $password)
    WrapperG("POST", "http://www.gaminggutter.com/forum/login.php?do=login", "vb_login_username=" & $username & "&cookieuser=1&vb_login_password=" & $password & "&s=&do=login", "http://www.gaminggutter.com")
    $strHTML = WrapperG("GET", "http://www.gaminggutter.com/forum/usercp.php", "", "http://www.gaminggutter.com/forum/")
            If StringInStr($strHTML, "You are not logged in or you do not have permission to access this page.") Then
                Return "Failed"
            ElseIf StringInStr($strHTML, '">Your Profile</a></') Then
                $check1 = __StringBetween($strHTML, '>Your Control Panel</a></td></tr> <tr><td class="thead"><a href="', '">Your Profile</a></')
                $strHTML = WrapperG("GET", "http://www.gaminggutter.com/forum/" & $check1, "", "http://www.gaminggutter.com/forum/usercp.php")
                $check2 = __StringBetween($strHTML, '<span class="shade">Total Posts:</span> ', "</li> <li><span ")
                $check3 = StringReplace($check2, ",", "")
                If $check3 < "150" Then 
                    MsgBox(0, "Naughty", "You don't have 150 posts. How did you even get this?")
                    Exit
                Else 
                    Return "Success"
                EndIf
            EndIf
EndFunc

Func GaiaLogin($username, $password)
    $frob = WrapperG("GET", "http://www.gaiaonline.com", "", "http://www.gaiaonline.com")
    $frob2 = __StringBetween($frob, '<input type="hidden" name="frob" value="', '" />')
    WrapperG("POST", "http://login.gaiaonline.com/gaia/login.php", "username=" & $username & "&password=" & $password & "&x=28&y=8&submit=Login&oldindex=true&frob=" & $frob2, "http://gaiaonline.com/")
    $strHTML = WrapperG("GET", "http://www.gaiaonline.com/forum", "", "http://www.gaiaonline.com")
    If StringInStr($strHTML, '<li class="gold" title="Gaia Gold Amount"><span c') Then
        $strHTML = WrapperG("GET", "http://www.gaminggutter.com/forum/", "", "http://www.gaminggutter.com/")
        If StringInStr($strHTML, '<div class="smallfont"> <strong>Welcome, ') Then
            Return "Success"
        Else
            Exit
        EndIf
    Else
        Return "Failed"
    EndIf
EndFunc

Func WrapperG($oMethod, $oURL, $oData, $oReferer)
    $oHTTP.Open($oMethod, $oURL, False)
    $oHTTP.SetRequestHeader ("User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.12")
    $oHTTP.SetRequestHeader ("Referer", $oReferer)
    If $oMethod = "POST" Then $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    $oHTTP.Send($oData)
    Return $oHTTP.ResponseText
EndFunc

Func MyErrFunc()
    SetError(1)
EndFunc   ;==>MyErrFunc

Func SpecialEvent()
    GuiSetState(@SW_Show)
EndFunc
;MADE BY G3 @ GAMINGGUTTER.COM

And this is how the 'settings.ini' file should look like:

Code:

[GamingGutter]
username=|g3|
password=asdasd

[Gaia]
username=asdasd
password=asdasd

[MillisecondsToWait]
from=120000
to=130000

**Cyrus** · 05-14-2008, 04:48 PM

Thanks Mayne. More Autoit codes for me to mess around with since Doctor never got back to me. I think I need to get on MSN. Anyway, plus rep.

~~*Boots And Braces*~~ · 05-14-2008, 07:04 PM

I doubt i will use this but w.e

+rep for being the most 1337 person on GG

EDIT:

i cant "/ i need to spread it around before i give it to you again luls.

Doctor · 05-14-2008, 07:17 PM

Quote:

Originally Posted by Cyrus the Virus

Thanks Mayne. More Autoit codes for me to mess around with since Doctor never got back to me. I think I need to get on MSN. Anyway, plus rep.

ME? When he said he was posting this, I told him specifically, That you would most likely be the only one benefiting from the sauce. Lulz.

**Fewmitz** · 05-14-2008, 07:57 PM

Quote:

Originally Posted by Doctor

ME? When he said he was posting this, I told him specifically, That you would most likely be the only one benefiting from the sauce. Lulz.

Hey, I might look over it.

Doctor · 05-16-2008, 06:03 AM

Quote:

Originally Posted by Fewmitz

Hey, I might look over it.

Might being the operative word.

DBG · 09-04-2008, 10:37 AM

Thanks, I will 100% use this =). I've always thought I could code some simple bots for most of Gaia, and now I have some people I can at least knock ideas around with and know I won't get banned just for brainstorming (heh try talking about botting on the official site, INSTABAN of course).