*Tut* how to make a login system

[u1111u]

his tut is about how to make a simple login system on vb8

first you will need:

Brain!
2 textbox's
2 buttons
2 labels

Okay lets start!

first go to file>new project
Add all the stuuf u will ned
(2 textbox's 2 buttons 2 labels)
Then place them out how you want.

First rename button1 on to:
Login
Secondly rename button2 to:
Exit
Then rename label 1 to:
Username
Then rename label2 to:
Password

now go to:
Project>Add windows form>name it

Now it should look some thing like this:



Now lets get on to the code (Dont be scared it so so easy)

Right code for exit:
Me.Close
Code for Login:
If TextBox1.Text = ("Username") Then
TextBox1.Text = ("Password")
Form2.Show()

If you want it to be a bit more professinal
clcik on textbox2 look for password char and type *

*note* I made this tut on my site so you know im not trying to take credit.

thanks~
u1111u

[Noxit]

Yea I forgot to do this, thanks.
I will try to C++ soon.

[u1111u]

thannks. will u thank me (press the thanks button?) please ty

[Pixie]

This goes in the Visual Basis Section...

[GG2GG]

someone make me one and ill do a tut on how to hack it

This goes in the Visual Basis Section...

no it goes in the tutorial section you dumb fuck

[Insomniac]

why just get the pass

[n3m1s1s]

O rly? You are M60? I doubt that...

[beteasta3]

Nice tut dude

[D3sTrUvTiVe FlaRe]

Bit simpal, but thankss

[dragonzz]

This is better:

        If TextBox1.Text = ("Username") And TextBox2.Text = ("Password") Then
            Form2.show()
        Else
            MsgBox("You have entered an incorrect")

[sgtmattbaker]

Any one with a brain and a debugger could crack that in two minutes tops.

[James00Gauge]

Hey I'd like to ask if you know how to code for other websites's usernames?
I mean, if i were making a program that would log me into myspace, facebook, and twitter all at once, could you tell me the code to do this?

[tuve2]

repost -.-

[JPU666]

Here is another code you can use

Dim setuser As String
Dim setpass As String

'//--- Form Load --- //
Private Sub FormLoad() Handles Me.Load
 setuser = "Username Here"
 setpass = "Password Here"
End Sub

'//--- Press Button ---//
Private Sub Login_Try () handles button1.click
 If ( Textbox1.Text = setuser ) and ( Textbox2.Text = setpass ) then
  Login_Accept()
 Else
  MsgBox("Wrong",MsgBoxStyle.Critical,"WARNING")
 End If
End Sub

'//--- Do this when the login is correct ---//
Private Sub Login_Accept()
 Form2.Show()
End Sub