CODE

Private Sub Form_Load()

End Sub

CODE

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

CODE

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

CODE

Login_Name:
MyName = InputBox("Please, enter Your name.", "Introduce yourself", "")
If MyName = "" Then
 Response = MsgBox("To continue with the program, You need to introduce Yourself." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
 If Response = vbYes Then GoTo Login_Name
 If Response = vbNo Then
   MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
   End
 End If
End If

CODE

Login_UName:
MyUName = InputBox("Good day " & MojeIme & ", please, enter Your user name.", "Login", "")
If MyUName = "" Then
 Response = MsgBox("To continue with the program, You need to enter username." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
 If Response = vbYes Then GoTo Login_UName
 If Response = vbNo Then
   MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
   End
 End If
End If

CODE

Login_Pass:
MyPass = InputBox("Please, enter a password for user name " & MyUName & ".", "Login", "")
If MyPass = "" Then
 Response = MsgBox("To continue with the program, You need to enter Your password." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
 If Response = vbYes Then GoTo Login_Pass
 If Response = vbNo Then
   MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
   End
 End If
End If

CODE

If (Saved_Name = MyUName) And (Saved_Pass = MyPass) Then
 MsgBox "Good day " & MyName & "." & vbCrLf & "Welcome to our programm, we wish You pleasant work.", vbInformation + vbOKOnly, "Welcome"
Else
 MsgBox "We are sorry, username and/or password are not correct", vbCritical + vbOKOnly, "Error"
 End
End If

QUOTE

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

CODE

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

CODE

Dim TotUser As Integer 'The total number of users
Dim TempName As String 'For the name
Dim TempPass As String 'For the pass
TotUser = 1
Open "pass.txt" For Input As #1 'we open file with data we need
Do Until EOF(1)
Line Input #1, TempName ' We read username from file
Line Input #1, TempPass ' We read password from file
TotUser = TotUser + 1 'Add one to TotUser
ReDim Preserve Saved_Name(1 To TotUser) 'Expand the array
Saved_Name(TotUser) = TempName
ReDim Preserve Saved_Pass(1 To TotUser) 'Expand the array
Saved_Pass(TotUser) = TempPass
Loop
Close #1 'we close the file

CODE

Login_Name:
MyName = InputBox("Please, enter Your name.", "Introduce yourself", "")
If MyName = "" Then
Response = MsgBox("To continue with the program, You need to introduce Yourself." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
If Response = vbYes Then GoTo Login_Name
If Response = vbNo Then
MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
End
End If
End If

CODE

Login_UName:
MyUName = InputBox("Good day " & MojeIme & ", please, enter Your user name.", "Login", "")
If MyUName = "" Then
Response = MsgBox("To continue with the program, You need to enter username." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
If Response = vbYes Then GoTo Login_UName
If Response = vbNo Then
MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
End
End If
End If

CODE

Login_Pass:
MyPass = InputBox("Please, enter a password for user name " & MyUName & ".", "Login", "")
If MyPass = "" Then
Response = MsgBox("To continue with the program, You need to enter Your password." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
If Response = vbYes Then GoTo Login_Pass
If Response = vbNo Then
MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
End
End If
End If

CODE

Dim i As Integer 'For the For Next Loop
For i = 1 To TotUser 'Check every user.
If (Saved_Name = MyUName(i)) And (Saved_Pass = MyPass(i)) Then
MsgBox "Good day " & MyName & "." & vbCrLf & "Welcome to our program, we wish You pleasant work.", vbInformation + vbOKOnly, "Welcome"
Exit sub 'You are logged in!
Else
If i = TotUser Then
MsgBox "We are sorry, username and/or password are not correct", vbCritical + vbOKOnly, "Error"
End
End If
End If
Next i

CODE

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

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

CODE

if textbox1.text = "pass" then
me.hide
show.form2

QUOTE (kitty)

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 ([font="Courier"]Private Sub Form_Load()[/font]), the last line, visual basic will add automaticaly ([font="Courier"]End Sub[/font]).

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..

Link: view Post: 151326