by DaDuke40 (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 4th July 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
It is a Login/Password script. After three incorrect entry's the form will be disabled for a minute.
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
No comments have been posted about It is a Login/Password script. After three incorrect entry's the form will be disabled for a minute. Why not be the first to post a comment about It is a Login/Password script. After three incorrect entry's the form will be disabled for a minute.