| Вопрос: Блокирование клавы и мышки | Добавлено: 08.11.06 05:53 |
Автор вопроса:  Рустам
|
|
Люди помогите. Нужно сделать так чтоб после запуска программы полностью блокировалась клавиатура, и мышь могла перемещаться только в пределах окна программы
и посе отробатывания программы все встовало на место |
| Ответы | Всего ответов: 19 |
|
Номер ответа: 1 Автор ответа:  Eugeny Вопросов: 0 Ответов: 26 |
Профиль | | #1 | Добавлено: 08.11.06 06:15 |
| Windows многозадачная система,тебе надо вообще клаву отключить для всех приложений или только когда твое окно активное? | ||
|
Номер ответа: 2 Автор ответа: astoro ICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #2 | Добавлено: 08.11.06 07:30 |
|
про мыш так вроде
Private Type RECT left As Long top As Long right As Long bottom As Long End Type Private Type POINT x As Long y As Long End Type Private Declare Sub ClipCursor Lib "user32" (lpRect As Any) Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT) Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) Private Sub Form_Load() 'KPD-Team 1999 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Command1.Caption = "Limit Cursor Movement" Command2.Caption = "Release Limit" End Sub Private Sub Command1_Click() 'Limits the Cursor movement to within the form. Dim client As RECT Dim upperleft As POINT 'Get information about our wndow GetClientRect Me.hWnd, client upperleft.x = client.left upperleft.y = client.top 'Convert window coцrdinates to screen coцrdinates ClientToScreen Me.hWnd, upperleft 'move our rectangle OffsetRect client, upperleft.x, upperleft.y 'limit the cursor movement ClipCursor client End Sub Private Sub Command2_Click() 'Releases the cursor limits ClipCursor ByVal 0& End Sub Private Sub Form_Unload(Cancel As Integer) 'Releases the cursor limits ClipCursor ByVal 0& End Sub |
||
|
Номер ответа: 3 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #3 | Добавлено: 08.11.06 15:59 |
|
полностью блокировалась клавиатура, блин, вот тока пару дней назад тема обсуждалась. НИКАК
|
||
|
Номер ответа: 4 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #4 | Добавлено: 08.11.06 16:54 |
| Ага. http://www.vbnet.ru/forum/show.aspx?id=121497 | ||
|
Номер ответа: 5 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #5 | Добавлено: 08.11.06 19:57 |
| 2rustam email daj, sbroshu primer, ja del laboratorku po fizike na kompe s zawitoj ot lamerov. Vse chto tebe nado. | ||
|
Номер ответа: 6 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #6 | Добавлено: 08.11.06 19:58 |
| a ewe luche sam v mylo postuchi polk-fa sobaka rambler ru | ||
|
Номер ответа: 7 Автор ответа: РустамВопросов: 9 Ответов: 10 |
Профиль | | #7 | Добавлено: 09.11.06 11:14 |
|
astoro
Спасибо. Проверил все работает 
Sacred Phoenix, AndreyMp Там маленько не то. Мне нужно полность заблокировать все кнопки на клавиатуре, ане только ctrl+alt+del. Есть конечно такая идея просто взять и тупо выдернуть на машине клаву
|
||
|
Номер ответа: 8 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #8 | Добавлено: 09.11.06 12:43 |
|
тупо выдернуть на машине клаву
Я тоже об этом думал, сделать USB гаджет который будет разрывать контакт клавы... |
||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 09.11.06 14:46 |
|
Ну захочить клаву и подавливать все сообщение не проблема а ктрл+алт+дел - гасить диспетчера
|
||
|
Номер ответа: 10 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #10 | Добавлено: 09.11.06 15:08 |
|
Там маленько не то. ну в общем-то мона попробовать захучить клаву, как грит HACKER. А Ctrl+Alt+Delete не заблочить никак
|
||
|
Номер ответа: 11 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #11 | Добавлено: 09.11.06 16:47 |
|
А, вспомнил... HACKER еще предлагал клаву пивом залить ))))))))))
|
||
|
Номер ответа: 12 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #12 | Добавлено: 09.11.06 19:01 |
|
А еще можно пропатчить драйвер клавиатуры (как это делает SoftICE) и перехватить Ctrl-Alt-Del
|
||
|
Номер ответа: 13 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #13 | Добавлено: 09.11.06 19:02 |
|
А еще можно пропатчить драйвер клавиатуры (как это делает SoftICE) и перехватить Ctrl-Alt-Del
|
||
|
Номер ответа: 14 Автор ответа: EugenyВопросов: 0 Ответов: 26 |
Профиль | | #14 | Добавлено: 09.11.06 20:52 |
| Пишем DLL на C++, в ней хуки на клаву и мышь, из твоего приложения дать команду для этой DLL гасить всех. Вообщем, сделаешь не программу, а полное г.. | ||
|
Номер ответа: 15 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #15 | Добавлено: 09.11.06 22:19 |
|
в том то и дело, что при установки хука на кнопки Ctrl-Alt-Del, сообщение хука приходить, но подавить его не получается, винда всеравно реагирует... Вспомнил ешё про одну фишку, хук то на клаву ставится в общем, т.е. есть возможность отслеживать каждую кнопку, проверять ситуацию Ctrl+Alt и в момент когда эти две кнопки нажаты, нажимать программно ещё + Shift например. В итоге, когда дальше пользователь нажмет Del, будет уже Ctrl+Shift+Alt+Del А на такую комбинацию никто не реагирует ))
|
||