| Вопрос: Трабла с хуком :( | Добавлено: 07.08.06 23:45 |
Автор вопроса:  Sacred Phoenix | ICQ: 304238252 |
| Здесь (http://sacredphoenix.nm.ru/vb[dot]net_temp/kbrdhook.rar) я выложил два проекта для ловли нажатий клавиш (7,55 КБ). Но есть одна трабла, я ее описал в Readme.txt. Помогите, плиз! Заранее большое спасибо. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 08.08.06 18:07 |
|
1) в AttachKeyboardHook не WH_KEYBOARD, а WH_KEYBOARD_LL
2) KeyboardProc и сделай по типу этой: Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim fEatKeystroke As Boolean If (nCode = HC_ACTION) Then If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then CopyMemory p, ByVal lParam, Len(p) fEatKeystroke = _  (p.vkCode = VK_TAB) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
(p.vkCode = VK_ESCAPE) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
(p.vkCode = VK_ESCAPE) And ((GetKeyState(VK_CONTROL) And &H8000) <> 0)) Or _
(p.vkCode = VK_F4) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
(p.vkCode = VK_DELETE))
End If End If If fEatKeystroke Then LowLevelKeyboardProc = -1 Else LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal lParam) End If End Function |
||
|
Номер ответа: 2 Автор ответа: Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #2 | Добавлено: 08.08.06 19:11 |
|
CopyMemory p, ByVal lParam, Len(p) что есть p?
LowLevelKeyboardProc = -1 а обязательно -1 возвращать? ведь остальные проставленные хуки клавишу не словят, или это и есть?
LLKHF_ALTDOWN чему равно? VK_MENU?
|
||
|
Номер ответа: 3 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #3 | Добавлено: 08.08.06 20:19 |
|
да, и чему равно
WH_KEYBOARD_LL ?
|
||
Страница: 1 |