[VB6] Gaia Online Refresher

~~*Archon*~~ · 07-28-2009, 11:37 AM

Code:

Dim HTML As String, sToken As String, sSID As String, sFrob As String, Gold As Long, Gold2 As Long, Link(0 To 59) As String

Private Sub chkProxy_Click()
    If chkProxy.Value = 1 Then
        chkProxy.Value = 2
        frmMain.Height = 4275
    Else
        frmMain.Height = 3780
    End If
End Sub

Private Sub chkTray_Click()
    If chkTray.Value = 1 Then
        chkTray.Value = 2
    End If
End Sub

Private Sub cmdLogin_Click()
    frmMain.Height = 3780
    txtGaiaUsername.Enabled = False
    txtGaiaPassword.Enabled = False
    cmdLogin.Enabled = False
    chkProxy.Enabled = False
    If chkProxy.Value = 2 Then
        HTML = GW.GetWrapper("http://www.gaiaonline.com/", , txtProxy, txtServer)
    Else
        HTML = GW.GetWrapper("http://www.gaiaonline.com/")
    End If
    lblStatus = "Getting values..."
sToken = Functions.GSB(sHTML, "<input type=" & Chr(34) & "hidden" & Chr(34) & " name=" & Chr(34) & "token" & Chr(34) & " value=" & Chr(34), Chr(34))
sSID = Functions.GSB(sHTML, "<input type=" & Chr(34) & "hidden" & Chr(34) & " name=" & Chr(34) & "sid" & Chr(34) & " value=" & Chr(34), Chr(34))
sFrob = Functions.GSB(sHTML, "<input type=" & Chr(34) & "hidden" & Chr(34) & " name=" & Chr(34) & "frob" & Chr(34) & " value=" & Chr(34), Chr(34))
    If chkProxy.Value = 2 Then
HTML = GW.PostWrapper("http://login.gaiaonline.com/gaia/login.php", "token=" & sToken & "&sid=" & sSID & "&frob=" & sFrob & "&toolbar_id=&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&username=" & txtGaiaUsername.Text & "&password=" & txtGaiaPassword & "&chap=", GW.LastPage, txtProxy, txtServer)
        lblStatus = "Logging in with a proxy..."
    Else
HTML = GW.PostWrapper("http://login.gaiaonline.com/gaia/login.php", "token=" & sToken & "&sid=" & sSID & "&frob=" & sFrob & "&toolbar_id=&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&username=" & txtGaiaUsername.Text & "&password=" & txtGaiaPassword & "&chap=", GW.LastPage)
        lblStatus = "Logging in..."
    End If
    If InStr(1, HTML, "http://www.gaiaonline.com/?login_success=1") Then
        SaveSetting "GaiaLogin", "GaiaLogin", "GaiaLogin", txtGaiaUsername
        SaveSetting "GaiaLogin", "GaiaPassword", "GaiaPassword", txtGaiaPassword
        lblStatus = "Grabbing amount of gold..."
        If chkProxy.Value = 2 Then
            HTML = GW.GetWrapper("http://www.gaiaonline.com/", , txtProxy, txtServer)
        Else
            HTML = GW.GetWrapper("http://www.gaiaonline.com/")
        End If
        lblCurrentGold = CLng(GSB(HTML, "Gold: </span>", " "))
        lblStatus = "Idle..."
        txtMin.Enabled = True
        txtMax.Enabled = True
        cmdStart.Enabled = True
    Else
        cMSG "Login Failed!"
        txtGaiaUsername.Enabled = True
        txtGaiaPassword.Enabled = True
        cmdLogin.Enabled = True
        chkProxy.Enabled = True
    End If
End Sub

Private Sub cmdStart_Click()
Dim CurrentGold As Long, GoldGained As Long, Random As Long
    cmdStop.Enabled = True
    cmdStart.Enabled = False
    Do While cmdStop.Enabled = True
        Random = Rand(0, 50)
        lblStatus = "Visiting random link #" & Random + 1 & "!"
        If chkProxy.Value = 2 Then
            HTML = GW.GetWrapper(Link(Random), GW.LastPage, txtProxy, txtServer)
        Else
            HTML = GW.GetWrapper(Link(Random), GW.LastPage)
        End If
        If InStrB(1, HTML, ">You got ") Then
            lblStatus = "Calculating data..."
            CurrentGold = CLng(lblCurrentGold)
            GoldGained = CLng(lblGoldGained)
            lblCurrentGold = CLng(GSB(HTML, "Gold: </span>", " "))
            Gold = CLng(GSB(HTML, ">You got ", " gold"))
            Gold2 = Gold - CurrentGold
            Gold2 = Gold + GoldGained
            lblGoldGained = Gold2
            If cmdStart.Enabled = True Then
                Exit Do
            End If
        End If
        If cmdStart.Enabled = True Then
            Exit Do
        End If
        Pause (Rand(CLng(txtMin), CLng(txtMax))) * 1000
    Loop
    lblStatus = "Idle..."
End Sub

Private Sub cmdStop_Click()
    cmdStart.Enabled = True
    cmdStop.Enabled = False
End Sub

