• Home
 · 
• Miscellaneous
 · 
• It is a Login/Password script. After three incorrect entry's the form will be disabled for a minute

It is a Login/Password script. After three incorrect entry's the form will be disabled for a minute

It is a Login/Password script. After three incorrect entry's the form will be disabled for a minute.

Rate It is a Login/Password script. After three incorrect entry's the form will be disabled for a minute

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Static x As Integer, boovaliduser As Boolean

If Text1.Text = "Nick" And Text2.Text = "1234" Then
Form1.Show
Me.Hide
boovaliduser = True
Else
boovaliduser = False
End If
x = 1 + x
If x = 3 Then

Label2.Caption = "Incorrect"
Text1.Enabled = False
Text2.Enabled = False
Timer1.Enabled = True
x = 0

End If



End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Text2_Change()
Text2.PasswordChar = "$"

End Sub

Private Sub Text2_GotFocus()
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub

Private Sub Timer1_Timer()
If Timer1.Interval = 10000 Then
Text1.Enabled = True
Text2.Enabled = True
Timer1.Enabled = False
Label2.Caption = "Nick's Noting Program"
End If

End Sub