i am working on a program that locks your computer after a preset time, sort of like the type you would find in an internet cafe etc, but it doesnt work properly.

when its unlocked and a time enterd it passes the time (in minutes to a form that shows your time, the time is placed in a variable (minutevar), another variable (secondsvar) is set to 60 and a timer is run.

The timer counts down in 1000 ms increments and each time its sub is triggerd it subtracts 1 from the second variable (secondsvar) and then updates the display. it then subtracts 1 from the first variable (minutevar) IF secondsvar = 0 then it updates the display.

IF minutevar = 0 then it shows the Lock form and hides its self otherwise it continues.

the first time the timer is run, it works perfectly, the time is set, the timer counts down and it locks the computer when its supposed to, then when i try and unlock it again it unlocks the time is enterd and the timer set BUT the timer has frozen and no longer counts down, i have tried setting a breakpoint on the timer, it works the first time and breaks but the second time it doesnt break, which indicates to me that the timer isnt running.

If Anyone has any ideas on how to fix this problem please let me know, i can provide source code if needed in either text or file form.

11 Years
Discussion Span
Last Post by QVeen72

PS. I have tried many diffrent things and nothing seems to work for me


i am also working with this type of coding to lock like in the cyber cafe,if u plz,give me ur full code then i can check this with my code and hope that we both success in this code can u mail me your code file on my id--- amit6sharma86@rediffmail.com
if i done this then i forward the correct code to you ok


I'm not sure I even still have the code, this was 3 years ago.



Say, you want to lock the Computer, if there is no activity for 5 mins continus.. then you need to have a Timer.
Timer's Interval is 1000 ms(1 sec)
By Default Timer is enable all the time.
Declare a FormLevel Variable
MyVar as Integer.

Make Form's property Keypreview=True.
In KeyUp , KeyPress, MouseMove , MouseUp events of form, make
MyVar = 0
Timer1.Enabled = True

In Timer's Timer event Increment
MyVar = MyVar+1
If MyVar >= 300 Then
' Write Code To Lock the Computer here
Timer1.Enabled =False
MyVar = 0
End If


This article has been dead for over six months. Start a new discussion instead.
Take the time to help us to help you. Please be thoughtful and detailed and be sure to adhere to our posting rules.