[решено] Как проверить состояние Caps Lock и Num Lock?

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Как проверить состояние Caps Lock и Num Lock?

Как проверить состояние клавиш Caps Lock и Num Lock ? Если они нажаты, запустить определенный cmd файл ?
Если есть возможность, покажите пример.

любым скриптовым языком, поддерживающим API вызовы, пример на AutoIT:

Код:

$sCMDPath = 'C:\Script.CMD' ; Путь к CMD-файлу

$sCMDRoot = 'C:\'           ; Каталог запуска



Const $iCapsLock = 0x14     ; скан-код CAPS LOCK

Const $iNumLock  = 0x90     ; скан-код NUM LOCK



; Определяем состояние нужной клавиши

$aRet = DllCall("user32.dll", "int", "GetKeyState", "int", $iCapsLock)

; Если включена или нажата запуск скрипта

If $aRet[0] Then

    Run(@ComSpec & " /C " & $sCMDPath, $sCMDRoot, @SW_HIDE)

EndIf