Управление клавишами NumLock, CapsLock и ScrollLock

07.10.2009 | Категория: Образ мышления: Assembler | Автор: ManHunter

Иногда в программах требуется получать состояние управляющих клавиш или изменять их состояние. Во времена MS-DOS достаточно было просто прочитать или записать значение WORD по определенному адресу памяти, при этом светодиодные индикаторы клавиатуры реагировали на это включением или выключением. Были очень популярны крохотные, в несколько байт, программы для выключения NumLock при загрузке системы, типа таких:

Code (Assembler) : Убрать нумерацию

;-----------------------------------------------------------
; Программа для выключения индикатора NumLock под MS-DOS
; Размер .com-файла после компиляции 9 байт
;-----------------------------------------------------------
.286
.model tiny
.code ; Сегмент кода
org 100h ; Зарезервировано для PSP
start:
pop ax ; После запуска в стеке 0, AX=0
mov ds,ax ; DS=0
mov ds:[417h],ax ; WORD DS:[417h] - состояние *Lock'ов
int 20h ; Выход из программы
end start

В свое время это был самый минимальный рабочий код для выключения клавиши NumLock, хоть и не совсем корректный в плане работы со стеком.

В среде Windows все значительно усложнилось. Теперь получать состояние переключателей приходится при помощи функции GetKeyState. Для изменения состояния клавиш в Windows есть функция SetKeyboardState, но она не меняет состояния светодиодов на клавиатуре. Поэтому придется искать другой путь, например, через функцию keybd_event эмулировать нажатия на соответствующие клавиши. Для удобства я написал небольшую функцию, устанавливающую нужный переключатель в нужное состояние.

Code (Assembler) : Убрать нумерацию

;------------------------------------------------------------------
; Функция переключения индикаторов
; Входные параметры:
; dKey - идентификатор клавиши
; dState - состояние (TRUE = включено, FALSE = выключено)
;------------------------------------------------------------------
proc SetLockState dKey:DWORD, dState:DWORD
pusha
; Получить состояние управляющей клавиши
invoke GetKeyState,[dKey]
; Если клавиша уже в нужном положении, то ничего не делать
cmp eax,[dState]
je @f
; Имитировать нажатие клавиши на клавиатуре
invoke keybd_event,[dKey],0,0,NULL
invoke keybd_event,[dKey],0,KEYEVENTF_KEYUP,NULL
@@:
popa
ret
endp

Параметры вызова: dKey - код клавиши, для этого в FASM уже предопределены константы VK_CAPITAL, VK_NUMLOCK и VK_SCROLL, dState - нужное состояние (TRUE - включено, FALSE - выключено). Пример вызова:

Code (Assembler) : Убрать нумерацию

...
stdcall SetLockState,VK_CAPITAL,FALSE ; Выключить CapsLock
stdcall SetLockState,VK_NUMLOCK,TRUE ; Включить NumLock
...

В приложении программа, управляющая индикаторами и состоянием клавиш NumLock, CapsLock и ScrollLock. Обратной связи не предусмотрено, поэтому ручные нажатия на клавиши не меняют состояния checkbox'ов.

Lock Keys Control Demo

Lock.Keys.Control.Demo.zip (3,371 bytes)

Просмотров: 12891 | Комментариев: 3

Метки: Assembler, система

Внимание! Статья опубликована больше года назад, информация могла устареть!

На VBS простіше)

set WshShell = WScript.CreateObject("WScript.Shell")
KL = true

do while KL
if WshShell.AppActivate("Microsoft Word") then
WriteWord()
KL = false
end if
WScript.Sleep 100
loop
function WriteWord()
WshShell.SendKeys "http://uasc.org.ua =)"
WScript.Sleep(300)
WshShell.SendKeys "{CAPSLOCK}"
WScript.Sleep(30)
WshShell.SendKeys "{Scrolllock}"
WScript.Sleep(40)
WshShell.SendKeys "{CAPSLOCK}"
WScript.Sleep(40)
WshShell.SendKeys "{Scrolllock}"
WScript.Sleep(60)
WshShell.SendKeys "{CAPSLOCK}"
WScript.Sleep(70)
WshShell.SendKeys "{Scrolllock}"
WScript.Sleep(80)
WshShell.SendKeys "{CAPSLOCK}"
WScript.Sleep(90)
WshShell.SendKeys "{Scrolllock}"
WScript.Sleep(100)
WshShell.SendKeys "{CAPSLOCK}"
WScript.Sleep(110)
WshShell.SendKeys "{Scrolllock}"
WScript.Sleep(120)
WshShell.SendKeys "{CAPSLOCK}"
WScript.Sleep(130)
WshShell.SendKeys "{Scrolllock}"
end function

Запустіть MS Office Word та подивіться на клавіатуру)

Добавить комментарий

Заполните форму для добавления комментария

Если программист в девять утра уже на работе, значит он там же и ночевал

Главная страница Web-мастеру и не только Образ мышления: Assembler Мои программы Software Темная сторона Силы Обзоры техники А еще я туда ем! Жизнь в оффлайне Всякая всячина

Карта сайта Ссылки Обратная связь Правила сайта Настройки сайта RSS-канал

Материалы, опубликованные на этом сайте, не рекомендуются к просмотру лицам в возрасте до 16 лет без присутствия взрослых.

Метки статей

Свернуть

Вам помог этот сайт?

Поблагодарили 33,580 раз

День добровольца (волонтера)

День начала контрнаступления советских войск под Москвой

День ниндзя

Нашли на сайте орфографическую ошибку? Выделите ее мышкой и нажмите

Ctrl

Enter

Буду очень благодарен, если размеcтите мою кнопочку:

<a href="https://www.manhunter.ru" target="_blank"><img src="https://www.manhunter.ru/images/button.gif" alt="Личный блог ManHunter'а" title="Личный блог ManHunter'а" width="88" height="31" /></a>

$Яндекс тИЦ: {YANDEX_TIC}$

Яндекс ИКС: 400

Сейчас я слушаю

---

- автообновление

Powered by PCL's Speckled Band Engine 0.2 RC3
© ManHunter / PCL, 2008-2023
При использовании материалов ссылка на сайт обязательна
Время генерации: 0.06 сек. / MySQL: 2 (0.0047 сек.) / Память: 4.5 Mb

	2023 - ДЕКАБРЬ
Пн	Вт	Ср	Чт	Пт	Сб	Вс
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

Управление клавишами NumLock, CapsLock и ScrollLock

Комментарии

Добавить комментарий