Windows system idle workstation lock

[RogFleming]

I know about GPO and such, I just wanted something different to use to lock the computer.

I have experanced issues that after running it, that after a few passes the variables no longer increase in value. Even if I start the process again, is this normal for the GO feature of the Editor? Seems the only to get the GO to work again is to reboot my computer. Does any one have any ideas?

I got the IsPressedEx_UDF.au3 from the forums.....

expandcollapse popup

#Include <Misc.au3>
#include <IsPressedEx_UDF.au3>
$sec = 10

Opt("MouseCoordMode", 1)
Global $inc, $pos1, $pos2, $sec, $iRet, $hU32_DllOpen, $timer
Mousecheck()

Func KeyboardCheck()
    $hU32_DllOpen = DllOpen("User32.dll")
    MsgBox(1,"Status1","Keyboard Check" & ":" & $timer,1)
    $check = 0
    while 1
        $iRet = _IsPressedEx("[:ALLKEYS:]", $hU32_DllOpen)
        Sleep(75)
        If $iRet = 1 Then
        DllClose($hU32_DllOpen)         
            Return $iRet
        Else
            $check = $check+1
            MsgBox(1,"Status2","Keyboard Check" & ":" & $timer,1)
        EndIf
        If $check > 10 Then
        DllClose($hU32_DllOpen)           
        Return $iRet
        EndIf
    WEnd
    DllClose($hU32_DllOpen)
    Return
EndFunc 

func MouseCheck()
    MsgBox(1,"Status1","Checking for Mouse movement.",1)
    $timer = 0
    MsgBox(1,"Status2","Mouse Check" & ":" & $timer,1)
    While 1
        $pos1 = MouseGetPos(1)
        KeyboardCheck()
        $pos2 = MouseGetPos(1)
        
        If $iRet = 1 Then
            $pos1 = 1
            $pos2 = 2
            $timer = 0
        EndIf
        
        If $pos1 = $pos2 Then 
            $timer = $timer+1
            MsgBox(1,"Status3","Mouse Check" & ":" & $timer,1)
        EndIf
        
        If $timer > $sec Then 
            $answer = MsgBox(292,"Workstation Lock","If you want to continue to work click the YES button.",30)
            If $answer = 7 Then
                Send ("{LWINDOWN} + {l}",0)
            Else
                $timer = 0
            EndIf  
        EndIf
        
    WEnd
EndFunc

[TurionAltec]

#Include <Timers.au3>

_Timer_GetIdleTime()

[PsaltyDS]

Is this just a keyboard/mouse idle timer? Seems like your life could be simpler with _TimerGetIdleTime() in the help file.

Edit: @TurionAltec: Great minds thinking alike...

Edited September 21, 2009 by PsaltyDS

[RogFleming]

Is this just a keyboard/mouse idle timer? Seems like your life could be simpler with _TimerGetIdleTime() in the help file.

Edit: @TurionAltec: Great minds thinking alike...

wow, so many features, thanks did not know it was in there.

Roger

[RogFleming]

Just in case someone wanted the final product:

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=server.ico
#AutoIt3Wrapper_outfile=c:\temp\Idlewindows.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <Misc.au3>
#include <IsPressedEx_UDF.au3>
#Include <Timers.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("TrayMenuMode",1)
HotKeySet("+{ESC}", "_Exit")
Switch $cmdline[0]
    Case 1
        $sTime = $cmdline[1]*60000
    Case Else
        MsgBox(0,"Demo Version","This is just an simulated version of the Idle Program." & @CR & "It will display a message at 10 seconds, then wait 15 seconds" & @CR & "and finally automatically lock the workstation." & @CR & @CR & "To use this in a production Mode:" & @CR &"from the command line type the following:" & @CR & "Idlewindows.exe {time in minutes} before idle expiration." & @CR & "To exit the program hold the SHIFT and ESC keys.")
        $sTime = 10000
EndSwitch
$sBkColor = PixelGetColor (20,20)


while 1
    Sleep(1000)
    $iIdleTime = _Timer_GetIdleTime()
    If $iIdleTime > $sTime Then
        GUICreate(" ",@DesktopWidth,@DesktopHeight+20,1,1)
        GUISetBkColor($sBkColor)
        GUISetStyle($WS_POPUPWINDOW,$WS_CAPTION)
        GUISetState(@SW_SHOW)
        $ichoice = MsgBox(262144+1+256,"Workstation Idle Time Exceeded","Press the Cancel button to stop workstation lock.",15)
        If $ichoice = 2 Then
            GUIDelete()
        Else
            Send ("{LWINDOWN} + {l}",0)
            GUIDelete()
        EndIf
        
    EndIf
WEnd
Func _Exit()
     Exit
EndFunc