Запрет нажатий сочетаний клавиш для определенного процесса

@Malachor · Регистрация: 30.06.2015

Студворк — интернет-сервис помощи студентам

Всем привет! В Visual Basic я новичок, но мне нужно решить одну задачу. Запретить нажатие следующих клавиш

Alt + tab
alt + Ctrl + del
Alt + F4
Ctrl + Shift + Esc

для Windows Xp, Windows 7 и Windows 8.

Допустим. я запускаю свою программу (с запретом нажатий клавиш), далее нужное мне приложение "proga.exe" И уже в "proga.exe" не работают сочетания клавиш.

P.S.
Я не пишу какой-либо вирус. Просто необходимо таким образом перекрыть багоюз в одном приложении. Надеюсь на ваше взаимопонимание и поддержку.

Dragokas · 06.07.2015, 20:46

Сообщение от Malachor

перекрыть багоюз в одном приложении.

Баг в Winlocker-e ?

@Malachor · 06.07.2015, 20:58 **[ТС]**

ну как-бы вам сказать. Существует старая диабло-подобная игрушка Sacred Underworld. Используя данные клавиши, скажем alt+f4 можно предотвратить смерть персонажа, либо производить клонирование предметов, в сетевом режиме. Объяснять сам процесс довольно долго, но было бы неплохо, если эту возможность как-то убрать. Пусть даже таким способом.

Добавлено через 8 минут

Сообщение от Dragokas

Баг в Winlocker-e ?

ну как-бы вам сказать. Существует старая диабло-подобная игрушка Sacred Underworld. Используя данные клавиши, скажем alt+f4 можно предотвратить смерть персонажа, либо производить клонирование предметов, в сетевом режиме. Объяснять сам процесс довольно долго, но было бы неплохо, если эту возможность как-то убрать. Пусть даже таким способом.

Тем более Winlocker на сколько мне известно блокирует систему полностью. А здесь имеется в виду блокировка клавиш для конкретного процесса.

Dragokas · 07.07.2015, 13:07

ALT+F4 - это выход из программы.
Каким образом это позволит читерить, если это делать уже не для кого?

@Malachor · 07.07.2015, 18:27 **[ТС]**

Сообщение от Dragokas

ALT+F4 - это выход из программы.
Каким образом это позволит читерить, если это делать уже не для кого?

Можно ) Уж поверьте! Скажем при игре на локальном сервере (эмулятор локальной сети) если персонаж умирает и игрок успевает нажать Alt+F4 смерть не засчитывается. Клонка предметов опять-же. Два игрока находятся на острове респауне один из них сохраняет персонажа (в игре есть функция экспорта) выкидывает рар шмотку или какой-либо иной предмет, далее нажимает Alt+F4 и вауля! при следующем заходе предмет сохранился у персонажа, хотя фактически был передан другому игроку.

P.S.
Собственно занимаюсь разработкой мода для игры Sacred Underworld ориентированного на сетевую игру. https://vk.com/club21089257 - это группа моего проекта, дабы развеять ваши сомнения. Так-же готов при необходимости продемонстрировать на видео сам процесс багоюза.

Dragokas · 07.07.2015, 18:35

А почему язык именно VB6? Вы надстройку к клиенту на нем пишете?

@Malachor · 08.07.2015, 18:45 **[ТС]**

В общем суть реализации такова: Для старта игры запускается батник, который стартует программу блокировки нужных клавиш, далее стартует игра. После закрытия игры "sacred.exe" закрывается и программа блокировки клавиш. По скольку я в программировании (за исключением HTML, PHP, Java Script) нуб, поэтому и обратился за помощью на данный форум.

Добавлено через 1 минуту

Сообщение от Dragokas

А почему язык именно VB6? Вы надстройку к клиенту на нем пишете?

Basic немного помню из уроков информатики, думаю разобраться будет несложно. Освежить так сказать в памяти смогу. В остальном дуб дубом )

Добавлено через 23 часа 34 минуты
Я так понимаю желающих помочь мне, здесь нет? Тем не менее спасибо.

@The trick · 08.07.2015, 19:39

Ставишь хук на клавиатуру и перехватываешь клавиши. (не знаю для чего перехватывать Ctrl+Alt+Del, похоже на зловред, но таким способом это сочетание не перехватить)
Объясни мне для чего перехватывать Ctrl+Alt+Del? Ни одна игра это сочетание не использует.
По остальным сочетаниям, ставишь LL-хук и в обработчике нажатия пишешь:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim prevent As Boolean  ' Флаг запрещения
 
