[VB6] Gaia Daily Chance Checker - How to

[|G3|]

You should do this tutorial first before attempting this because they go in order.




Code used:

Private Sub Command2_Click()
Dim i As Integer
Dim strHTML As String
Dim item As String

For i = 1 To 5
    strHTML = wrapper.PostWrapper("http://www.gaiaonline.com/dailycandy/?mode=nojs&section=" & i, "action=issue&submit_action=Click+Here+to+Claim+Your+Reward%21", "http://www.gaiaonline.com")
    If InStrB(1, strHTML, "Reward Is...</h1>") Then
        item = wrapper.iB(strHTML, "<b>", "</b>")
        List1.AddItem ("Success! Daily chance item: " & item)
    ElseIf InStrB(1, strHTML, "<p>You can't claim the reward for this section. Either you've already claimed it, or it has been disabled.</p>") Then
        List1.AddItem ("Failed, you already claimed this daily chance")
    Else
        List1.AddItem ("Failed, unknown reason")
    End If
Next i
List1.AddItem ("Finished..")
End Sub