Проблема с хуком мыши

Сейчас на форуме: bartolomeo (+6 невидимых)

Посл.ответ	Сообщение
ToBad Ранг: 450.3 (мудрец), 13thx Активность: 0.2↘0 Статус: Участник	Создано: 07 февраля 2011 18:31 · Личное сообщение · #1 На тему хуков масса примеров, я пробовал перехватывать WH_MOUSE и WH_MOUSE_LL. Код в DLL. Хук включаю из delphi формы на которой несколько кнопок. Цель в примере при клике на одну из кнопок с помощью хука менять координаты клика и попадать в другую кнопку. Интересует именно подмена координат при клике, а не фактическое попадание в какой либо элемент. Делал так: Code: function MouseClick(Code: Integer; wParam, lParam: Longint):Longint; stdcall; begin if (wParam>=$201) and (wParam<=$203) then lParam:=MAKELPARAM(190,420)); Result:=CallNextHookEx(HookID, Code, wParam, lParam); end; HookID:=SetWindowsHookEx(WH_MOUSE, MouseClick, 0, GetCurrentThreadId()); и так: Code: function LowLevelMouseProc(Code: Integer; wParam: DWORD; lParam: DWORD): Longint; stdcall; begin if (Code = HC_ACTION) then begin if (wParam = WM_LBUTTONDOWN) then Result:= CallNextHookEx(HookID, Code, wParam, makelparam(190,420)) else if (wParam = WM_LBUTTONUP) then Result := CallNextHookEx(HookID, Code, wParam, makelparam(190,420)); end else Result := CallNextHookEx(HookID, Code, wParam, lParam); end; HookID:= SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseProc, hInstance, 0); В общем блокировать клики могу, а подменять координаты нет. В чём моя ошибка?

Clerk Ранг: 255.8 (наставник), 19thx Активность: 0.15↘0.01 Статус: Участник vx	Создано: 07 февраля 2011 21:14 · Личное сообщение · #2 По мойму этими хуками переполнен инет. Реализуйте в ядре, максимально высокий уровень абстрагирования это захват RIT(ниже шадова идут IRP etc.).
ToBad Ранг: 450.3 (мудрец), 13thx Активность: 0.2↘0 Статус: Участник	Создано: 08 февраля 2011 00:29 · Личное сообщение · #3 Clerk пишет: По мойму этими хуками переполнен инет. Да, знаю, пробовал многое, но толку нету... Даже такой вариант не даёт результата. Клик приходит на контрол на котором его делаю... Code: function LowLevelMouseProc(Code: Integer; wParam: DWORD; lParam: DWORD): Longint; stdcall; type MSLLHOOKSTRUCT = record pt : TPoint; mouseData : DWORD; flags : DWORD; time : DWORD; dwExtraInfo : DWORD; end; PMSLLHOOKSTRUCT = ^MSLLHOOKSTRUCT; begin if (Code = HC_ACTION) then begin if (wParam = WM_LBUTTONDOWN) then begin PMSLLHOOKSTRUCT(lParam).pt.X:=190; PMSLLHOOKSTRUCT(lParam).pt.Y:=420; Result:= CallNextHookEx(HookID, Code, wParam,lParam); end else .... Clerk пишет: Реализуйте в ядре, максимально высокий уровень абстрагирования это захват RIT(ниже шадова идут IRP etc.). К сожалению в этом не силён... Мне бы включать/выключать такую штуку передавая смещения для x и y. В принципе только это и нужно. Своего рода все клики с учётом калибровки.
ELF_7719116 Ранг: 419.0 (мудрец), 647thx Активность: 0.46↗0.51 Статус: Участник "Тибериумный реверсинг"	Создано: 08 февраля 2011 07:55 · Поправил: ELF_7719116 · Личное сообщение · #4 Помнится в user32 есть bool SetCursorPos(int x, int y); Есть событие хука, по ходу дела можно использовать эту WinAPI и дрыгать мышкой. А по поводу хука. Result:= CallNextHookEx(HookID, Code, wParam,lParam); После попробуй(хотя бы узнаеш в чем ошибка): DWORD Error = GetLastError();
HiEndsoft Ранг: 237.0 (наставник), 20thx Активность: 0.13↘0 Статус: Участник sysenter	Создано: 10 февраля 2011 14:15 · Личное сообщение · #5 Set/GetCursorPos перехватить просто и всё ----- продавец резиновых утёнков
kannabis Ранг: -0.9 (гость) Активность: 0.01↘0 Статус: Участник	Создано: 12 февраля 2011 05:41 · Личное сообщение · #6 uote Не поможет. События мыши могут доставляться через mouse_event, а если кликает пользователь а не программа, то черт знает как.
Clerk Ранг: 255.8 (наставник), 19thx Активность: 0.15↘0.01 Статус: Участник vx	Создано: 20 февраля 2011 23:23 · Личное сообщение · #7 ToBad В шадове Low-level фильтр я описал: > В шадове обработка ввода от клавиатуры и мыши начинается в InputApc(), доставляемой асинхронно. Тут вызы > ваются базовые диспетчеры ProcessKeyboardInput() и ProcessMouseInput(). APC завершается рекурсивно в Sta > rtDeviceRead() -> NtReadFile(*InputApc). Диспетчеры описаны в описателях устройст ввода, это массив стру > ктур DEVICE_TEMPLATE(userk.h & ntinput.c) которые содержат ссылки на диспетчеры. Сами описатели располож > ены в секции данных Win32k. Оба диспетчера получают на вход структуру DEVICEINFO с сырым потоком данных. > Установка кейлоггера заключается в загрузке ссылок на свои диспетчеры(необходимая инфа для реализации в > DDK: ntddmou.h & ntddkbd.h). Переменная aDeviceTemplate может быть найдена через содержащиеся в ней ссыл > ки, например на GUID: GUID_DEVINTERFACE_KEYBOARD/GUID_DEVINTERFACE_MOUSE. Реализуется элементарно, проще даже чем винапишные хуки, но весьма эффективно - детекторы идут в топку Ниже чтото фильтравать смысла нет. Вот псевдокод для реализации: - Конвертим процесс в GUI для доступа к шадову в ядре вызвав любой теневой сервис, либо вручную сконвертировав тред в GUI. Также можно выполнить аттач к гуи-процессу(например тотже RIT выполняется в контексте csrss). - Ищем описадель девайса. Для этого находим в пределах проекции строку и ссылку на неё. - Загружаем в описатель ссылки на два наши менеджера(для потоков данных с клавы и мыши). - Профит, аверы нервно жуют галстук

Для печати