Private Sub Form_Load()
    txtGaiaUsername = GetSetting("GaiaLogin", "GaiaLogin", "GaiaLogin", txtGaiaUsername)
    txtGaiaPassword = GetSetting("GaiaLogin", "GaiaPassword", "GaiaPassword", txtGaiaPassword)
    Link(0) = "http://www.gaiaonline.com/"
    Link(1) = "http://www.gaiaonline.com/mygaia/"
    Link(2) = "http://www.gaiaonline.com/market"
    Link(3) = "http://www.gaiaonline.com/marketplace/"
    Link(4) = "http://www.gaiaonline.com/info/gold/gcash/"
    Link(5) = "http://www.gaiaonline.com/market/?cashshop=true"
    Link(6) = "http://www.gaiaonline.com/launch/towns"
    Link(7) = "http://www.gaiaonline.com/guilds/"
    Link(8) = "http://www.gaiaonline.com/launch/zomg"
    Link(9) = "http://www.gaiaonline.com/forum/general-discussion/f.2/"
    Link(10) = "http://www.gaiaonline.com/forum/lifestyle-discussion/f.289/"
    Link(11) = "http://www.gaiaonline.com/forum/gaia-community-discussion/f.139/"
    Link(12) = "http://www.gaiaonline.com/forum/omgaia/f.485/"
    Link(13) = "http://www.gaiaonline.com/forum/announcements/f.339/"
    Link(14) = "http://www.gaiaonline.com/forum/gaia-aquarium/f.393/"
    Link(15) = "http://www.gaiaonline.com/forum/the-gaia-exchange/f.22/"
    Link(16) = "http://www.gaiaonline.com/aquarium/"
    Link(17) = "http://www.gaiaonline.com/forum/entertainment-discussion/f.11/"
    Link(18) = "http://www.gaiaonline.com/forum/gaming-discussion/f.4/"
    Link(19) = "http://www.gaiaonline.com/forum/sports/f.62/"
    Link(20) = "http://www.gaiaonline.com/forum/art-discussion/f.6/"
    Link(21) = "http://www.gaiaonline.com/forum/writers/f.15/"
    Link(22) = "http://www.gaiaonline.com/forum/test-forum/f.8/"
    Link(23) = "http://www.gaiaonline.com/forum/gaia-polls/f.96/"
    Link(24) = "http://www.gaiaonline.com/profile/privmsg.php"
    Link(25) = "http://www.gaiaonline.com/homes/"
    Link(26) = "http://www.gaiaonline.com/avatar/"
    Link(27) = "http://www.gaiaonline.com/profile/friendlist.php"
    Link(28) = "http://www.gaiaonline.com/findfriends/"
    Link(29) = "http://www.gaiaonline.com/profile/friendlist.php?list=pending"
    Link(30) = "http://www.gaiaonline.com/account/preferences/"
    Link(31) = "http://www.gaiaonline.com/auto/"
    Link(32) = "http://www.gaiaonline.com/homes/"
    Link(33) = "http://www.gaiaonline.com/inventory/"
    Link(34) = "http://www.gaiaonline.com/quest/"
    Link(35) = "http://www.gaiaonline.com/quest/history/"
    Link(36) = "http://www.gaiaonline.com/quest/badge/"
    Link(37) = "http://www.gaiaonline.com/cinema/movies"
    Link(38) = "http://battle.gaiaonline.com/"
    Link(39) = "http://www.gaiaonline.com/map/"
    Link(40) = "http://www.gaiaonline.com/news/"
    Link(41) = "http://www.gaiaonline.com/info/gold"
    Link(42) = "http://www.gaiaonline.com/invite//#callout_invite"
    Link(43) = "http://www.gaiaonline.com/gaia/store.php?id=14f247/#callout_casino"
    Link(44) = "http://www.gaiaonline.com/profile/friendlist.php/#callout_friends"
    Link(45) = "http://www.gaiaonline.com/collectibles"
    Link(46) = "http://www.gaiaonline.com/cinema/vj/"
    Link(47) = "http://www.gaiaonline.com/journal/journal.php?mode=entry&action=load-add"
    Link(48) = "http://www.gaiaonline.com/journal/journal.php?mode=entry"
    Link(49) = "http://www.gaiaonline.com/launch/slots"
    Link(50) = "http://www.gaiaonline.com/gaia/shopping.php/?key=gxqxrbzixwydqakn"
    Link(51) = "http://www.gaiaonline.com/newsroom/?type=manga"
    Link(52) = "http://www.gaiaonline.com/newsroom/?type=weekly"
    Link(53) = "http://www.gaiaonline.com/newsroom/"
    Link(54) = "http://www.gaiaonline.com/guilds/?gmode=myguilds"
    Link(55) = "http://www.gaiaonline.com/arena/art/"
    Link(56) = "http://www.gaiaonline.com/arena/art/painting-and-drawing/vote/"
    Link(57) = "http://www.gaiaonline.com/arena/art/photography/vote/"
    Link(58) = "http://www.gaiaonline.com/arena/art/comics/vote/"
    Link(59) = "http://www.gaiaonline.com/clans/my/"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim frmTemp As Form
    For Each frmTemp In Forms
        Unload frmTemp
        Set frmTemp = Nothing
    Next
    End
End Sub

Another requested program.