[vb6] Gaia Daily Chance [HTTPwrapper]
It could be a lot shorter but w/e. You also need a login before you can do this, there should be a code for the some where is this section.
Code:
Dim strHTML, StrItem As String
strHTML = wrapper.PostWrapper("http://www.gaiaonline.com/dailycandy/?mode=nojs§ion=1", "action=issue&submit_action=Click+Here+to+Claim+Your+Reward%21", wrapper.LastPage)
strHTML = Replace(strHTML, Chr(34), "'")
If (InStr(1, strHTML, ">Your index Reward Is...</h1>") > 0) Then
StrItem = wrapper.Between(strHTML, "<b>", "</b>")
list1.AddItem "Your index Reward Is..." & StrItem
ElseIf (InStr(1, strHTML, "You can't claim the reward for this section. Either you've already claimed it, or it has been disabled.") > 0) Then
list1.AddItem "You can't claim the reward. Either you've already claimed it"
Else
list1.AddItem "Failed."
End If
wrapper.wait (5)
strHTML = wrapper.PostWrapper("http://www.gaiaonline.com/dailycandy/?mode=nojs§ion=2", "action=issue&submit_action=Click+Here+to+Claim+Your+Reward%21", wrapper.LastPage)
If (InStr(1, strHTML, ">Your My Gaia Reward Is...</h1>") > 0) Then
StrItem = wrapper.Between(strHTML, "<b>", "</b>")
list1.AddItem "Your My Gaia Reward Is..." & StrItem
ElseIf (InStr(1, strHTML, "You can't claim the reward for this section. Either you've already claimed it, or it has been disabled.") > 0) Then
list1.AddItem "You can't claim the reward. Either you've already claimed it"
Else
list1.AddItem "Failed."
End If
wrapper.wait (5)
strHTML = wrapper.PostWrapper("http://www.gaiaonline.com/dailycandy/?mode=nojs§ion=3", "action=issue&submit_action=Click+Here+to+Claim+Your+Reward%21", wrapper.LastPage)
If (InStr(1, strHTML, ">Your Community Reward Is...</h1>") > 0) Then
StrItem = wrapper.Between(strHTML, "<b>", "</b>")
list1.AddItem "Your Community Reward Is..." & StrItem
ElseIf (InStr(1, strHTML, "You can't claim the reward for this section. Either you've already claimed it, or it has been disabled.") > 0) Then
list1.AddItem "You can't claim the reward. Either you've already claimed it"
Else
list1.AddItem "Failed."
End If
wrapper.wait (5)
strHTML = wrapper.PostWrapper("http://www.gaiaonline.com/dailycandy/?mode=nojs§ion=4", "action=issue&submit_action=Click+Here+to+Claim+Your+Reward%21", wrapper.LastPage)
If (InStr(1, strHTML, ">Your Games Reward Is...</h1>") > 0) Then
StrItem = wrapper.Between(strHTML, "<b>", "</b>")
list1.AddItem "Your Games Reward Is..." & StrItem
ElseIf (InStr(1, strHTML, "You can't claim the reward for this section. Either you've already claimed it, or it has been disabled.") > 0) Then
list1.AddItem "You can't claim the reward. Either you've already claimed it"
Else
list1.AddItem "Failed."
End If
wrapper.wait (5)
strHTML = wrapper.PostWrapper("http://www.gaiaonline.com/dailycandy/?mode=nojs§ion=5", "action=issue&submit_action=Click+Here+to+Claim+Your+Reward%21", wrapper.LastPage)
If (InStr(1, strHTML, ">Your World Reward Is...</h1>") > 0) Then
StrItem = wrapper.Between(strHTML, "<b>", "</b>")
list1.AddItem "Your World Reward Is..." & StrItem
ElseIf (InStr(1, strHTML, "You can't claim the reward for this section. Either you've already claimed it, or it has been disabled.") > 0) Then
list1.AddItem "You can't claim the reward. Either you've already claimed it"
Else
list1.AddItem "Failed."
End If
wrapper.wait (5)
strHTML = wrapper.PostWrapper("http://www.gaiaonline.com/dailycandy/?mode=nojs§ion=8", "action=issue&submit_action=Click+Here+to+Claim+Your+Reward%21", wrapper.LastPage)
If (InStr(1, strHTML, ">Your Market Reward Is...</h1>") > 0) Then
StrItem = wrapper.Between(strHTML, "<b>", "</b>")
list1.AddItem "Your Market Reward Is..." & StrItem
ElseIf (InStr(1, strHTML, "You can't claim the reward for this section. Either you've already claimed it, or it has been disabled.") > 0) Then
list1.AddItem "You can't claim the reward. Either you've already claimed it"
Else
list1.AddItem "Failed."
End If
list1.AddItem ("Finished!")
