Simple Login In Visual Basic 6

First of all, I am NOT a programmer, this is something my friend taught me. It describes basic interaction with the user, while showing basic functionality of this simple programm. So, without further ado, we're off to the tutorial:

First of all, start your visual basic, when prompted for new project, select Standard Exe. Next, we need to open code window, so we can start typing the program. This can be done in two ways, one is double clicking on the form, or selecting Code from View menu.

If you double clicked on the form, you will see following text:If you don't see it, you will need to type it by hand. You will only need to type the first line (Private Sub Form_Load()), the last line, visual basic will add automaticaly (End Sub).

Next, we need to declare variables we will use in our program. Here's the next piece of code:This part is simple, we only prepare variables for use (I know there is more technical explanation for this, but I can't remember ).

Now, we need to read username and password from the file. Now, for this example, we will use simple text file. You can create it using notepad (I don't think you need a tutorial on that ). In that file, write the username you want, and in next line, write the password. Now, add the following code:

Now that we have done this, we can proceed with basic interaction with the user:
First, we ask a user, to enter his full name, so we can know how to address him/her. If the user doesn't enter his/hers name, we will tell him he/she needs to enter it, or to quit the program. I believe the code is very self explainatory.

Next, we will prompt for user name. This is the information that we need for successfull login.
This is basicaly the same thing we used for prompting for full name, just with different variables.

Next, we ask the user to enter his/hers password, to authenticate into system:
OK, I guess you noticed this is the same thing I used in two earlier segments of programm. I was told it can be done with functions or subs, but I haven't learned it yet I guess I'll post another tutorial when I learn how to do that

OK, we're almost done. All we have to do is check if username and passwords match, and if that is the case, we can proeed with programm. If not, we tell the user he/she made a mistake, and exit the programm. Here is the programm for that segment:
Here, we check if saved username is the one entered, and if the saved password is the one entered. If they match, we allow the user to access the programm, if not, we tell him/her there is an error, and exit the programm.

I learned this recently, and I hope I passed that knowledge to some of you..

Hey, Nice tutorial. But it seems only one user that can login!. It's better if we can use new way, so not only one user that can use the program. Anyone has an idea?, I'm not good in Visual Basic 6

I've used VB6 for 9 years. I'll post the code for how I would do it, however I'm sure there is more than just one way to create a simple login system. It'll just take a couple changes to the kitty's code to implement other users.

We can copy the first part of kitty's code right into the form almost without changes. Here it is:


The only real difference between my code and his/her's is that Saved_Name and Saved_Pass are now arrays. Arrays can hold more than one value, each value in an array is given a number.



The ReDim statement resizes the array (creates more elements). The Preserve in the ReDim statement means to make sure the data originally in the array stays there. Without the preserve statement, only the last username and password would be in the array, all the others would be "" or NULL.

The next bit of code stays the same.



So does the next bit




and the next bit



Finally something actually changes!!



Place all this code together and it will work fine! Feel free to PM me with any questions you may have.


[code]

Very very good, I will try it soon. Thanks ghost!

internet cafe..
Simple Login In Visual Basic 6

How can I make a program with log-in log-out in my internet cafe using vb6?
Also a time code...

-question by camille

How to prevent multiple user login using one account in VB
Simple Login In Visual Basic 6

I am writing a VB 6 program that shd run on the network. A user has to login before using the program. Now, I want to prevent multiple user login using one user account. It shouldn't allow or prevent a user to login whilst his/her account is in use. I am using MS SQL Server 2000 Database.
Please, can anyone help me with this? I would be very grateful if you could help me with this.

-question by King Acheampong

Sub programs
Simple Login In Visual Basic 6

Replying to kitty

If you type Sub the name of the sub program and press enter you have a sub program. Then all you have to do is put in the code.

Example

Sub Celebrate()
Label1.Visible = False
ImgDefence.Visible = False
Cls
BackColor = QBColor(15)
ForeColor = QBColor(12)
FontSize = 72
FontName = "Times New Roman"
FontItalic = True
CurrentX = 50
CurrentY = 150
Print "Victory To The Hearts!"
Delay 5
End
End Sub

Hope I helped.

-reply by Naomi

Great code BUT i slightly changed it and i get the wrong password dude everytime and the pass.txt is so far only:

test
test

So should be good enough i enclosed the code i used please help thanks

Code :

Private Sub Form_Load()
Dim MyName As String ' This variable contains users full name
Dim MyUName As String ' This variable contains users login name (username)
Dim MyPass As String ' This variable contains users password
Dim Response As Integer ' This variable contains users answers from message boxes
Dim Saved_Name As String ' This variable contains saved username from file
Dim Saved_Pass As String 'This variable contains saved password from file

Open "pass.txt" For Input As #1 'we open file with data we need
Line Input #1, Saved_Name ' We read username from file
Line Input #1, Saved_Pass 'We read password from file
Close #1 'we close the file

Login_Name:
MyName = InputBox("Skriv dit navn.", "Dit navn", "")
If MyName = "" Then
Response = MsgBox("Skriv dit navn eller det bliver værst for dig selv ." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
If Response = vbYes Then GoTo Login_Name
If Response = vbNo Then
MsgBox "Nå ikke!." & vbCrLf & "God dag til dig", vbInformation + vbOKOnly, "End"
Form2.Visible = True
End If
End If
Login_UName:
MyUName = InputBox("Login " & MojeIme & ", Skriv dit brugernavn.", "Login", "")
If MyUName = "" Then
Response = MsgBox("Skriv dit brugernavn er du dum?." & vbCrLf & "Vil du fortsætte?", vbCritical + vbYesNo, "Error")
If Response = vbYes Then GoTo Login_UName
If Response = vbNo Then
MsgBox "Synd for dig." & vbCrLf & "God dag til dig", vbInformation + vbOKOnly, "End"
Form2.Visible = True
End If
End If

Login_Pass:
MyPass = InputBox("skriv password til brugernavn " & MyUName & ".", "Login", "")
If MyPass = "" Then
Response = MsgBox("Skriv dit password." & vbCrLf & "Vil du fortsætte?", vbCritical + vbYesNo, "Error")
If Response = vbYes Then GoTo Login_Pass
If Response = vbNo Then
MsgBox "Synd for dig." & vbCrLf & "Hav en god dag", vbInformation + vbOKOnly, "End"
Form2.Visible = True
End If
End If

If (Saved_Name = MyUName) And (Saved_Pass = MyPass) Then
End
Else
MsgBox "Nope dude, brugernavn og/eller password er forkert", vbCritical + vbOKOnly, "Error"
Form2.Visible = True

End If



End Sub

and a form1 with a button and code :

Private Sub Command1_Click()
Form2.Visible = True

End Sub

Private Sub Form_Load()

App.TaskVisible = False (btw not full proff because the .exe name is still visible in processes not application any help on this too is appreciated or any coder can just close app from there :/)


End Sub



This post has been edited by dolph: Nov 6 2008, 06:43 PM

how to prevent mutiple logins
Simple Login In Visual Basic 6

I am also beginner in vb6 but you can try to make an txtfile at login I an shared map and check if the file exists. And if you log out you delete it. You can use filesystemobject to do this. Just go to project,references and select windows script host object model. Here is the code to use it.
Text1.Text is the textbox where the username is entered. Command 1 is to log in and command 2 to log out

(private declarations)
Dim file as string
Private Sub Command1_Click()

Dim f as new filesystemobject
File = ("C:\sharedfolder\") & text1.Text &(".Txt")
If f.Fileexists (file) then
Msgbox "user already loged in"
Else
F.Createtextfile("C:\sharedfolder\") & text1.Text &(".Txt")
End if
End sub

Private Sub Command2_Click()

f.Deletefile(file)

end sub

I hope I helped you with this and sorry for my bad english I am dutch and 13 years old.

greeting jason

Dang that would be complicated for beginners to understand, I just use a simple one that can easily be found out using olydbg but i still use it, it's just like a

But I like your style of thinking XD