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

@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" я что-то упускаю?

Новые блоги и статьи Все статьи Все блоги /
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Номеклатура. . .

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

	Запрет нажатий сочетаний клавиш для определенного процесса 06.07.2015, 20:15. Показов 6438. Ответов 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

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

Решение