Game
My Gaia login is being a bitch.... Any help on this one? I am using Bradleys Wrappers.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strHTML As String
Dim sid As String
Dim token As String
Dim poststring As String
strHTML = Wrapper.Get("http://www.gaiaonline.com/auth/login/", "http://www.gaiaonline.com/")
strHTML = Replace(strHTML, Chr(34), "'")
sid = Wrapper.Between(strHTML, "<input type='hidden' name='sid' value='", "' />")
token = Wrapper.Between(strHTML, "<input type='hidden' name='token' value='", "' />")
poststring = "username=" & TextBox1.Text & "&password=" & TextBox2.Text & "&token=" & token & "&sid=" & sid & "&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F"
strHTML = Wrapper.Post("http://www.gaiaonline.com/auth/login/", poststring, "http://www.gaiaonline.com/auth/login/")
If (InStr(1, strHTML, "?login_success=")) Then
MessageBox.Show("Logging in!")
Else
MessageBox.Show("Incorrect please try again.")
End If
End Sub