[VB6] How to make Neopets Login (detailed)

[second2none]

How to make a Login for Neo Pets

This is the procedure for any login for any site.
For now I will be using Neopets (simple one)
I will post how to get the Post Data using firefox. & how to get it just normally.
You will also need to have a wrapper.
First of All if you dont have firefox get it.

http://www.mozilla.com/en-US/firefox/

Next Download the Live HTTP Headers Addon.

http://livehttpheaders.mozdev.org/

Restart Firefox.

Navigate your way to http://www.neopets.com

If you are logged in, Log out, if not click sign in.

So now we are here.
http://www.neopets.com/loginpage.phtml

In fire fox click Tools> Live HTTP Headers

A extra window will pop up.
Along the top you will see
Headers | Generator | Config | About

Click the Headers Tab.

Make sure it's blank if not click clear.
Next go back to the neopets Login page & enter your username. & click Login

A hole bunch of text should show up. The to one should look something like this.



I have circled the info we need.
1 = The Site you post to.
2= The Data you send.

Now on neo we will be here
http://www.neopets.com/hi.phtml

Click back to your Live HTTP Headers & Clear. (you will find out why in a second)

Enter your password & Click Login.
Go to live HTTP Headers & the first one should be a Post.
Something like this.



As you can see you wont need to use the first example I showed as it posts the Username. Most logins dont require you enter your username first. But this one does. BUT still at the end it sends it all at one time in the end.

So now we have the post data.
You can start coding.

Add a Label, 2 Text Boxes , wrapper (in this case its HTTP wrapper) & a Command Button.
Change the properties to the following.


-------------------------------
Label
Name - lblStatus

-------------------------------
Text Box 1
Name - txtUser
Text -
-------------------------------
Text Box 2
Name - txtPass
PasswordChar - * (or whatever you want the character to be)
Text -

-------------------------------
HTTPWrapper
Name - wrapper

-------------------------------
Command Button 1
Name - cmdLogin

-------------------------------

Now you have everything on the form.
Double click the cmdLogin.

type this

Dim strHTML as String

strHTML = wrapper.Postwrapper("", "")

What is this?
This is the post function for HTTPWrapper. strHTML can be anything but its easy to name it strHTML.

What to add between the "" 's

You want to Add the first thing I circled & named 1.

So far it will look like this.

Dim strHTML as String

strHTML = wrapper.Postwrapper("http://www.neopets.com/login.phtml", "")

Now we need to add the post data.

Number 2.

Dim strHTML as String

strHTML = wrapper.Postwrapper("http://www.neopets.com/login.phtml", "username=" & txtUser.Text & "&password=" & txtPass.Text & "&destination=%2petcentral.phtml")

What have I done here?
I have exchanged the username & pass with with the txt Boxes.
So now it will post whatever you put in the text boxes.

Now we want to check if the password & or username is correct.
Log out of neo type in your username & enter a bad password.
Look for something unique to the bad password page. In this case its "badpassword" so now we are going to check if strHTML as "badpassword" in it.

Dim strHTML as String

strHTML = wrapper.Postwrapper("http://www.neopets.com/login.phtml", "username=" & txtUser.Text & "&password=" & txtPass.Text & "&destination=%2petcentral.phtml")

If InStr(1, strHTML, "badpassword") then
lblStatus.Caption = "Bad Password, Try Again"
End If

Whats this?
Its an instr Function. It checks to see if strHTML as "Badpassword" & if it does it will display the message in the label.

Now go back to the neo login page, enter the username of a frozen account.
Check the page for a unique text. In this case its "This account has been"
So add the code.

Dim strHTML as String

strHTML = wrapper.Postwrapper("http://www.neopets.com/login.phtml", "username=" & txtUser.Text & "&password=" & txtPass.Text & "&destination=%2petcentral.phtml")

If InStr(1, strHTML, "badpassword") then
lblStatus.Caption = "Bad Password, Try Again"
ElseIf InStr(1, strHTML, "This account has been") then
lblStatus.Caption = "Account Frozen, Try Another"
End If

Next Check to see the password is correct.

Dim strHTML as String

strHTML = wrapper.Postwrapper("http://www.neopets.com/login.phtml", "username=" & txtUser.Text & "&password=" & txtPass.Text & "&destination=%2petcentral.phtml")

If InStr(1, strHTML, "badpassword") then
lblStatus.Caption = "Bad Password, Try Again"
ElseIf InStr(1, strHTML, "This account has been") then
lblStatus.Caption = "Account Frozen, Try Another"
ElseIf InStr(1, strHTML, "petcentral") then
lblStatus.Caption = "Congrats Logged In."
End If

SO now we have it checking. Its always go to add an Else to If statments so if it cant find anyof them it will do the else. (if the page doesnt load properly etc.)

Dim strHTML as String

strHTML = wrapper.Postwrapper("http://www.neopets.com/login.phtml", "username=" & txtUser.Text & "&password=" & txtPass.Text & "&destination=%2petcentral.phtml")

If InStr(1, strHTML, "badpassword") then
lblStatus.Caption = "Bad Password, Try Again"
ElseIf InStr(1, strHTML, "This account has been") then
lblStatus.Caption = "Account Frozen, Try Another"
ElseIf InStr(1, strHTML, "petcentral") then
lblStatus.Caption = "Congrats Logged In."
Else
lblStatus.Caption = "Unknown Error"
End If

There you go. Sorry for the long tutorial But I wanted to explain it.
You can also add extra checks like suspensions, how long left etc.

I hope this helps.
You can use the neo account to practice. Its a crap account.
If you have any questions Post them here
Pictures By: Kane
Code By: Kane
Tutorial By: Kane

I've probably fucked up somewhere xD Cause I wrote it off the top of my head. So if there is a mistake tell me. Thanks

[Nasadaws]

nice guide i only just started vb and found this easy too use =)
(i would +rep but i have none)

[likepeas]

Where to you DownLoad VB ?




Likepeas

[hedgeehog]

Well it looks good. I could never write somthing that big.

Handy to those who need it.

[Connor]

Thanks!
I just need to learn how to make it redirect to my next form ¬_¬

[Jello]

Very nice guide ;)
+rep.
Also look for a rip of VB6 Peas.

[Meilin No Yuutsu]

Wow, hey thanks for the guide. Very well put together ^_^

[Connor]

Option Explicit
Private Sub cmdlogin_Click()
Dim strHTML As String
strHTML = wrapper.PostWrapper("http://login.gaiaonline.com/gaia/login.php", "username=txtuser.text&x=32&y=12&password=txtpass.text&submit=Login&sid=50fdacdc60471930e84c0b87ddfd19c4&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F")
If InStr(1, strHTML, "ERROR") Then
lblstatus.Caption = "Incorrect Password, Try Again"
End If
If InStr(1, strHTML, "banned") Then
lblstatus.Caption = "Sorry. Your account is banned. >_<"
End If
If InStr(1, strHTML, "Gold") Then
lblstatus.Caption = "You have logged in successfully."
End If
End Sub

This is my code for a gaia login.
When I try to compile it, the program highlights the word 'wrapper' and an error comes up. WTF?

[Kiizii3]

this looks pretty good

[G3]

You need to find one.
http://www.gaminggutter.com/search.php?searchid=107560