Tutorial 1 - Login system with register

Blog : http://vbasichelper.blogspot.com/
If you have any feel free to post it on the coment section
Code:

Button CLOSE
Me.close End Sub

Button Register Dim usr As String = TextBox1.Text Dim pass As String = TextBox2.Text If usr = "" Then MsgBox("You must choose a username", MsgBoxStyle.Critical) Else If pass = "" Then MsgBox("You must choose a password", MsgBoxStyle.Critical) Else If My.Computer.FileSystem.DirectoryExists("C:\login\" & usr) Then MsgBox("The username already exists", MsgBoxStyle.Critical) Else If My.Computer.FileSystem.DirectoryExists("C:\login") = False Then MkDir("C:\login") End If MkDir("C:\login\" & usr) Dim escrever_pass As New System.IO.StreamWriter("C:\login\" & usr & "\pass.txt") escrever_pass.Write(pass) escrever_pass.Close() MsgBox("Your account has been created!") End If End If End If End Sub

Button LOGIN




Dim usr As String = TextBox1.Text Dim pass As String = TextBox2.Text If usr = "" Then MsgBox("You must choose a username", MsgBoxStyle.Critical) Else If pass = "" Then MsgBox("You must choose a password", MsgBoxStyle.Critical) Else If My.Computer.FileSystem.DirectoryExists("C:\login\" & usr) = False Then MsgBox("The username doesn't exist", MsgBoxStyle.Critical) Else Dim baixar_pass As String = My.Computer.FileSystem.ReadAllText("C:\login\" & usr & "\pass.txt") If pass = baixar_pass Then MsgBox("You're logged in") Else MsgBox("The password is incorrect!", MsgBoxStyle.Critical) End If End If End If End If End Sub

Category:

Education

Tags:

• Blog
• howto
• computers
• programs
• Visual
• Basic
• 2008
• express
• edition
• register
• login
• system

[wengggski]

what a gay voice ;)

[EpiiiCxDGx1]

@wengggski thats shit man :( why you gotta be like that?

[TheStarlitedecay]

@tizzoi nasa description na nga eh obob

[tizzoi]

can i have the source code..? just wanna try.. send here - tizzoi_ian@yahoo.com tnx

[TheseRancidWounds]

Could you please send me this source? Thanks.

-Rancid

[TheRoberto9797]

when I put in a wrong username without a password,I get this:

Could not find a part of the path 'C:\login\dghdhdk\pass.txt'.

Please help me.

[Blackpearl212006]

lazy tutorial maybe show you makeing the database for the created login detials -10 for effort

[LoverMusic80]

thank you so much..., it works... :-) :-)

[Noobishrogue]

Thanks but kinda wanted this with a database but this is one big step :)