[VB6]New Gaia login

**|G3|** · 10-07-2007, 04:30 PM

This the source for the Gaia online login. Older ones might not work because they are outdated..

NEW VERSION

Code:

Private Sub loginBut_Click()
     If (Text1.Text = vbNullString) Then
        MsgBox "Please Enter a Valid Username", vbCritical
        Exit Sub
    ElseIf (Text2.Text = vbNullString) Then
        MsgBox "Please Enter a Valid Password", vbCritical
        Exit Sub
    End If

loginBut.Enabled = False
Text1.Enabled = False
Text2.Enabled = False

    Label.Caption = "Logging in..."
    strHTML = wrapper.GetWrapper("http://www.gaiaonline.com/", "http://gaiaonline.com/")
    frob2 = wrapper.iB(strHTML, "<input type=" & Chr(34) & "hidden" & Chr(34) & " name=" & Chr(34) & "frob" & Chr(34) & " value=" & Chr(34), Chr(34) & " />")
    strHTML = wrapper.PostWrapper("http://login.gaiaonline.com/gaia/login.php", "sid=&frob=" & frob2 & "&toolbar_id=&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F%3Flogout_success&username=" & Text1.Text & "&password=" & Text2.Text & "username=" & Text1.Text & "&password=" & Text2.Text, "http://www.gaiaonline.com/")
    strHTML = wrapper.GetWrapper("http://www.gaiaonline.com/forum/", "http://www.gaiaonline.com/")
    If InStrB(strHTML, "<li class=" & Chr(34) & "gold" & Chr(34) & " title=" & Chr(34) & "Gaia Gold Amount" & Chr(34) & "><span c") Then
        Label.Caption = "Logged In"
    Else
        loginBut.Enabled = True
        Text1.Enabled = True
        Text2.Enabled = True
        MsgBox "Login Failed", vbCritical
        Label.Caption = "Login Failed. Please try again."
    End If
End Sub

OLD VERSION

Code:

Private Sub loginBut_Click()
 lblCap.Caption = ""
    If (txtuser.Text = vbNullString) Then
        MsgBox "You must enter a username", vbCritical
        Exit Sub
    ElseIf (txtpass.Text = vbNullString) Then
        MsgBox "You must enter a password", vbCritical
        Exit Sub
    End If

lblCap.Caption = "Logging in..."
loginBut.Enabled = False
txtuser.Enabled = False
txtpass.Enabled = False


strHTML = wrapper.PostWrapper("http://login.gaiaonline.com/gaia/login.php", "submit=Login&sid=NULL&redirect=http://www.gaiaonline.com/forum&username=" & txtuser.Text & "&password=" & txtpass.Text & "&x=23&y=14", "http://gaiaonline.com/")
strHTML = wrapper.GetWrapper("http://www.gaiaonline.com/forum/",wrapper.LastPage)
    If InStrB(1, strHTML, "Gold:") Then
        lblCap.Caption = "Logged in!"
    Else
        loginBut.Enabled = True
        txtuser.Enabled = True
        txtpass.Enabled = True
        lblCap.Caption = "Failed Login. Please try again."
        MsgBox "Failed Login.", vbCritical
    End If
End Sub

Any problems? Tell me and I might help you.