Как определить заблокирован ли экран

[vovsla]

Возможно этот вопрос уже поднимался, но найти я его не смог.
Как определить заблокирован экран ПК или нет? Имеется в виду блокировка по Win+L.

 

[firex]

http://autoit-script.ru/index.php/topic,321.0.html

 

[zert88]

Можно продублировать ссылку или пример кода?

Сообщение автоматически объединено: 11 Сен 2019

Нашел с горем по полам...

Global Const $DESKTOP_SWITCHDESKTOP = 0x0100

Func _IsWorkstationLocked()

    Local $Result = False

    $hDesktop = DllCall('user32.dll', 'hwnd', 'OpenDesktop', 'str', 'Default', 'int', 0, 'int', 0, 'int', $DESKTOP_SWITCHDESKTOP)
    If Not @error Then
        $Result = DllCall('user32.dll', 'int', 'SwitchDesktop', 'hwnd', $hDesktop[0])
        $Result = Not $Result[0]
        DllCall('user32.dll', 'int', 'CloseDesktop', 'hwnd', $hDesktop[0])
    EndIf
    Return $Result
EndFunc   ;==>_IsWorkstationLocked

While 1
    If Not _IsWorkstationLocked() Then
        Consolewrite('Экран разблокирован')
    ;Sleep(2000)
    else
    Consolewrite('Экран заблокирован')
    EndIf
    Sleep(2000)
WEnd

Сообщение автоматически объединено: 11 Сен 2019

Интересно, как изменить скрипт, чтобы можно было удаленно запустить скрипт и чтобы приходила информация о заблокированности пользователя который вошел в свою сессию консоль(те непостредственно на машине)