Login Application
So I did this in a hour or two. I don't know what you guys think, but ye.. ;D
This is pretty basic if u ask me, but all i couldn't do was the database for the password - username storage. If anyone knows how, pls post below thanks 
(btw I'm using Visual Studio Express 2013)
Code:
Public Class Form1
Dim User As String
Dim Pass As String
Dim LoggedIn As Integer
Dim Attempt As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Attempt = 0
LoggedIn = 0
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
User = TextBox1.Text
Pass = TextBox2.Text
Do Until Attempt = 5 Or LoggedIn = 1
If (User = "") Then
MessageBox.Show("Please add a username.", "System32")
GoTo SkipAgain
ElseIf (Pass = "") Then
MessageBox.Show("Please add a password.", "System32")
GoTo SkipAgain
ElseIf User = My.Resources.username And Pass = My.Resources.password Then
MessageBox.Show("Succesfully logged-in.", "System32")
LoggedIn = 1
Else : Attempt = Val(Attempt) + 1
GoTo Skip
End If
Loop
Logging:
If (LoggedIn = 0) Then
MsgBox("You have been temporarily banned from using this service. Please contact someone (WTF) to request for an unban.", MsgBoxStyle.Exclamation, "System32")
GoTo SkipAgain
ElseIf (LoggedIn = 1) Then
Form2.Show()
Me.Hide()
End If
Skip:
If (Attempt = 1) Then
MessageBox.Show("Wrong username - password combination. Try again. You have four more attempts.", "System32")
ElseIf (Attempt = 2) Then
MessageBox.Show("Wrong username - password combination. Try again. You have three more attempts.", "System32")
ElseIf (Attempt = 3) Then
MessageBox.Show("Wrong username - password combination. Try again. You have two more attempts.", "System32")
ElseIf (Attempt = 4) Then
MessageBox.Show("Wrong username - password combination. Try again. You have one more attempts.", "System32")
ElseIf (Attempt = 5) Then
GoTo Logging
SkipAgain:
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Me.Close()
End Sub
Private Sub Button7_MouseDown(sender As Object, e As MouseEventArgs) Handles Button7.MouseDown
TextBox2.UseSystemPasswordChar = False
End Sub
Private Sub Button7_MouseUp(sender As Object, e As MouseEventArgs) Handles Button7.MouseUp
TextBox2.UseSystemPasswordChar = True
End Sub
End Class
(btw I'm using Visual Studio Express 2013)
Originally Posted by zTwix0R
