Programming Forums > Application Development > Visual Basic

fox123 · Apr 4th, 2005, 2:37 PM

Hi,
Please help!
I need some code so that if someone enters a wrong password, a countdown starts from 100 that stops them from accessing that form during the countdown. (so they cant get the passsword)
Also is it possible if the program exits, for the countdown to resume where the exit occured?

I know it sound strange but would appreciate any suggestions

thechristelegacy · Apr 4th, 2005, 3:30 PM

You should give it a try first, but I'm assuming there would be a time module.

Ooble · Apr 4th, 2005, 3:43 PM

Take a peek at the Timer control.

tempest · Apr 4th, 2005, 4:18 PM

Quote:

that form during the countdown. (so they cant get the passsword)

The correct password shouldn't be in a form in the first place, it should be a variable (preferably hashed) inside of your program. Only what the user enters should be in a password field!

Rory · Apr 4th, 2005, 8:03 PM

This'll work inline, just add a label for the countdown.

(Toggle Plain Text)

Private Sub ShowTimeOut()
Dim PrevTime As Single
Dim TickCount As Integer
TickCount = 10
Label1.Caption = TickCount
Do
    PrevTime = Timer

    Do
        DoEvents
    Loop While (Timer - PrevTime) < 1
    TickCount = TickCount - 1
    Label1.Caption = TickCount
Loop While TickCount > 0
End Sub

Private Sub Form_Activate()
ShowTimeOut
MsgBox "Boom"
End Sub

Obviously you'd actually put:

(Toggle Plain Text)

Me.Enabled = False
ShowTimeOut
Me.Enabled = True

Apr 4th, 2005, 2:37 PM	#1
fox123 Newbie Join Date: Mar 2005 Posts: 25 Rep Power: 0	Password Expiry / Lock Hi, Please help! I need some code so that if someone enters a wrong password, a countdown starts from 100 that stops them from accessing that form during the countdown. (so they cant get the passsword) Also is it possible if the program exits, for the countdown to resume where the exit occured? I know it sound strange but would appreciate any suggestions

Apr 4th, 2005, 3:43 PM	#3
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Take a peek at the Timer control. __________________ Me :: You :: Them

Apr 4th, 2005, 8:03 PM	#5
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	This'll work inline, just add a label for the countdown. (Toggle Plain Text) Private Sub ShowTimeOut() Dim PrevTime As Single Dim TickCount As Integer TickCount = 10 Label1.Caption = TickCount Do PrevTime = Timer Do DoEvents Loop While (Timer - PrevTime) < 1 TickCount = TickCount - 1 Label1.Caption = TickCount Loop While TickCount > 0 End Sub Private Sub Form_Activate() ShowTimeOut MsgBox "Boom" End Sub Private Sub ShowTimeOut() Dim PrevTime As Single Dim TickCount As Integer TickCount = 10 Label1.Caption = TickCount Do PrevTime = Timer Do DoEvents Loop While (Timer - PrevTime) < 1 TickCount = TickCount - 1 Label1.Caption = TickCount Loop While TickCount > 0 End Sub Private Sub Form_Activate() ShowTimeOut MsgBox "Boom" End Sub Obviously you'd actually put: (Toggle Plain Text) Me.Enabled = False ShowTimeOut Me.Enabled = True Me.Enabled = False ShowTimeOut Me.Enabled = True

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 4th, 2005, 3:30 PM	#2
thechristelegacy Expert Programmer Join Date: Jul 2004 Location: Somerset, Pa Posts: 708 Rep Power: 5	You should give it a try first, but I'm assuming there would be a time module.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

Password Expiry / Lock