[vb6] Gaia Daily Chance [HTTPwrapper]

[Stapled]

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!")

[Stapled]

Any in Vb.net...?
Btw great guide

I'll post some vb.net codes later on this week.