1

Тема: AutoHotkey: скрипт-индикатор для NumLock, CapsLock, ScrollLock, Insert

Скрипт-индикатор для NumLock, CapsLock, ScrollLock, Insert для клавиатуры, в которой нет светодиодов. Состояния кнопок отображаются на кнопке "Пуск" в виде букв. Взято с официального форума AutoHotkey.

#persistent ; необходимо, только если используется в качестве отдельного скрипта
; или встраивается в скрипт без строк автозамены, горячих клавиш или команд GUI.
SetTimer, Start, 100 ; настройте второй параметр, чтобы изменить интервал реагирования
Start:
    StartButtonText = %CapsToggle%%NumToggle%%ScrollToggle%%InsToggle%
    GetKeyState, CapsToggle, CapsLock, T ; проверяем, включен ли Capslock
    If CapsToggle = U
        CapsToggle = -  ; если Capslock выключен, отобразим на кнопке "Пуск" дефис
    Else
        CapsToggle = C ; иначе, отобразим "С" на кнопке "Пуск"
    GetKeyState, NumToggle, Numlock, T
    If NumToggle = U
        NumToggle = -
    Else
        NumToggle = N
    GetKeyState, ScrollToggle, ScrollLock, T
    If ScrollToggle = U
        ScrollToggle = -
    Else
        ScrollToggle = S
    GetKeyState,InsToggle, Insert, T
    If InsToggle = U
        InsToggle = -
    Else
        InsToggle = I
    ControlSetText,Button1,%StartButtonText%,ahk_class Shell_TrayWnd
    ; команда выше изменяет текст на кнопке "Пуск"
Return
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.

2

Re: AutoHotkey: скрипт-индикатор для NumLock, CapsLock, ScrollLock, Insert

Скрипт для индикации NumLock в трее:

GetKeyState, NumState, NumLock, T
If NumState = D
{
Menu, Tray, Icon, NL_ON.ico, 1
Menu, Tray, Tip, NumLock включен
}
Else
{
Menu, Tray, Icon, NL_OFF.ico, 1
Menu, Tray, Tip, NumLock выключен
}
Return

~NumLock::
GetKeyState, NumState, NumLock, T
If NumState = D
{
Menu, Tray, Icon, NL_ON.ico, 1
Menu, Tray, Tip, NumLock включен
SoundBeep, 1000, 20 ; Звуковой сигнал
}
Else
{
Menu, Tray, Icon, NL_OFF.ico, 1
Menu, Tray, Tip, NumLock выключен
SoundBeep, 500, 20 ; Звуковой сигнал
}
Return

Скрипт для индикации CapsLock в трее:

GetKeyState, CapsState, CapsLock, T
If CapsState = D
{
Menu, Tray, Icon, CL_ON.ico, 1
Menu, Tray, Tip, CapsLock включен
}
Else
{
Menu, Tray, Icon, CL_OFF.ico, 1
Menu, Tray, Tip, CapsLock выключен
}
Return

~CapsLock::
GetKeyState, CapsState, CapsLock, T
If CapsState = D
{
Menu, Tray, Icon, CL_ON.ico, 1
Menu, Tray, Tip, CapsLock включен
SoundBeep, 1000, 20 ; Звуковой сигнал
}
Else
{
Menu, Tray, Icon, CL_OFF.ico, 1
Menu, Tray, Tip, CapsLock выключен
SoundBeep, 500, 20 ; Звуковой сигнал
}
Return

Автор скриптов - sergeich.
Скрипты требуют иконок, которые находятся в прикреплённом файле.

Post's attachments

icons.zip 783 b, 798 downloads since 2007-04-09 

You don't have the permssions to download the attachments of this post.
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.