About
Dim HTML As String, sToken As String, sSID As String, sFrob As String, Gold As Long, Gold2 As Long, Link(0 To 59) As StringPrivate 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, " 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://www.gaiaonline.com/&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: 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: ", " "))
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( cool = "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(1 cool = "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(2 cool = "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(3 cool = "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(4 cool = "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(5 cool = "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
Comments
View All Comments