delphi HooK 指定程序窗体和控件的 WndProc作者:admin 来源: 日期:2011/8/16 9:35:18 人气:555 标签: | 搞点界面XX
只是做不好的话会引起explorer和其他程序崩溃
首先我们的思路肯定这样的啦!
1 下钩
2 当一个程序运行后钩子被注入,入口肯定是要先判断 是否是我们要HOOK的程序的进程
3判断是了就保存原来的WndProc的地址然后 SetWindowLong 把窗体的 WndProc 或 控件的 WndProc 转向我们新的 WndProc
然后呢,发现什么问题,钩子入口函数执行啦,但是 SetWindowLong 就是不成功。。。(SetWindowLong 头参是窗体或控件句柄)
调了下,发现原来 SetWindowLong 函数没有被执行,纳闷中 ,以为入口函数没有被执行 ,后来放个消息发现 入口函数被执行,但是
SetWindowLong 没有被执行........
原来当钩子入口函数执行的时候 钩子所在进程是有啦 ,但是进程的窗体还没出来,获取不到窗体句柄和控件句柄.
后来把 SetWindowLong 尝试放在其他位置 , 发现挂钩总是过滤不到消息不然就是引起其他程序崩溃..........
下楼完吃饭 , 找到突破口 , 尝试了下 , 好啦.
----------------------------------------------------------------------------------------------------------------------------------------------------------------------
钩任务管理器的 WndProc 为例子...............
HOOK控件WndProc的话,需要先枚举出你要搞的那个的句柄,然后就不用说了吧,枚举自己来,我这里不搞了.
ibrary zhusjm;
uses Windows, Messages, SysUtils, Dialogs, psapi;
var OldHook: HHOOK; OldProc:FARPROC; CriticalSection: TRTLCriticalSection;
Function WndProc(Hwnd,Msg,wParam,lParam:longint):LRESULT; stdcall; begin case Msg of //WM_PAINT: 这东西好啊 = = ,搞点什么好事都不错丫,嘻嘻嘻 WM_MOUSEMOVE: begin showmessage('s'); end; end; Result:=CallWindowProc(OldProc,Hwnd,Msg,wParam,lParam); end;
procedure HookProc(nCode, wParam, lParam: LongWORD);stdcall; var Winh:HWND; begin CallNextHookEx(OldHook, nCode, wParam, lParam); end;
function SetHook:Boolean;stdcall; begin OldHook:=SetWindowsHookEx(WH_GETMESSAGE,@HookProc, Hinstance,0); if (OldHook=0) then begin exit end else Result:=True; end;
procedure UnHook; stdcall; begin UnhookWindowsHookEx(OldHook); end;
function IdToExeDir(dwProcessId : DWORD): String; var cbNeeded : DWORD; hProcess : THandle; hModules : HMODULE; lpFilename : array [0..1024-1] of Char; begin result:=''; hProcess:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,false,dwProcessId); if hProcess=0 then exit; EnumProcessModules(hProcess,@hModules,sizeof(hModule),cbNeeded); GetModuleFileNameEx(hProcess,hModules,lpFilename,1024); result:=lpFilename; CloseHandle(hProcess); end;
procedure SetWndProc; var WinStr:HWND; begin EnterCriticalSection(CriticalSection); Sleep(2000); //等两秒,嘿嘿 这回窗口出来了吧~ WinStr:=FindWindow(nil,'Windows 任务管理器'); OldProc:=FARPROC(GetWindowLong(WinStr,GWL_WNDPROC)); if WinStr<>0 then begin SetWindowLong(WinStr,GWL_WNDPROC,Longint(@WndProc)); end; LeaveCriticalSection(CriticalSection); ExitThread(4); end;
procedure FindWindows; var WinStr:HWND; ThreadId1:DWORD; begin if pos('taskmgr',IdToExeDir(GetCurrentProcessID))>0 then begin if CriticalSection.RecursionCount<>0 then DeleteCriticalSection(CriticalSection); InitializeCriticalSection(CriticalSection); CreateThread(nil,0,@SetWndProc,nil,0,ThreadId1); //虽然这时候窗口没出来find不到句柄,那我们不懂来个线程啊,嘻嘻嘻嘻 end; end;
procedure DllMain(Reason: Integer); begin case Reason of DLL_PROCESS_ATTACH: begin FindWindows; end; DLL_PROCESS_DETACH: begin
end; end; end;
exports SetHook, UnHook;
begin DLLProc:=@DllMain; DllMain(DLL_PROCESS_ATTACH); end.
|
|