vb.net gaia login

**Chad** · 29 Nov. 2009 03:01am

Download the file open in vb.net (vb 2008, 2007, 2009, 2010) For Eternal Darkness

Download: Here

29 Nov. 2009 03:27am

Thanks a lot Chad!

29 Nov. 2009 05:56am

Could you post the code for it? I don't have any VB.net editor, and I don't feel like installing it for a small section of code. I wanna convert it to PHP.

**Chad** · 29 Nov. 2009 06:50am

Code:

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

29 Nov. 2009 06:53am

Does this work, or is it an example of old code? I thought a CHAP key was required.

**Chad** · 29 Nov. 2009 07:46am

Its a new code. Coded by me. It works perfectly.

**Nat** · 29 Nov. 2009 03:42pm

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

29 Nov. 2009 05:17pm

Originally Posted by Nat

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

You need his... They work...

The problem was in my old wrappers Chad...

**Nat** · 29 Nov. 2009 05:36pm

Right my bad, didn't see they were included in the first post download.

**MattSmith** · 29 Nov. 2009 05:46pm

Originally Posted by Chad

Code:

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

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

29 Nov. 2009 06:08pm

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.

29 Nov. 2009 06:33pm

Originally Posted by GAMEchief

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.

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....

**Chad** · 29 Nov. 2009 10:12pm

Originally Posted by Sk8er

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

vb6 and vb.net wrappers are the same, just ported it over. and yes it works considering the Time stamp doesn't have to be in it. Test it if you want.

29 Nov. 2009 11:46pm

Originally Posted by Eternal Darkness

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....

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

30 Nov. 2009 12:32am

Originally Posted by GAMEchief

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

Well then can we put login_success=2? or no?

Ok, thanks for the info on timestamps...

**Chad** · 30 Nov. 2009 03:17am

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

30 Nov. 2009 04:19am

Originally Posted by Chad

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

This. Don't put anything as the first number, since the first number will change with time.

01 Dec. 2009 03:56pm

Originally Posted by Chad

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

I thought so too. It just searches for the "login_success=1" in the Url and if it shows up you know you have logged in. Correct?

Because then it could be without the 1 or just "_success". Right?

These codes should work because there is now a "http://www.g aiaonline.com/auth/login/" if the information you put in is incorrect...

Thread: vb.net gaia login

LinkBack

Thread Tools

Search Thread

Rate This Thread

Display

vb.net gaia login

Posting Permissions