0 / 0 / 0
Регистрация: 07.02.2022
Сообщений: 37

Как программно отключать и включать события Клавиатуры или другого HID устройства?

29.08.2023, 06:21. Показов 708. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужна помощь.Создать функцию отключения-включения событий лавиатуры или другого HID устройства
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
29.08.2023, 06:21
Ответы с готовыми решениями:

Как программно отключать и включать Bluetooth?
как программно отключать и включать BlueThooth??

Как программно включать и отключать клавиши (ALT, Shift, Win, Ctrl, F4)
Как программно включать и отключать клавиши(ALT, Shift, Win, Ctrl, F4) Добавлено через 3 минуты пишу на visual studio 2010 ...

Эмуляция нажатия кнопки HID устройства (мыши или клавиатуры)
Доброго времени суток, совсем новичок в этой теме (буквально второй день), так что не пинайте сильно ЗАДАЧА: Необходимо сэмулировать...

4
 Аватар для krapotkin
6851 / 4677 / 1465
Регистрация: 14.04.2014
Сообщений: 20,674
Записей в блоге: 21
29.08.2023, 10:07
т.е. выключить устройство в ОС ?
0
0 / 0 / 0
Регистрация: 07.02.2022
Сообщений: 37
29.08.2023, 11:58  [ТС]
Отключить Событие клавиатуры ,чтобы нажатие клавиши не выдавало события.
Как в сканере штрихкода
0
 Аватар для M3ph15
17 / 14 / 3
Регистрация: 26.08.2023
Сообщений: 28
29.08.2023, 12:09
из одного из моих игровых ботов
Delphi
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
procedure TForm1.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var m: word;
begin
 m:=0;
 UnregisterHotkey(Handle, 56192);
 if (ssShift in Shift) then
 begin
  Edit7.Text:='Shift+';
  m:=4;
 end
 else if (ssAlt in Shift) then
 begin
  Edit7.Text:='Alt+';
  m:=1;
 end
 else if (ssCtrl in Shift) then
 begin
  Edit7.Text:='Ctrl+';
  m:=2;
 end;
 Edit7.Text:=Edit7.Text+chr(Key);
 if (Key<16) or (Key>18) then
 begin
  RegisterHotKey(Handle, 56192, m, Key);
 end;
end;
задача была чтоб срабатывало только в боте, а вышло что перехватывает сочетание клавиш во всей ОС

и действие которое должно происходить по этому сочетанию в программе:
Delphi
1
2
3
4
5
6
7
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey=56192 then
  begin
   // 
  end;
end;
2
Модератор
 Аватар для D1973
9929 / 6467 / 2457
Регистрация: 21.01.2014
Сообщений: 27,425
Записей в блоге: 3
29.08.2023, 18:19
Цитата Сообщение от infopol Посмотреть сообщение
чтобы нажатие клавиши не выдавало события
так не пишите обработчик - и всего делов...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
29.08.2023, 18:19
Помогаю со студенческими работами здесь

Как отключать и включать JPopupMenu целиком?
Не получается отключать JPopupMenu методами setVisible() и setEnabled(). Отдельные JMenuItem без проблем обрабатываются этими методами, а...

Responsivevoice как отключать и включать звук?
Responsivevoice как отключать и включать звук? подскажите кто знает пожалуйста

Как включать/отключать коллайдеры в определённом радиусе?
У меня много мелких коллайдеров+rigidbody на сцене, это очень сильно просаживает фпс, но по сути если объект далеко то их и не нужно...

Как с помощью checkbox включать и отключать сетку на графике?
Подскажите, как с помощью checkbox включать и отключать сетку на графике, не могу понять, как прописать callback. Спасибо!

Отключать и включать в BlueStacks доступ к интернету
Здравствуйте. Подскажите как можно отключить и после при необходимости включить, доступ и интернету в BlueStacks. Пытался это сделать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

Новые блоги и статьи
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определенном условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru