vb.net gaia login

Public Class frmMain

    Dim StrHTML As String

    Dim StrToken As String

    Dim StrFrob As String



    Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLogin.Click

        If (txtUsername.Text = (vbNullString) Or txtPassword.Text = (vbNullString)) Then

            MessageBox.Show("Please enter a username and or password", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Exit Sub

        End If



        cmdLogin.Enabled = False

        txtUsername.Enabled = False

        txtPassword.Enabled = False



        StrHTML = Wrapper.GetWrapper("http://www.gaiaonline.com/", "http://www.google.com/")



        StrToken = GetStringBetween(StrHTML, "name=""token"" value=""", """")

        StrFrob = GetStringBetween(StrHTML, "name=""frob"" value=""", """")

        'MsgBox(StrToken & ":" & StrFrob)



        StrHTML = Wrapper.PostWrapper("http://www.gaiaonline.com/auth/login", "token=" & StrToken & "&sid=&frob=" & StrFrob & "&toolbar_id=&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&username=" & txtUsername.Text & "&password=" & txtPassword.Text & "&chap=", "http://gaiaonline.com/")

        SecondsToWait(1)



        If (InStr(1, StrHTML, "?login_success=1")) Then

            MessageBox.Show(txtUsername.Text & " : Has logged in!", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Else

            MessageBox.Show("Failed to login", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information)

            txtUsername.Enabled = True

            txtPassword.Enabled = True

            cmdLogin.Enabled = True

        End If

    End Sub

End Class

Nat wrote:

You also need the wrapper files to use it. :p

Chad wrote:

Public Class frmMain

    Dim StrHTML As String

    Dim StrToken As String

    Dim StrFrob As String



    Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLogin.Click

        If (txtUsername.Text = (vbNullString) Or txtPassword.Text = (vbNullString)) Then

            MessageBox.Show("Please enter a username and or password", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Exit Sub

        End If



        cmdLogin.Enabled = False

        txtUsername.Enabled = False

        txtPassword.Enabled = False



        StrHTML = Wrapper.GetWrapper("http://www.gaiaonline.com/", "http://www.google.com/")



        StrToken = GetStringBetween(StrHTML, "name=""token"" value=""", """")

        StrFrob = GetStringBetween(StrHTML, "name=""frob"" value=""", """")

        'MsgBox(StrToken & ":" & StrFrob)



        StrHTML = Wrapper.PostWrapper("http://www.gaiaonline.com/auth/login", "token=" & StrToken & "&sid=&frob=" & StrFrob & "&toolbar_id=&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&username=" & txtUsername.Text & "&password=" & txtPassword.Text & "&chap=", "http://gaiaonline.com/")

        SecondsToWait(1)



        If (InStr(1, StrHTML, "?login_success=1")) Then

            MessageBox.Show(txtUsername.Text & " : Has logged in!", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Else

            MessageBox.Show("Failed to login", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information)

            txtUsername.Enabled = True

            txtPassword.Enabled = True

            cmdLogin.Enabled = True

        End If

    End Sub

End Class

GAMEchief wrote:

Due to a technicality, login_success=1 will work. The difference is they put a timestamp instead of 1, but most timestamps start with 1 (until a good many years into the future). As long as it doesn't check to see if the URL ends with login_success=1, InStr() will work.

Sk8er wrote:

This actually doesnt work. And you didnt code this from scratch. This is old. And gaia updated there login so "If (InStr(1, StrHTML, "?login_success=1")) Then" wont work. Also, this is VB6, not VB.net

Eternal Darkness wrote:

I am a beginner coder but I think Gamechief is right...

I downloaded it, ran it and it works Sk8ter...

I think the code basically searches for "login_success=1" in the url after it sends the data.

The time stamp is irrelevant, it comes after the "login_success=1", so as long as the url contains "login_success=1" it will say that it was a success and log you in... It will still have the time stamp from Gaia's Viewpoint....

GAMEchief wrote:

Actually, the 1 is part of the timestamp. I don't feel like calculating how long it will take, but I'm going to guess and say in 3 years, for example, that the timestamp will start with 2 (login_success=2...), and the code would no longer work

Chad wrote:

To be honest you don't even need a 1 or a 2 for it. just the =

Chad wrote:

To be honest you don't even need a 1 or a 2 for it. just the =