Пауза в скрипте на время Lock'a компа и продолжение после unlocka

[amorph]

Приветствую!

Есть такой скрипт:

;какие то действия...

Run("rundll32.exe user32.dll,LockWorkStation")  ;лочим комп (аналог Win+L)

;вот тут надо как то отслеживать, что комп залочен и скрипт дальше не выполнять
;как только разлочили комп, продолжаем выполнение.

Как отловить это состояние?

з.ы. нагуглить ничего вразумительного по теме не получилось (или не то, или слишком сложно для моего понимания)
на всякий случай: ОС Win 7 x64

 

[Zaramot]

Как отловить это состояние?

$DESKTOP_SWITCHDESKTOP = 0x100

While 1
    If _IsLocked() Then
        ConsoleWrite("Workstation is locked." & @CR)
    Else
        ConsoleWrite("Workstation not locked." & @CR)
    EndIf
    Sleep(1000)
WEnd

Func _IsLocked()
    $hDesktop = DllCall("User32.dll", "int", "OpenDesktop", "str", "Default", "int", 0, "int", 0, "int", $DESKTOP_SWITCHDESKTOP)
    $ret = DllCall("User32.dll", "int", "SwitchDesktop", "int", $hDesktop[0])
    DllCall("User32.dll", "int", "CloseDesktop", "int", $ret[0])

    If $ret[0] Then
        Return SetError(0, 0, 0)
    Else
        Return SetError(0, 0, 1)
    EndIf
EndFunc   ;==>_IsLocked

 

[amorph]

Класс! Спасибо

 

[artpluss]

А как сделать так, чтобы после разблокировки скрипт выждал 1 минуту и потом продолжил выполняться?

 

[Zaramot]

Send('#l')	;Включаем Lock режим

Do
Until Not _IsLocked()
Sleep(1 * 1000 * 60 * 60)	;Ждём 1 мин.

Func _IsLocked()
    $hDesktop = DllCall("User32.dll", "int", "OpenDesktop", "str", "Default", "int", 0, "int", 0, "int", 0x100)
    $ret = DllCall("User32.dll", "int", "SwitchDesktop", "int", $hDesktop[0])
    DllCall("User32.dll", "int", "CloseDesktop", "int", $ret[0])

    If $ret[0] Then
        Return SetError(0, 0, 0)
    Else
        Return SetError(0, 0, 1)
    EndIf
EndFunc   ;==>_IsLocked