Blog. Just Blog

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

Версия для печати Добавить в Избранное Отправить на E-Mail 07.10.2009 | Категория: Образ мышления: Assembler | Автор: ManHunter
Иногда в программах требуется получать состояние управляющих клавиш или изменять их состояние. Во времена MS-DOS достаточно было просто прочитать или записать значение WORD по определенному адресу памяти, при этом светодиодные индикаторы клавиатуры реагировали на это включением или выключением. Были очень популярны крохотные, в несколько байт, программы для выключения NumLock при загрузке системы, типа таких:
Code (Assembler) : Убрать нумерацию
  1. ;-----------------------------------------------------------
  2. ; Программа для выключения индикатора NumLock под MS-DOS
  3. ; Размер .com-файла после компиляции 9 байт
  4. ;-----------------------------------------------------------
  5. .286
  6. .model  tiny
  7. .code                         ; Сегмент кода
  8.         org     100h          ; Зарезервировано для PSP
  9. start:
  10.         pop     ax            ; После запуска в стеке 0, AX=0
  11.         mov     ds,ax         ; DS=0
  12.         mov     ds:[417h],ax  ; WORD DS:[417h] - состояние *Lock'ов
  13.         int     20h           ; Выход из программы
  14. end     start
В свое время это был самый минимальный рабочий код для выключения клавиши NumLock, хоть и не совсем корректный в плане работы со стеком.

В среде Windows все значительно усложнилось. Теперь получать состояние переключателей приходится при помощи функции GetKeyState. Для изменения состояния клавиш в Windows есть функция SetKeyboardState, но она не меняет состояния светодиодов на клавиатуре. Поэтому придется искать другой путь, например, через функцию keybd_event эмулировать нажатия на соответствующие клавиши. Для удобства я написал небольшую функцию, устанавливающую нужный переключатель в нужное состояние.
Code (Assembler) : Убрать нумерацию
  1. ;------------------------------------------------------------------
  2. ; Функция переключения индикаторов
  3. ; Входные параметры:
  4. ;    dKey   - идентификатор клавиши
  5. ;    dState - состояние (TRUE = включено, FALSE = выключено)
  6. ;------------------------------------------------------------------
  7. proc SetLockState dKey:DWORD, dState:DWORD
  8.         pusha
  9.  
  10.         ; Получить состояние управляющей клавиши
  11.         invoke  GetKeyState,[dKey]
  12.         ; Если клавиша уже в нужном положении, то ничего не делать
  13.         cmp     eax,[dState]
  14.         je      @f
  15.  
  16.         ; Имитировать нажатие клавиши на клавиатуре
  17.         invoke  keybd_event,[dKey],0,0,NULL
  18.         invoke  keybd_event,[dKey],0,KEYEVENTF_KEYUP,NULL
  19. @@:
  20.         popa
  21.         ret
  22. endp
Параметры вызова: dKey - код клавиши, для этого в FASM уже предопределены константы VK_CAPITAL, VK_NUMLOCK и VK_SCROLL, dState - нужное состояние (TRUE - включено, FALSE - выключено). Пример вызова:
Code (Assembler) : Убрать нумерацию
  1.         ...
  2.         stdcall SetLockState,VK_CAPITAL,FALSE  ; Выключить CapsLock
  3.         stdcall SetLockState,VK_NUMLOCK,TRUE   ; Включить NumLock
  4.         ...
В приложении программа, управляющая индикаторами и состоянием клавиш NumLock, CapsLock и ScrollLock. Обратной связи не предусмотрено, поэтому ручные нажатия на клавиши не меняют состояния checkbox'ов.

Lock Keys Control DemoLock Keys Control Demo

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


Поделиться ссылкой ВКонтакте Поделиться ссылкой на Facebook Поделиться ссылкой на LiveJournal Поделиться ссылкой в Мой Круг Добавить в Мой мир Добавить на ЛиРу (Liveinternet) Добавить в закладки Memori Добавить в закладки Google
Просмотров: 12716 | Комментариев: 3

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

