| Вопрос: Месаги | Добавлено: 26.01.04 00:08 |
Автор вопроса:  NeForm@t | Web-сайт: g--k.newmail.ru | ICQ: 252999255 |
|
Вот ещё интерсный вопрос: возможно ли как нибудь просмотреть собщения посылаемые дрегому окну(не в своеё проге),setwindowlong вроде сдесь не поможет, но глваное не в этом - надо только узнать какая месага и скакими параметрами была послана определённому hWnd, т.е. её модифицировать не надо, только просмотреть(как допустим работает apiviewer) |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа: EROS Вопросов: 58 Ответов: 4255  |
Профиль | | #1 | Добавлено: 26.01.04 01:04 |
|
А ты попробуй через SetWindowsHookEx |
||
|
Номер ответа: 2 Автор ответа: NeForm@t ICQ: 252999255 Вопросов: 36 Ответов: 247 |
Web-сайт: Профиль | | #2 | Добавлено: 26.01.04 13:50 |
|
ну народ блин вы уже надоели! Все говорят попробуй, а где найти описание этой функции? Киньте хоть примерчик |
||
|
Номер ответа: 3 Автор ответа:  SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 26.01.04 15:31 |
|
API Guide спасет человека, решившего позаниматься хакерством: 'In a module Public Const WH_KEYBOARD = 2 Public Const VK_SHIFT = &H10 Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Public hHook As Long Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 'if idHook is less than zero, no further processing is required If idHook < 0 Then 'call the next hook KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam) Else 'check if SHIFT-S is pressed If (GetKeyState(VK_SHIFT) And &HF0000000) And wParam = Asc("S") Then 'show the result Form1.Print "Shift-S pressed ..." End If 'call the next hook KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam) End If End Function 'In a form, called Form1 Private Sub Form_Load() 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'set a keyboard hook hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID) End Sub Private Sub Form_Unload(Cancel As Integer) 'remove the windows-hook UnhookWindowsHookEx hHook End Sub |
||
|
Номер ответа: 4 Автор ответа: KAMICQ: 190197618 Вопросов: 25 Ответов: 97 |
Профиль | | #4 | Добавлено: 26.01.04 15:34 |
|
'In a module Public Const WH_KEYBOARD = 2 Public Const VK_SHIFT = &H10 Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Public hHook As Long Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 'if idHook is less than zero, no further processing is required If idHook < 0 Then 'call the next hook KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam) Else 'check if SHIFT-S is pressed If (GetKeyState(VK_SHIFT) And &HF0000000) And wParam = Asc("S") Then 'show the result Form1.Print "Shift-S pressed ..." End If 'call the next hook KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam) End If End Function 'In a form, called Form1 Private Sub Form_Load() 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'set a keyboard hook hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID) End Sub Private Sub Form_Unload(Cancel As Integer) 'remove the windows-hook UnhookWindowsHookEx hHook End Sub |
||
|
Номер ответа: 5 Автор ответа:  KAMICQ: 190197618 Вопросов: 25 Ответов: 97 |
Профиль | | #5 | Добавлено: 26.01.04 15:44 |
|
2Sharp: На три минуты ты меня опередил с ответом А всё-таки API-Гид рульная вещь! |
||
|
Номер ответа: 6 Автор ответа: NeForm@tICQ: 252999255 Вопросов: 36 Ответов: 247 |
Web-сайт: Профиль | | #6 | Добавлено: 26.01.04 16:25 |
|
Ну этот код я уже видел, помоему это хук на клаву, а мне нужно на сообщения, причём не свои вот такая вот абракадабра |
||
Страница: 1 |