Read-only archive

A preserved archive of the Logical Gamers community forums, 2009-2025. The original threads and posts, served read-only. Registration, posting and private messages are gone for good.

[vb6] Gaia Daily Chance [HTTPwrapper]

1.1k views · started by Stapled ·
#1
[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.

Dim strHTML, StrItem As String



        strHTML = wrapper.PostWrapper("http://www.gaiaonline.com/dailycandy/?mode=nojs&section=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&section=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&section=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&section=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&section=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&section=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!")
#2
Any in Vb.net...?
Btw great guide :)
#3
Keegan wrote:
Any in Vb.net...?
Btw great guide :)


I'll post some vb.net codes later on this week.
#4
stapled wrote:
I'll post some vb.net codes later on this week.


KK thnx :)