Registering / Logging in
Author |
Message |
krikor0322
|
Posted: Mon May 03, 2004 5:27 pm Post subject: Registering / Logging in |
|
|
Hello everyone...
I need to know how to register a username and a password, store it in a bin file or a txt file, and then logging in with the username and password u just registered... if anyone knows how to do it let me know... thanx alot.. |
|
|
|
|
|
Sponsor Sponsor
|
|
|
krikor0322
|
Posted: Mon May 03, 2004 5:29 pm Post subject: BTW |
|
|
I forgot to mention i need this done in VB thanks alot again.. |
|
|
|
|
|
Brightguy
|
Posted: Mon May 03, 2004 7:53 pm Post subject: Re: Registering / Logging in |
|
|
I wrote this really fast, but I tested it and it worked fine. It's just a really simple "username register". It stores the users in a .txt file in the same directory as the application.
To use it, place two Text Boxes (#1 for username, #2 for password) and two Command Buttons on a form (#1 to log in, #2 to register new users).
code: | Private Type UserData
Username As String * 30
Password As String * 30
End Type
Private Sub Command1_Click()
Dim FileIn As Integer
Dim CurrentUser As UserData, CheckUser As UserData
FileIn = FreeFile
Open App.Path & "\users.txt" For Random As #FileIn Len = Len(CheckUser)
CurrentUser.Username = Text1.Text
CurrentUser.Password = Text2.Text
Do While Not EOF(FileIn)
Get #FileIn, , CheckUser
If CurrentUser.Username = CheckUser.Username And CurrentUser.Password = CheckUser.Password Then
MsgBox "Successfully Logged In"
Close #FileIn
Exit Sub
End If
Loop
MsgBox "Unsuccessfully Logged In"
Close #FileIn
End Sub
Private Sub Command2_Click()
Dim FileOut As Integer
Dim SaveUser As UserData
FileOut = FreeFile
Open App.Path & "\users.txt" For Random As #FileOut Len = Len(SaveUser)
SaveUser.Username = Text1.Text
SaveUser.Password = Text2.Text
Put #FileOut, LOF(FileOut) / Len(SaveUser) + 1, SaveUser 'Append userdata to file
MsgBox "Successfully Registered"
Close #FileOut
End Sub |
|
|
|
|
|
|
krikor0322
|
Posted: Mon May 03, 2004 8:05 pm Post subject: wow |
|
|
Thanks alot man... I really appreciate it... |
|
|
|
|
|
|
|