How to make an Advanced Login System in visual basic 6.0 [Portable]

Module 1

Public Sub Creatuser()
On Error GoTo A
Dim user, pass As String
user = Form2.Text1.Text
pass = Form2.Text2.Text
Open App.Path & "/Users/" & user & ".urs" For Output As #1
Print #1, user
Print #1, pass
Close #1
MsgBox "Your account has been created", vbInformation, "Congratulations"
Form2.Text1.Text = ""
Form2.Text2.Text = ""
Exit Sub
A:
MsgBox "Can't Make Account", vbCritical, "Error"
'don't worry the codes will be in the description!
End Sub

Module 2


Public Sub TryLogin()
On Error GoTo A
Dim user, pass, RUser, Rpass As String
user = Form1.Text1.Text
pass = Form1.Text2.Text
Open App.Path & "/Users/" & user & ".urs" For Input As #1
Input #1, RUser
Input #1, Rpass
Close #1
If user = RUser Then If pass = Rpass Then GoTo Login Else
End If
End If
MsgBox "Password is invalid", vbCritical, "Error"
Exit Sub
Login:
MsgBox "Login Succesfuly", vbExclamation, "Success"
Form3.Show
Exit Sub
A:
MsgBox "Username is invalid", vbCritical, "Invalid Info"
' remember i will give codes!
' and they will be labeled so you will know!

Category:

Science & Technology

Tags:

• Visual
• Basic
• 6.0
• Advanced
• Login
• Program

[gamer456781]

you suck

[kazuya899]

i know u do =)

[kazuya899]

Hey guys, the codes i gave in the description are the ones that i used in the video! be aware of that

[JohnnyMassacreTV]

My register feature dont work for some reason.

[007row]

@kazuya899 that mothafucking *click* really sucks!

[SmokeyCannon72]

error can't make account

[qweasdzxc12330]

Its awsome I really love it! Just 1 thing thoe. When I make it the place where it's aspost to say their Username and Password It only says there username on the file then when u click on it it says that file is invalid May you please help me?

[CPTrainer100]

thanks sooooooooooooooooooooooooooooo­oooooooooooooooooooooo much!!!

[CPTrainer100]

it says end if without block if

[starcatcher164]

what if i want to put the password and username on a database table in sql? whats the new path i need to type? help plz. ty

[luckyme034]

if someone uses it on a different computer will it save into my notpad??