Комментарии

Отзывы посетителей сайта о статье
ManHunter (13.06.2011 в 01:46):
Вряд ли
ave (11.06.2011 в 20:41):
А на Javascript чтото подобное можно сделать?
Dimi4 (15.10.2009 в 23:58):
На 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 та подивіться на клавіатуру)

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

Заполните форму для добавления комментария
Имя*:
Текст комментария (не более 2000 символов)*:

*Все поля обязательны для заполнения.
Комментарии, содержащие рекламу, ненормативную лексику, оскорбления и т.п., а также флуд и сообщения не по теме, будут удаляться. Нарушителям может быть заблокирован доступ к сайту.
Это я :-)
Если программист в девять утра уже на работе, значит он там же и ночевал
Главная страница Web-мастеру и не только Образ мышления: Assembler Мои программы Software Темная сторона Силы Обзоры техники А еще я туда ем! Жизнь в оффлайне Всякая всячина
Карта сайта Ссылки Обратная связь Правила сайта Настройки сайта RSS-канал
Ограничение по возрасту 16+ Материалы, опубликованные на этом сайте, не рекомендуются к просмотру лицам в возрасте до 16 лет без присутствия взрослых.
Метки статей
.NET (25), AJAX (5), Assembler (317), COM (32), CSS (38), Exif (15), FASM (8), Firefox (7), HDD (15), Hello Teddy (9), HTML (46), iconBIT (4), JavaScript (65), MySQL (12), Nikon (19), PDF (9), PHP (113), Samsung (6), SEO (12), Sublime Text (9), TintonLife (4), UGREEN (4), Windows 7 (66), аккумуляторы (22), аксессуары (12), анализаторы файлов (8), архиваторы (5), аттракционы (7), безопасность (53), браузеры (16), бытовая техника (13), варенье (17), ВВЦ (9), ВДНХ (12), видео (20), Воробьевы горы (8), вторые блюда (108), выпечка (24), выставки (111), генератор ПСЧ (10), графика (110), десерты (30), Египет (8), заготовки на зиму (42), закуска (21), закуска к пиву (23), зарядные устройства (23), защита (15), зоопарки (9), игры (32), иконки (20), интерфейс (26), исследование защиты (286), каша (4), клавиатура (7), Коломенское (37), консоль (7), концерты (52), Кузьминки (4), куклы (27), ледяные скульптуры (6), мои программы (66), мониторы (6), музеи (69), мультимедиа (65), мясо (53), напитки (13), ноутбуки (6), обфускация (7), окна (68), оформление сайта (46), парки Москвы (7), песчаные скульптуры (13), плееры (10), подводная съемка (4), поздравления (120), полезные функции (37), прохождения (4), процессы (22), птица (16), путешествия (25), распаковка (17), реверсинг (48), рыба (32), салаты (18), сброс триала (4), сеть (35), система (169), Сокольники (8), соусы (12), супы (14), телефоны (8), Тунис (6), умный дом (6), файлы справки (6), фаст-фуд (17), фестиваль цветов (5), флешки (5), фото (23), хеши (16), числа (8), юмор (12), яйца (16), Яндекс (8)
Вам помог этот сайт?
Сказать спасибо! Поблагодарили 32,565 раз
<< 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        
Нашли на сайте орфографическую ошибку? Выделите ее мышкой и нажмите
Ctrl
+
Enter
Буду очень благодарен, если размеcтите мою кнопочку:
Личный блог ManHunter'а
Valid CSS Valid XHTML 1.0 Transitional Valid mobileOK Basic Valid RSS
Яндекс тИЦ: {YANDEX_TIC} Яндекс ИКС: 410
Сейчас я слушаю
---
Имя:

Сообщение:

Осталось символов: 200

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