[Vb.net/VB8] What Am I doing wrong here...

Printable View

24 Nov. 2009, 03:20am
Eternal Darkness

[Vb.net/VB8] What Am I doing wrong here...

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?
24 Nov. 2009, 03:43am
Chad

Like i said, Timestamp doesn't matter. You need to get Frob and Token for the login to work else it wont.

Code:

Dim StrToken as String StrToken = Wrapper.between (StrHTML, "token" & Chr(34) & " value=" & Chr(34), Chr(34))

there it's simple as that.
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
Eternal Darkness

Quote:

Originally Posted by Chad

Like i said, Timestamp doesn't matter. You need to get Frob and Token for the login to work else it wont.

Code:

Dim StrToken as String StrToken = Wrapper.between (StrHTML, "token" & Chr(34) & " value=" & Chr(34), Chr(34))

there it's simple as that.
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.

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
Chad

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
Eternal Darkness

Quote:

Originally Posted by Chad

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

Thanks for the info...

Would it go?

Code:

...231727528&sid=" & strFrob & "&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&...

Or something and what should I use for Token? Where should I put it?
24 Nov. 2009, 05:46am
Chad

goes there just like that
but for the token take out all that shit he put in it. the numbers with the dots until you reach the equal sign.
24 Nov. 2009, 03:11pm
Eternal Darkness

Quote:

Originally Posted by Chad

goes there just like that
but for the token take out all that shit he put in it. the numbers with the dots until you reach the equal sign.

"Name 'StrFrob' is not declared"

How do I fix this?
24 Nov. 2009, 04:51pm
Chad

Dim StrFrob as String
24 Nov. 2009, 11:21pm
Bman

Wouldnt he also need to make the password MD5?:O
24 Nov. 2009, 11:25pm
Eternal Darkness

Quote:

Originally Posted by Bman

Wouldnt he also need to make the password MD5?:O

I thought so but Chad didn't tell me to do that yet...

Quote:

Originally Posted by Chad

Dim StrFrob as String

"Variable 'StrFrob' is used before it has been assigned a value. A null reference exception could result at runtime."
25 Nov. 2009, 01:53am
Chad

Quote:

Originally Posted by Eternal Darkness

I thought so but Chad didn't tell me to do that yet...

"Variable 'StrFrob' is used before it has been assigned a value. A null reference exception could result at runtime."

@Bman, the rolled back the need for the encryption so you don't need it anymore all you need is the session id and the token.

@Darkness, just rename it something else like Dim StrSid as string and use strsid
25 Nov. 2009, 03:17am
Eternal Darkness

Quote:

Originally Posted by Chad

@Bman, the rolled back the need for the encryption so you don't need it anymore all you need is the session id and the token.

@Darkness, just rename it something else like Dim StrSid as string and use strsid

Still the same error...

Cool...
25 Nov. 2009, 05:51am
Chad

Copy and paste what you have. Just the login code.
25 Nov. 2009, 03:20pm
Eternal Darkness

Quote:

Originally Posted by Chad

Copy and paste what you have. Just the login code.

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
Chad

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

By the way i fixed it in notepad.
25 Nov. 2009, 05:27pm
Eternal Darkness

Quote:

Originally Posted by Chad

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

By the way i fixed it in notepad.

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

Then when I debug it still says login failed even though I know the login is correct...
25 Nov. 2009, 05:30pm
Chad

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
Eternal Darkness

Quote:

Originally Posted by Chad

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.

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
Chad

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
Eternal Darkness

Quote:

Originally Posted by Chad

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

Sorry, I think I will wait for you to get home...

I would rather have you help me re-code it... I don't mind the wait...

Sorry if I am troubling you by this....

I will ask B man though and if he sends me something I will post it here....
25 Nov. 2009, 06:21pm
Chad

Well, i'd try to figure it out because i wont be home for at least another 3 days. or you could just recode it in vb6 which is easier.
25 Nov. 2009, 06:39pm
Eternal Darkness

Quote:

Originally Posted by Chad

Well, i'd try to figure it out because i wont be home for at least another 3 days. or you could just recode it in vb6 which is easier.

I don't like vb6...

I will try to code it but no promises... I will use your help when you can help me whenever that is...

EDIT: Why won't this work in my http wrapper?

Code:

Winsock1.Close()

"InvalidComObjectExeption was unhanded"
25 Nov. 2009, 07:17pm
Chad

Thats just saying that winsock closed before it was suppose to or it failed to close, wouldn't matter really sense you are closing the program.
25 Nov. 2009, 07:23pm
Eternal Darkness

Quote:

Originally Posted by Chad

Thats just saying that winsock closed before it was suppose to or it failed to close, wouldn't matter really sense you are closing the program.

It says thats a problem... Is it?
25 Nov. 2009, 07:35pm
MattSmith

Well, the program will continue to run in the background (check your task manager. Processes)

Thats all that will happen. It wont do anything besides sit there.
25 Nov. 2009, 08:23pm
Chad

What you could do to make sure it ends is go to Form_unloadQuery or what ever and put End in it or Unload Me
25 Nov. 2009, 11:03pm
Eternal Darkness

Quote:

Originally Posted by Chad

What you could do to make sure it ends is go to Form_unloadQuery or what ever and put End in it or Unload Me

What? Where?
26 Nov. 2009, 04:17am
Chad

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
Eternal Darkness

Quote:

Originally Posted by Chad

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

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
Chad

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
Eternal Darkness

Quote:

Originally Posted by Chad

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.

Oh 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=""

Supposed to be inactive (Have the ')... Because I have tried everything and it says value is not declared...