Select Case lParam.VkCode
Case vbKeyF4
    ' Проверяем ALT
    If lParam.flags And LLKHF_ALTDOWN Then
        prevent = True
    End If
Case vbKeyTab
    ' Проверяем ALT
    If lParam.flags And LLKHF_ALTDOWN Then
        prevent = True
    End If
Case vbKeyEscape
    ' Проверяем CTRL и SHIFT
    If GetAsyncKeyState(vbKeyShift) < 0 And GetAsyncKeyState(vbKeyControl) < 0 Then
        prevent = True
    End If
End Select
 
If prevent Then
    LowLevelkbdProc = -1
    Exit Function
End If

@Malachor · 08.07.2015, 19:58 **[ТС]**

Перехват Ctrl+Alt+Del банально для того, дабы хитрый пользователь вызвав диспетчер не убил sacred.exe что соответственно будет равносильно нажатию alt+f4. Эффект будет аналогичный как я говорил выше:

"Два игрока находятся на острове респауне один из них сохраняет персонажа (в игре есть функция экспорта) выкидывает рар шмотку или какой-либо иной предмет, далее нажимает Alt+F4 и вауля! при следующем заходе предмет сохранился у персонажа, хотя фактически был передан другому игроку."

Тем более:
"В общем суть реализации такова: Для старта игры запускается батник, который стартует программу блокировки нужных клавиш, далее стартует игра. После закрытия игры "sacred.exe" закрывается и программа блокировки клавиш."

т.е. запрет этих сочетаний действует только когда запущен sacred.exe. После закрытия программы все клавиши соответственно работают как надо. По сути и не зловред ведь )

За код спасибо! Будем пробовать

@Pro_grammer · 08.07.2015, 20:20

Сообщение от Malachor

Для старта игры запускается батник, который стартует программу блокировки нужных клавиш

Мне вот этот момент не ясен. Для чего я, хитрый читер, буду запускать ваш батник с античитом, если можно просто запустить только игру?

Dragokas · 08.07.2015, 20:32

Сообщение от Malachor

Перехват Ctrl+Alt+Del банально для того, дабы хитрый пользователь вызвав диспетчер

На XP разве что...
Защита все равно никакая.
Я возьму нажму Win+L и запущу заранее подготовленный у меня на рабочем столе батник, который вырубит Ваш процесс. Или еще проще, зарегистрирую свой хоткей на ярлык к этому батнику.

Сообщение от The trick

Ставишь хук на клавиатуру и перехватываешь клавиши.

А если через RegisterHotkey ?

@Malachor · 08.07.2015, 20:46 **[ТС]**

Сообщение от Dragokas

Я возьму нажму Win+L и запущу заранее подготовленный у меня на рабочем столе батник, который вырубит Ваш процесс.

Вполне себе, но это вы )) Так-же сделал бы и я. Скажем не каждый игрок будет заморачиваться подобным образом. BAT-ник вообще можно будет объединить вместе с обеими программами с помощью Quick Batch File Compiler в один .exe

@The trick · 08.07.2015, 21:31

Сообщение от Dragokas

А если через RegisterHotkey ?

RegisterHotKey fails if the keystrokes specified for the hot key have already been registered by another hot key.

@Malachor · 08.07.2015, 23:01 **[ТС]**

Сообщение от Pro_grammer

Мне вот этот момент не ясен. Для чего я, хитрый читер, буду запускать ваш батник с античитом, если можно просто запустить только игру?

BAT-ник вообще можно будет объединить вместе с обеими программами с помощью Quick Batch File Compiler в один .exe

@Pro_grammer · 08.07.2015, 23:44

Сообщение от Malachor

BAT-ник вообще можно будет объединить вместе с обеими программами

Назовите мне хоть одну причину зачем я буду запускать этот объединённый файл, если можно просто запустить родной "sacred.exe"?
Опять же антивирусы могут неодобрительно отреагировать на вашу подделку.
Какой то ерундой вы занимаетесь, или не всю правду говорите. Ну не вижу я практического толка от этой утилиты.
Если в "sacred.exe" изначально нет такой защиты от читерства, то ни какие навесные утилиты ей не помогут!

