Visual Basic: How to create a Username & Password (Basic Security)



Are you ready to learn how to create a basic security system for your Visual Basic project? Today's tutorial is going to go over a basic system that requires a person to enter a Username and Password, before they can access the main interface / premium pages on your App.

Before we get started, you are going to need to add the following to your Form.

• Textbox1
• Textbox2
• Button1

Bellow is the 'bonus' code / script for this tutorial

1. Public Class Form1
2.     Dim Username = "username" 'enter your username
3.     Dim Password = "password" 'enter your password
4.     Dim UP As Integer
5.     Private Sub usernamepassword()
6.         UP = 0
8.         If TextBox1.Text = "username" Then
9.             UP = UP + 1
10.         Else
11.             UP = UP - 1
12.         End If
13.         If TextBox2.Text = "password" Then
14.             UP = UP + 1
15.         Else
16.             UP = UP - 1
17.         End If
18.         'Now Check UP Value to see if the username and password work
20.         If UP = 2 Then
21.             MessageBox.Show("Welcome, the password and username worked!"
22.                             )
23.             'Show a form or something
24.         ElseIf UP = -2 Then
25.             MessageBox.Show("Wrong Username or Password")
26.         End If
28.     End Sub
29.    
30.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
31.         'check if text is entered
32.         If TextBox1.Text = "" And TextBox2.Text = "" = True Then
33.             MessageBox.Show("Please enter a username and password"
34.                             )
35.         ElseIf TextBox1.Text = "" = True Then
36.             MessageBox.Show("Please enter a username")
37.             If TextBox2.Text = "" = True Then
38.                 MessageBox.Show("Please enter a password")
39.             End If
40.         Else
41.             usernamepassword() 'Check system
42.         End If
43.     End Sub
45.    
46. End Class