by Varun Godbole (15 Submissions)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 2nd July 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Gives you password protection.
intTry = 0
Do
intPassword = Inputbox$("Please enter the password. You have 3 tries.", "Enter Password")
If intPassword = "password" Then
Msgbox "Password Accepted", vbExclamation, "Correct Password"
Form1.Show
Else
Msgbox "Password Declined", vbCritical, "Incorrect Password"
End If
intTry = intTry + 1
Loop Until (intTry = 3 Or intPassword = "password")
End Sub