Screen Saver / Lock Recognition

[comradeb14ck]

Hi there. Just wondering if anyone knows of a way that I can tell whether or not the screen is locked and/or if the screensaver is on? Thanks.

[Xenobiologist]

Hi there. Just wondering if anyone knows of a way that I can tell whether or not the screen is locked and/or if the screensaver is on? Thanks.

HotKeySet("{Esc}", "Quit")
While 1
    Sleep(100)
    If isScreensaverOn() Then
        MsgBox(0, "", "It is on!")
        Exit (0)
    EndIf
WEnd

Func isScreensaverOn()
   ; 1 = on , 0 = off
    Local $list = ProcessList()
    For $i = 1 To $list[0][0]
        If StringInStr($list[$i][0], ".scr") Then Return 1
    Next
    Return 0
EndFunc  ;==>isScreensaverOn

Func Quit()
    Exit
EndFunc  ;==>Quit

While 1
    Sleep(1000)
    If _isWorksatationLocked() Then ConsoleWrite(@HOUR & ":" & @MIN & ":" & @SEC & " - " & "workstation locked" & @CRLF)
WEnd

Func _isWorksatationLocked()
    If StringInStr(WinGetText(""), "Program Manager") <> 0 And WinGetTitle("") = "" Then Return 1
    Return 0
EndFunc  ;==>_isWorksatationLocked

Mega

[comradeb14ck]

Thank you. Worked great. These functions should be included in the user defined sections of the language.