Code:Public Class Form1 Public Wrapper As HTTPWrapper = New HTTPWrapper Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click Dim strHTML As String If username.Text = vbNullString Or password.Text = vbNullString Then MessageBox.Show("You left the username and/or password field blank." & vbNewLine & "Try again..") Exit Sub End If username.Enabled = False password.Enabled = False login.Enabled = False strHTML = Wrapper.GetWrapper("http://www.gaiaonline.com/auth/login/", "http://www.gaiaonline.com/") strHTML = Wrapper.PostWrapper("http://www.gaiaonline.com/auth/login/", "username=" & username.Text & "&password=" & password.Text & "&token=390877768.1259031155.231727528&sid=&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&chap=2f23608d4e502e6f959acabe21950f74", "http://gaiaonline.com/") If strHTML.Contains("Location: http://www.gaiaonline.com/?login_success=1") Then MessageBox.Show("You are now Logged on...") Else MessageBox.Show("Login Failed...") username.Enabled = True password.Enabled = True login.Enabled = True End If End Sub End Class
Well I got the original from here :
[VB.NET] Gaia Login with WINSOCK - Gaming Gutter
Sorry about linking to gaming gutter but it was the only place I could find that gave me the information I needed for VB8...
I also edited because chad told me to...
He said he couldn't really help me, Can anyone help?
Results 1 to 31 of 31
- 24 Nov. 2009 03:20am #1
[Vb.net/VB8] What Am I doing wrong here...
Last edited by Eternal Darkness; 24 Nov. 2009 at 03:22am.
- 24 Nov. 2009 03:43am #2
Like i said, Timestamp doesn't matter. You need to get Frob and Token for the login trk else it wont.
Code:Dim StrToken as String StrToken = Wrapper.between (StrHTML, "token" & Chr(34) & " value=" & Chr(34), Chr(34))
the wrapper.between is from a wrapper Alex made and I edited / fixed up a bit so it's going to be different on your .net wrapper.
- 24 Nov. 2009 04:22am #3
Well that doesn't tell me anything, sorry but it doesn't...
First off I need you to fix the code (Thats why I posted it) if you are going to tell me how to fix my code. I do not know where to put this code. I may be a N00b or whatever but this is how you learn...
Or could you tell me how to add the Wrapper.Between function to my wrapper... (And some possible other functions)
What is a Frob?
How would I find the token?
- 24 Nov. 2009 04:39am #4
Frob = SID
Sid = Session ID
Session ID = Temp ID used to tell who you are etc etc
Lesson #2 - you'll need a lot more programming experience to add functions to the wrapper.
Lesson #3 you would add the Frob were it says &Sid=
example
"&sid=" & strFrob & "The rest of the shit"
same goes with token
- 24 Nov. 2009 04:52am #5
- 24 Nov. 2009 05:46am #6
- 24 Nov. 2009 03:11pm #7
- 24 Nov. 2009 04:51pm #8
- 24 Nov. 2009 11:21pm #9
Wouldnt he also need to make the password MD5?
- 24 Nov. 2009 11:25pm #10
- 25 Nov. 2009 01:53am #11
- 25 Nov. 2009 03:17am #12
- 25 Nov. 2009 05:51am #13
- 25 Nov. 2009 03:20pm #14
There Ya Go:
Code:Public Class Form1 Public Wrapper As HTTPWrapper = New HTTPWrapper Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click Dim strHTML As String Dim StrSid As String If username.Text = vbNullString Or password.Text = vbNullString Then MessageBox.Show("You left the username and/or password field blank." & vbNewLine & "Try again..") Exit Sub End If username.Enabled = False password.Enabled = False login.Enabled = False strHTML = Wrapper.GetWrapper("http://www.gaiaonline.com/auth/login/", "http://www.gaiaonline.com/") strHTML = Wrapper.PostWrapper("http://www.gaiaonline.com/auth/login/", "username=" & username.Text & "&password=" & password.Text & "&token=&sid=" & Strsid & "&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&chap=2f23608d4e502e6f959acabe21950f74", "http://gaiaonline.com/") If strHTML.Contains("Location: http://www.gaiaonline.com/?login_success=1") Then MessageBox.Show("You are now Logged on...") Else MessageBox.Show("Login Failed...") username.Enabled = True password.Enabled = True login.Enabled = True End If End Sub End Class
- 25 Nov. 2009 05:22pm #15
Try this. I put all the errors in there and what you did wrong. By the way strSid isn't gonna get the Session for you it's self which you thought it would do. I gave you the code to do that but you never put it in your login code so heres the working code.
PHP Code:Public Class Form1
Public Wrapper As HTTPWrapper = New HTTPWrapper
Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click
Dim strHTML As String
Dim StrSid As String
Dim StrToken as String
'Problem was that you never had StrSid get your Session. I Spoon fed that
'code to you over a post.
If username.Text = vbNullString Or password.Text = vbNullString Then
MessageBox.Show("You left the username and/or password field blank." & vbNewLine & "Try again..")
Exit Sub
End If
username.Enabled = False
password.Enabled = False
login.Enabled = False
strHTML = Wrapper.GetWrapper("http://www.gaiaonline.com/auth/login/", "http://www.gaiaonline.com/")
'token" value="169726726.1259169363.730178551"
StrToken = GetStringBetween (StrHTML, "token" & Chr(34) & " value=" & Chr(34), Chr(34))
'name="sid" value=""
StrSid = GetStringBetween (StrHTML, "sid" & Chr(34) & " value=" & Chr(34), Chr(34))"
'Just so you know Chr(34) is the character quotes yes, " those
'Why did i say Chr(34)? So I don't have to use a damn character replacment
'The getstringbetween might be different in your vb.net wrapper
strHTML = Wrapper.PostWrapper("http://www.gaiaonline.com/auth/login/", "username=" & username.Text & "&password=" & password.Text & "&token=" & StrToken & "&sid=" & Strsid & "&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&chap=2f23608d4e502e6f959acabe21950f74", "http://gaiaonline.com/")
If strHTML.Contains("Location: http://www.gaiaonline.com/?login_success=1") Then
MessageBox.Show("You are now Logged on...")
Else
MessageBox.Show("Login Failed...")
username.Enabled = True
password.Enabled = True
login.Enabled = True
End If
End Sub
End Class
- 25 Nov. 2009 05:27pm #16
I put this code in, no errors or anything.
PHP Code:Public Class Form1
Public Wrapper As HTTPWrapper = New HTTPWrapper
Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click
Dim strHTML As String
Dim StrSid As String
Dim StrToken As String
'Problem was that you never had StrSid get your Session. I Spoon fed that
'code to you over a post.
If username.Text = vbNullString Or password.Text = vbNullString Then
MessageBox.Show("You left the username and/or password field blank." & vbNewLine & "Try again..")
Exit Sub
End If
username.Enabled = False
password.Enabled = False
login.Enabled = False
strHTML = Wrapper.GetWrapper("http://www.gaiaonline.com/auth/login/", "http://www.gaiaonline.com/")
'token" value="169726726.1259169363.730178551"
StrToken = GetStringBetween(StrHTML, "token" & Chr(34) & " value=" & Chr(34), Chr(34))
'name="sid" value=""
StrSid = GetStringBetween(strHTML, "sid" & Chr(34) & " value=" & Chr(34), Chr(34))
'Just so you know Chr(34) is the character quotes yes, " those
'Why did i say Chr(34)? So I don't have to use a damn character replacment
strHTML = Wrapper.PostWrapper("http://www.gaiaonline.com/auth/login/", "username=" & username.Text & "&password=" & password.Text & "&token=" & StrToken & "&sid=" & Strsid & "&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&chap=2f23608d4e502e6f959acabe21950f74", "http://gaiaonline.com/")
If strHTML.Contains("Location: http://www.gaiaonline.com/?login_success=1") Then
MessageBox.Show("You are now Logged on...")
Else
MessageBox.Show("Login Failed...")
username.Enabled = True
password.Enabled = True
login.Enabled = True
End If
End Sub
End Class
- 25 Nov. 2009 05:30pm #17
Who knows. Maybe it has captcha when you login. Put
If (Instr(1,StrHTML, "Can't read") Then
Msgbox.show ("Captcha")
Else
Msgbox.show ("No captcha")
End if
put this after the login or put it were the failed part is.
- 25 Nov. 2009 05:33pm #18
Tried twice, First time it said Failed and No Captcha, then it said failed and Captcha...
Still doesn't work...
PHP Code:Public Class Form1
Public Wrapper As HTTPWrapper = New HTTPWrapper
Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click
Dim strHTML As String
Dim StrSid As String
Dim StrToken As String
'Problem was that you never had StrSid get your Session. I Spoon fed that
'code to you over a post.
If username.Text = vbNullString Or password.Text = vbNullString Then
MessageBox.Show("You left the username and/or password field blank." & vbNewLine & "Try again..")
Exit Sub
End If
username.Enabled = False
password.Enabled = False
login.Enabled = False
strHTML = Wrapper.GetWrapper("http://www.gaiaonline.com/auth/login/", "http://www.gaiaonline.com/")
'token" value="169726726.1259169363.730178551"
StrToken = GetStringBetween(StrHTML, "token" & Chr(34) & " value=" & Chr(34), Chr(34))
'name="sid" value=""
StrSid = GetStringBetween(strHTML, "sid" & Chr(34) & " value=" & Chr(34), Chr(34))
'Just so you know Chr(34) is the character quotes yes, " those
'Why did i say Chr(34)? So I don't have to use a damn character replacment
strHTML = Wrapper.PostWrapper("http://www.gaiaonline.com/auth/login/", "username=" & username.Text & "&password=" & password.Text & "&token=" & StrToken & "&sid=" & Strsid & "&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&chap=2f23608d4e502e6f959acabe21950f74", "http://gaiaonline.com/")
If strHTML.Contains("Location: http://www.gaiaonline.com/?login_success=1") Then
MessageBox.Show("You are now Logged on...")
Else
MessageBox.Show("Login Failed...")
If (InStr(1, strHTML, "Can't read")) Then
MsgBox("Captcha")
Else
MsgBox("No captcha")
End If
username.Enabled = True
password.Enabled = True
login.Enabled = True
End If
End Sub
End Class
- 25 Nov. 2009 05:38pm #19
Wish i had my other computer to fix it but sense i'm not home i can't. Anyway, you can try to find or create your own encryption module if you want to try to encrypt the logins. Doubt it'll work but eh. Worth a shot. Ask Bman for it, doubt he has the one for vb.net.
Also, just to make sure after it attempts to login make it get gaiaonline and instead of location login success etc shit put if gold.gif then etc etc
- 25 Nov. 2009 05:51pm #20
- 25 Nov. 2009 06:21pm #21
- 25 Nov. 2009 06:39pm #22
Last edited by Eternal Darkness; 25 Nov. 2009 at 07:00pm.
- 25 Nov. 2009 07:17pm #23
- 25 Nov. 2009 07:23pm #24
- 25 Nov. 2009 07:35pm #25
- 25 Nov. 2009 08:23pm #26
- 25 Nov. 2009 11:03pm #27
- 26 Nov. 2009 04:17am #28
You have to find it from that thing, click the form and it should have some drop down menus at the top saying what things you have like form command button etc and to the right of that it should say for form
unload
activate or load
queary unload and some other stuff
- 26 Nov. 2009 04:23am #29
Should I put it right above the login like so?
PHP Code:Public Class Form1
Public Wrapper As HTTPWrapper = New HTTPWrapper
Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click
Dim strHTML As String
Dim StrSid As String
Dim StrToken As String
'Problem was that you never had StrSid get your Session. I Spoon fed that
'code to you over a post.
If username.Text = vbNullString Or password.Text = vbNullString Then
MessageBox.Show("You left the username and/or password field blank." & vbNewLine & "Try again..")
Exit Sub
End If
username.Enabled = False
password.Enabled = False
login.Enabled = False
Form_unloadQuery
Unload.Me
End
strHTML = Wrapper.GetWrapper("http://www.gaiaonline.com/auth/login/", "http://www.gaiaonline.com/")
'token" value ="169726726.1259169363.730178551"
StrToken = GetStringBetween(strHTML, "token" & "Chr(34)" & " value=" & "Chr(34)", "Chr(34))")
'name="sid" value=""
StrSid = GetStringBetween(strHTML, "sid" & "Chr(34)" & " value=" & "Chr(34)", "Chr(34)")
'Just so you know Chr(34) is the character quotes yes, " those
'Why did i say Chr(34)? So I don't have to use a damn character replacment
strHTML = Wrapper.PostWrapper("http://www.gaiaonline.com/auth/login/", "username=" & username.Text & "&password=" & password.Text & "&token=" & StrToken & "&sid=" & Strsid & "&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&chap=2f23608d4e502e6f959acabe21950f74", "http://gaiaonline.com/")
If strHTML.Contains("Location: http://www.gaiaonline.com/?login_success=1") Then
MessageBox.Show("You are now Logged on...")
Else
MessageBox.Show("Login Failed...")
If (InStr(1, strHTML, "Can't read")) Then
MessageBox.Show("Captcha")
Else
MessageBox.Show("No captcha")
End If
username.Enabled = True
password.Enabled = True
login.Enabled = True
End If
End Sub
End Class
- 26 Nov. 2009 04:26am #30
Dude, you don't have to do it. You can if you want. If you don't do it, it will do nothing but sit in the background doing nothing until you end it via task manager. It's not that big of a deal.
- 26 Nov. 2009 04:30am #31Oh I see. I thought it had something to do with the Login XD...
Sounded like unloading the data for a login or something like that... My Bad...
Edit:
Are the values like:
Code:'name="sid" value=""
Last edited by Eternal Darkness; 26 Nov. 2009 at 05:38pm.