[VB6] How to make a Gaia Login

[|G3|]

For this tutorial, you need this wrapper.



Finished Code:

Private Sub Command1_Click()
Dim strHTML As String

If username.Text = vbNullString Then
    MsgBox ("Please enter a username")
    Exit Sub
ElseIf password.Text = vbNullString Then
    MsgBox ("Please enter a password")
    Exit Sub
End If

username.Enabled = False
password.Enabled = False
Command1.Enabled = False

strHTML = wrapper.PostWrapper("login.gaiaonline.com/gaia/login.php", "username=" & username.Text & "&password=" & password.Text & "&frob=&token=&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&chap=", "http://www.gaiaonline.com")
If InStrB(1, strHTML, "Location: http://www.gaiaonline.com/?login_success=1") Then
    MsgBox ("Logged in!")
Else
    MsgBox ("Login failed")
    username.Enabled = True
    password.Enabled = True
    Command1.Enabled = True
End If
End Sub

[james310]

This is a good tut, the first program I was able to make, thx ^^. I was wondering, is there source code to log out of gaia or is it the same as this one but with some changes?

[|G3|]

Well, most of the time logging out is basically;

wrapper.clearcookies

Easiest way to log out.

[james310]

Oh ok, thanks alot, I was wondering how to do it, wanna put it on the program