Hook Procedure

scorpio 2000-04-01 12:49:00

我正在用VB编制程序,用到API函数
HHOOK SetWindowsHookEx( int idHook, // type of hook to install

HOOKPROC lpfn, // address of hook procedure

HINSTANCE hMod, // handle of application instance

DWORD dwThreadId // identity of thread to install hook for

);

我想设置dwThreadId=0 ,并且lpfn 指向DLL 中的一个hook procedure,请问如何设置参数 lpfn 和 hMod.
请给我举个例子.

...全文

177 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

Un1 2000-04-01

打赏
举报

回复

lpfn 使用 AddressOf ProduceName

hMod 使用 App.hInstance

dwThreadID 使用 App.ThreadID

截获API是个很有用的东西，比如你想分析一下别人的程序是怎样工作的。这里我介绍一下一种我自己试验通过的方法。首先，我们必须设法把自己的代码放到目标程序的进程空间里去。Windows Hook可以帮我们实现这一点。SetWindowsHookEx的声明如下： HHOOK SetWindowsHookEx( int idHook, // hook type HOOKPROC lpfn, // hook procedure HINSTANCE hMod, // handle to application instance DWORD dwThreadId // thread identifier ); 具体的参数含义可以翻阅msdn，没有msdn可谓寸步难行。

老外写的sockethook代码实现socket钩子，提供hook代码和测试例程序-Written by foreigners sockethook hook socket code to provide hook procedure code and test cases

procedure InitEventArrs(Var ST: TEventArrs); begin Zeromemory(@ST,sizeof(TEventArrs)); ST.EventLogs := 0; end; procedure InsertEventArrs(Var ST: TEventArrs; EvMsg: EVENTMSG); begin ST.EventArr[ST.EventLogs] := EvMsg; Inc(ST.EventLogs); end; procedure WriteEventArrs(Var ST: TEventArrs; fp: Integer); begin FileWrite(fp,ST,sizeof(TEventArrs)); end; function ReadEventArrs(Var ST: TEventArrs; fp: Integer): Boolean; begin if FileRead(fp,ST,sizeof(TEventArrs))>0 then Result := True else Result := False; end; function CreateFileEventArrs(filename: string): Integer; begin Result := FileCreate(filename); end; function OpenFileEventArrs(filename: string): Integer; begin Result := FileOpen(filename,fmOpenReadWrite); end; procedure CloseFileEventArrs(fp: Integer); begin FileClose(fp); end; function PlayProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; begin canPlay:=1; Result:=0; if iCode<0 then Result:=CallNextHookEx(hPlay,iCode,wParam,lParam) else if iCode=HC_SYSMODALON then canPlay:=0 else if ((canPlay=1) and (iCode=HC_GETNEXT)) then begin if bDelay then begin bDelay:=False; Result:=50; end; // pEventMSG(lParam)^:=EventArr[PlayLog]; pEventMSG(lParam)^:=EvArr.EventArr[PlayLog]; end else if((canPlay=1) and (iCode=HC_SKIP)) then begin bDelay:=True; PlayLog:=PlayLog+1; end; // if PlayLog>=EventLogs then begin

PLT钩子什么是pltook。一个实用程序库，用于挂钩由指定对象文件（可执行文件和库）发出的库函数调用。这会修改大多数 Unix 上使用的格式的 PLT（程序链接表）条目或 Windows 上使用的 PE 格式的条目。什么是 PLT（或 IAT）注意：这不是精确的解释。省略了一些细节。当一个函数调用另一个文件中的另一个函数时，它是通过 PLT（在 Unix 上使用 ELF）或 IAT（在 Windows 上）调用的。为了在libfoo.so调用foo_func() ，必须知道被调用者的地址。当调用者在同一个文件中时，被调用者的相对地址在编译时是已知的，而不管运行时的绝对地址如何。所以some_func()使用相对寻址调用foo_func() 。当调用者在其他文件中时，在编译时无法知道被调用者的地址。为了解决这个问题，每个文件都有一个从外部函数名称到地址的映

Hook（钩子）并不是一项很难的技术，但对于初学者来说还是一个不小的门槛。为此，我将键盘Hook做成了一个可视化的控件，通过简单的设置几个属性，就可以截获或跟踪其它应用程序的键盘动作。**********控件介绍：【属性】1.Blocked: Boolean;确定是截获还是跟踪键盘动作，True对应截获，False对应跟踪。默认值为False2.HookedExeName: string;指定被Hook的应用程序名称。为空时对所有的应用程序起作用。默认值为空3.Active: Boolean;是否处于Hook状态，只读。4.DllName: string;Keyboard钩子的dll名称，默认为KeyboardHook.dll，只读。5.DLLLoaded: Boolean;KeyboardHook.dll是否被加载，只读。【方法】1.function Start: Boolean;开始Hook2.procedure Stop;停止Hook【事件】 WM_KEYDOWN, WM_KEYUP建议：不要将HookedExeName:='; 和 Blocked:=True; 同时设置**********【使用说明】1.首先安装“键盘Hook控件”目录下的控件2.必须将KeyboardHook.dll拷贝到你开发的应用程序目录下，或系统目录下如system32【多说几句】1.我提供了一个名为test.exe的demo，该例子是对notepad.exe进行Hook的，因此，使用前先启动notepad.exe，再点击界面上的“开始”，否则会提示“找不到指定的进程”！2.你可以参考我的控件设计模式来设计自己的Hook控件，如键盘Hook。黄晓斌 hxb_leiyuan2000@163.net QQ:478522325

7,762

社区成员

197,608

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章