@Malachor · 09.07.2015, 22:41 **[ТС]**

Сообщение от Pro_grammer

Назовите мне хоть одну причину зачем я буду запускать этот объединённый файл, если можно просто запустить родной "sacred.exe"?

А у вас есть какие-то другие предложения по предотвращению багоюза? Если, да, то вместо того что-бы критиковать данный способ предложите свой. Да минусы естественно есть, но сие рассчитано на рядового фаната sacred, который не станет вникать в суть работы сей защиты. Тем более можно написать в батнике пару строк, которые будут брать файлы необходимые для захода на сервер, непосредственно с самого сервера. Просто берем меняем содержимое некоторых файлов самого сервера (файлы так-же входят в состав клиента). Т.е. имея оригинальные файлы (не подмененные при запуске игры с "объединенного файла") пользователь не сможет войти на мой сервер. Я знаю как это реализовать и соответствующий набор софта так-же имеется. Если хотите подробностей, прошу в ЛС.

Добавлено через 15 минут

Либо как вариант сделать просто подмену файлов в самом клиенте ) Хитро. Просто зашифровать файлы необходимые для захода на сервер другим именем и расширением (непосредственно в клиенте) К примеру запустив оригинальный sacred.exe вы не попадете на мой сервер, т.к. не произойдет подмены. А запустив объединенный, который переименует зашифрованные файлы и подменит оригинальные проблем со входом не будет. При выходе из игры, естественно замена происходит в обратном порядке. Я думаю вы понимаете как это сделать с помощью bat

@Pro_grammer · 09.07.2015, 22:56

Сообщение от Malachor

вместо того что-бы критиковать данный способ предложите свой.

Я уже предложил - указать на баги автору игры, пусть исправляет.

Сообщение от Malachor

рассчитано на рядового фаната sacred

Т.о вы ставите честных игроков и читеров в заведомо неравное положение:
Читеры легко обойдут защиту, а честные не смогут и будут заведомо в проигрыше.
Хотя, обычно люди тщеславны, и найденная брешь будет тут же обнародована среди игроков и пользоваться будут все.

Сообщение от Malachor

Т.е. имея оригинальные файлы (не подмененные при запуске игры с "объединенного файла") пользователь не сможет войти на мой сервер.

C подменой файла всё просто - запустить батник, получить файлы , потом закрыть сеанс и запустить оригинальный файл.
Если думаете, что можете удалить файлы при закрытии игры, то нет. Игру можно не закрывать, а просто выключить-перегрузить Винду кнопкой и т.п. фигня, которая позволит файлам остаться на диске и файлы будут распространены среди играющих.

P.s. не подумайте, что я пытаюсь быть судьёй в последней инстанции. Просто заранее просчитываю все недостатки вашей защиты. Обижаться не надо, солидные компании за найденные баги платят немалые деньги, а я вам даром

Dragokas · 09.07.2015, 22:58

Когда админил один игровой сервер, чтобы не использовали читы делали очень просто,
понижали версию игры до неактуальной на данный момент, на которую в свободном ходе мало читерских программ.
На своем сайте распространяли сборку игры именно с этой версией. Новую сервак отвергал.
Поскольку мы сами писали на C# родные плагины под игру с целью еще больше удушить читеров,
сервер пользовался (все еще пользуется) большой популярностью.
Разумеется, у Вас другая игра, и сказанное скорее всего Вам не поможет.

@Malachor · 09.07.2015, 23:47 **[ТС]**

Сообщение от Pro_grammer

Я уже предложил - указать на баги автору игры, пусть исправляет.

Увы, но компания разработчик игры уже распалась "Ascaron Entertainment" после выпуска ими Sacred 2, права были выкуплены другой компанией, которая запорола серию на корню недавно вышедшей Sacred 3 (чистой воды слэшер, не имеющий ничего общего с RPG). Но что-то я увлекся, форум ведь не для обсуждения игровой индустрии. За советы спасибо.

@Malachor · 10.07.2015, 23:59 **[ТС]**

Сообщение от The trick

Ставишь хук на клавиатуру и перехватываешь клавиши. (не знаю для чего перехватывать Ctrl+Alt+Del, похоже на зловред, но таким способом это сочетание не перехватить)
Объясни мне для чего перехватывать Ctrl+Alt+Del? Ни одна игра это сочетание не использует.
По остальным сочетаниям, ставишь LL-хук и в обработчике нажатия пишешь:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim prevent As Boolean  ' Флаг запрещения
 
