beteasta3 (08-21-2009),James00Gauge (11-26-2009),le condor (11-10-2009)
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
Joe06 Backup
beteasta3 (08-21-2009),James00Gauge (11-26-2009),le condor (11-10-2009)
Yea I forgot to do this, thanks.
I will try to C++ soon.
--
thannks. will u thank me (press the thanks button?) please ty
Joe06 Backup
This goes in the Visual Basis Section...
why just get the pass
[V.I.P] (08-25-2009)
O rly? You are M60? I doubt that...
Nice tut dude
[IMG]https://i488.photobucke*****m/albums/rr247/beteasta1/naruto2.png[/IMG]
[img]https://www.danasof*****m/sig/231698.jpg[/img]
Press The Thanks Button..Can't Hurt!!
This is better:
Code:If TextBox1.Text = ("Username") And TextBox2.Text = ("Password") Then Form2.show() Else MsgBox("You have entered an incorrect")
Any one with a brain and a debugger could crack that in two minutes tops.
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?
repost -.-
Here is another code you can use
Code: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