Making A Simple Login. (Vb6)

omgcat · 05-07-2007, 03:47 PM

Ill give you some of the code to make a easy login... You will code the rest!

Ok. first thing to do is add the http wrapper, and moduels into the program.. or else it wont compile right!

Make a textbox, label it txtuser, make another one right under it and label it txtpass.

After you have done this, make a button.. label the button cmdlogin.

After you have done this, Use this code.. I will break it up into pieces.. so you can understand it. (take out the spaces)

Code:

Private Sub cmdLogin_Click()
Dim strHTML As String
strHTML = w.PostWrapper("http://neopets.com/login.phtml", "username=" & txtuser & "&password=" & txtpass & "&destination=%2Fpetcentral.phtml", "http://neopets.com/hi.phtml")
If InStr(1, strHTML, "badpassword") Then
msgbox "Bad Password for account " & txtuser.Text
ElseIf InStr(1, strHTML, "This account has been") Then
msgbox "The account " & txtuser.Text & " has been frozen"
ElseIf InStr(1, strHTML, "petcentral") Then
msgbox "Logged in as " & txtuser.Text

Ok the first part is this:

Code:

Dim strHTML As String
strHTML = w.PostWrapper("http://neopets.com/login.phtml", "username=" & txtuser & "&password=" & txtpass & "&destination=%2Fpetcentral.phtml", "http://neopets.com/hi.phtml")

This part of the code is telling the wrappper (httpwrapper) to go to the neopets website and put in the parts of text it needs to log in. This is what it does.. in example if the txtuser is omgcat and the txtpass is omgcat

http://neopets.com/login.phtml/usern...tcentral.phtml

Code:

If InStr(1, strHTML, "badpassword") Then
msgbox "Bad Password for account " & txtuser.Text
ElseIf InStr(1, strHTML, "This account has been") Then
msgbox "The account " & txtuser.Text & " has been frozen"
ElseIf InStr(1, strHTML, "petcentral") Then
msgbox "Logged in as " & txtuser.Text

This is telling the program to search the page and look for the words. and if it finds the specific word it will tell you if it has logged in or not.

You have successfully made a login.

second2none · 05-07-2007, 11:24 PM

With txtUser & txtPass you should make them. txtUser.Text & txtPass.Text.. thats all im gonna say. Not the best tutorial lol.

omgcat · 05-08-2007, 07:22 AM

Quote:

Originally Posted by Dooper

With txtUser & txtPass you should make them. txtUser.Text & txtPass.Text.. thats all im gonna say. Not the best tutorial lol.

txtuser and txtpass both work.. Been using them since I started programming lol. I dont get any mismatch errors either o.o

second2none · 05-08-2007, 11:34 PM

So.. the proper way is to put .text, You will get errors. Just cause you dont.. doesnt mean other people wont & then they wont know what to do.

thejurm · 06-21-2007, 10:54 PM

I have some errors:
Error 1 Name 'w' is not declared. C:\Documents and Settings\HP_Administrator\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 5 19 WindowsApplication1
Error 2 Operator '&' is not defined for types 'String' and 'System.Windows.Forms.TextBox'. C:\Documents and Settings\HP_Administrator\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 5 67 WindowsApplication1
Error 3 'If' must end with a matching 'End If'. C:\Documents and Settings\HP_Administrator\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 10 9 WindowsApplication1
Error 4 Statement cannot appear within a method body. End of method assumed. C:\Documents and Settings\HP_Administrator\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 13 1 WindowsApplication1

Note that I am just now starting to use VB :o

--

Edit: My bad, it says take out the spaces

**Connor** · 07-01-2007, 05:45 AM

Where can I get HTTPWrapper? :O Or do I use GGCheck
? I don't get it ¬_¬