Select Case lParam.VkCode
Case vbKeyF4
   
    If lParam.flags And LLKHF_ALTDOWN Then
        prevent = True
    End If
Case vbKeyTab
   If lParam.flags And LLKHF_ALTDOWN Then
        prevent = True
    End If
Case vbKeyEscape
  If GetAsyncKeyState(vbKeyShift) < 0 And GetAsyncKeyState(vbKeyControl) < 0 Then
        prevent = True
    End If
End Select
 If prevent Then
    LowLevelkbdProc = -1
    Exit Function
End If

Не работает.. Ставлю в форму хук клавиатуры

Visual Basic
1
2
3
4
5
6
Private Sub Form_Load()
  hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    UnhookWindowsHookEx hHook
End Sub

В модуль:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim prevent As Boolean  ' Флаг запрещения
 
Select Case lParam.VkCode
Case vbKeyF4
   
    If lParam.flags And LLKHF_ALTDOWN Then
        prevent = True
    End If
Case vbKeyTab
   If lParam.flags And LLKHF_ALTDOWN Then
        prevent = True
    End If
Case vbKeyEscape
  If GetAsyncKeyState(vbKeyShift) < 0 And GetAsyncKeyState(vbKeyControl) < 0 Then
        prevent = True
    End If
End Select
 If prevent Then
    LowLevelkbdProc = -1
    Exit Function
End If

Ругается при запуске теста на сроку "lParam" я что-то упускаю?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 19.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Malachor 1 / 1 / 0 Регистрация: 30.06.2015 Сообщений: 32

	Запрет нажатий сочетаний клавиш для определенного процесса 06.07.2015, 20:15. Показов 6420. Ответов 21 Метки нет (Все метки) Всем привет! В Visual Basic я новичок, но мне нужно решить одну задачу. Запретить нажатие следующих клавиш Alt + tab alt + Ctrl + del Alt + F4 Ctrl + Shift + Esc для Windows Xp, Windows 7 и Windows 8. Допустим. я запускаю свою программу (с запретом нажатий клавиш), далее нужное мне приложение "proga.exe" И уже в "proga.exe" не работают сочетания клавиш. P.S. Я не пишу какой-либо вирус. Просто необходимо таким образом перекрыть багоюз в одном приложении. Надеюсь на ваше взаимопонимание и поддержку. 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	07.07.2015, 13:07
	ALT+F4 - это выход из программы. Каким образом это позволит читерить, если это делать уже не для кого? 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	07.07.2015, 18:35
	А почему язык именно VB6? Вы надстройку к клиенту на нем пишете? 0

@Malachor 1 / 1 / 0 Регистрация: 30.06.2015 Сообщений: 32
	08.07.2015, 19:58 [ТС]
	Перехват Ctrl+Alt+Del банально для того, дабы хитрый пользователь вызвав диспетчер не убил sacred.exe что соответственно будет равносильно нажатию alt+f4. Эффект будет аналогичный как я говорил выше: "Два игрока находятся на острове респауне один из них сохраняет персонажа (в игре есть функция экспорта) выкидывает рар шмотку или какой-либо иной предмет, далее нажимает Alt+F4 и вауля! при следующем заходе предмет сохранился у персонажа, хотя фактически был передан другому игроку." Тем более: "В общем суть реализации такова: Для старта игры запускается батник, который стартует программу блокировки нужных клавиш, далее стартует игра. После закрытия игры "sacred.exe" закрывается и программа блокировки клавиш." т.е. запрет этих сочетаний действует только когда запущен sacred.exe. После закрытия программы все клавиши соответственно работают как надо. По сути и не зловред ведь ) За код спасибо! Будем пробовать 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	09.07.2015, 22:58
	Когда админил один игровой сервер, чтобы не использовали читы делали очень просто, понижали версию игры до неактуальной на данный момент, на которую в свободном ходе мало читерских программ. На своем сайте распространяли сборку игры именно с этой версией. Новую сервак отвергал. Поскольку мы сами писали на C# родные плагины под игру с целью еще больше удушить читеров, сервер пользовался (все еще пользуется) большой популярностью. Разумеется, у Вас другая игра, и сказанное скорее всего Вам не поможет. 0

Запрет нажатий сочетаний клавиш для определенного процесса

Решение