• Home
 · 
• Encryption
 · 
• Code to put in a password form, only gives the user 3 tries to enter the correct password then auto

Code to put in a password form, only gives the user 3 tries to enter the correct password then auto

Code to put in a password form, only gives the user 3 tries to enter the correct password then automatically unloads.

Rate Code to put in a password form, only gives the user 3 tries to enter the correct password then auto

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

On Error Resume Next
Dim counter As Integer
Dim pw As String
pw = Text1.Text
counter = counter + 1
         If counter > 2 Then
         MsgBox "Strike 3 Your Out", vbCritical
         End
            Else
            If pw <> "PASSWORD" Then
            MsgBox "Strike " & counter
            Text1.SelStart = 0
            Text1.SelLength = Len(Text1)
            End If
         End If
                If pw = "shariff" Then
                Form1.Visible = True
                Unload PassWordfrm
                End If
End Sub
Private Sub Command2_Click()
End
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
Command1.Default = True
End Sub