IsWorkStationLocked() & IsScreenSaverRunning()

[Zinthose]

Here are some useful functions I pieced together and thought I'd share. >_<

expandcollapse popup

DllOpen("user32.dll")

While 1
    Sleep(2000)
    ConsoleWrite(" IsWorkStationLocked = " & IsWorkStationLocked() & @CRLF)
    ConsoleWrite("IsScreenSaverRunning = " & IsScreenSaverRunning() & @CRLF)
WEnd

Func IsWorkStationLocked()
    Local $Desktop, $Return
    
    $Return = DllCall("user32.dll", "long", "OpenDesktopA", "str", "Default", "dword", 0, "ubyte", 0, "dword", 0x100)
    $Desktop = $Return[0]
    
    If $Desktop = 0 Then
        Return True
    EndIf
    
    $Return = DllCall("user32.dll", "long", "SwitchDesktop", "dword", $Desktop)
    DllCall("user32.dll", "long", "CloseDesktop", "dword", $Desktop)
    
    If $Return[0] = 0 Then
        Return True
    Else 
        Return False
    EndIf
EndFunc

Func IsScreenSaverRunning()
    Local $Desktop, $Return, $Result
    
    $Result = DllStructCreate("uint")
    $Return = DllCall("user32.dll", "ubyte", "SystemParametersInfoA", "uint", 0x72, "uint", 0, "ptr", DllStructGetPtr($Result), "uint", 0)
    If $Return[0] = 0 Then Return SetError(, 0, False)
    
    Return DllStructGetData($Result, 1) <> 0
EndFunc

[wibni]

Hi,

would it be possible to unlock a workstation with your script or is this something AutoIt can't do?

[Yashied]

@Zinthose

What do you think about this (few hours ago) and this?

Edited August 14, 2009 by Yashied

[SoulSHepard]

@Zinthose,

just what i was thinking about. saw the functions and while case looped a logger arround it for the console as an addendum

expandcollapse popup

; workstation idle logger for windows
; Functions : IsWorkStationLocked() and IsScreenSaverRunning() by Zinthose
; crappy case while loop code by S0ulSHepard
;

#include <Date.au3>

DllOpen("user32.dll")

$actiondate =  _NowCalc()
$timehaspastmin = 0
$timehaspasthour =0
$tmpString1=0
$tmpString2=0
$prediction="was working for"

While 1
    
        $actiontrigger = False
        
    $file = FileOpen("lockstatus.txt", 1)
    If $file = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    EndIf
    
    $tmpString1=IsWorkStationLocked()
    $tmpString2=IsScreenSaverRunning()

    Sleep(10000)

    if $tmpString1 <> IsWorkStationLocked() Then
        $actiontrigger = True
    
    EndIf
    
    if  $tmpString2 <> IsScreenSaverRunning() Then
        $actiontrigger = True
    
    EndIf
    
    if $actiontrigger = True Then
        $timehaspastsec = _Datediff ( 's' , $actiondate , _NowCalc())
        $timehaspastmin = Round($timehaspastsec / 60,1)
        $timehaspasthour = Round($timehaspastmin /60,1)
        
        select
            case $timehaspasthour >= 1
                $timetype="hour(s)"
                $timehaspast=$timehaspasthour
            case $timehaspastmin >= 1
                $timetype="minute(s)"
                $timehaspast=$timehaspastmin
            case Else
                $timetype="second(s)"
                $timehaspast=$timehaspastsec
        EndSelect
        
        select 
        case IsScreenSaverRunning() = False and IsWorkStationLocked() = False   
            $prediction = "was away for"
        case IsScreenSaverRunning() = True and IsWorkStationLocked() = False
            $prediction = "was working for"
        case IsScreenSaverRunning() = True and IsWorkStationLocked() = True
            $prediction = "(really idle now) was watching my screen for "
        case IsScreenSaverRunning() = False and IsWorkStationLocked() = True
            $prediction = "was working for"
        EndSelect
        
        $outputstring =  _NowCalc() & " - " & "scrsaver=" & IsScreenSaverRunning() & ",Locked=" & IsWorkStationLocked() & ", " & $prediction & " " & $timehaspast & " " & $timetype & @CRLF
        FileWrite($file , $outputstring )
        ConsoleWrite ( $outputstring)
        $actiondate =  _NowCalc()
    EndIf
    
    FileClose($file)
WEnd

Func IsWorkStationLocked()
    Local $Desktop, $Return
    
    $Return = DllCall("user32.dll", "long", "OpenDesktopA", "str", "Default", "dword", 0, "ubyte", 0, "dword", 0x100)
    $Desktop = $Return[0]
    
    If $Desktop = 0 Then
        Return True
    EndIf
    
    $Return = DllCall("user32.dll", "long", "SwitchDesktop", "dword", $Desktop)
    DllCall("user32.dll", "long", "CloseDesktop", "dword", $Desktop)
    
    If $Return[0] = 0 Then
        Return True
    Else 
        Return False
    EndIf
EndFunc

Func IsScreenSaverRunning()
    Local $Desktop, $Return, $Result
    
    $Result = DllStructCreate("uint")
    $Return = DllCall("user32.dll", "ubyte", "SystemParametersInfoA", "uint", 0x72, "uint", 0, "ptr", DllStructGetPtr($Result), "uint", 0)
    If $Return[0] = 0 Then Return SetError( 0, False)
    
    Return DllStructGetData($Result, 1) <> 0
EndFunc

Edited August 14, 2009 by SoulSHepard

[SoulSHepard]

@all.

based upon these functions, i got a bit wild with getting this to work to log all in a nice way,

check here a new tool i got for this. Jeeves, your personal assistant (time tracking tool)

thx Zinthose.

Soul