ntjm.net
当前位置:首页 >> DElphi hook Api 源码 >>

DElphi hook Api 源码

API钩子很简单,源码我没有,如果你会用API的话,我给你讲一下实现的过程吧:先用GetModuleHandle函数获取dll的模块句柄,再用GetProcAddress函数获取要HOOK的函数地址, 下一步用VirtualProtect函数将要HOOK的函数所在地址的属性设置为可写,最...

这需要全局的API钩子 钩住文件相应的操作的api

有时候我们需要对其它应用程序发送和接收的网络数据进行拦截,比如要对IE发送的HTTP头进行分析,得到请求的地址等.这次我们可以用一些例如WPE, Sniffer之类的工具来达到目的.但是工具功能有限,要想实现更强大的功能,还是我们自己动手来DIY吧. 拦截...

这个网上一般没有开源引擎式模块,有特定针对某个游戏的(可参考OGC基础码) 你可用其他子引擎源码或静态库重编译成dll并用于delphi 引擎参考: Disasm Engine:lde,xde,sugengine,ce,od,beaengine,distrom,xed2。。。 (前3个专inline hoo...

学习

WH_KEYBOARD 对于全局的效果不好用, 换用 WH_KEYBOARD_LL 钩子吧。 示例代码: //全局键盘钩子消息处理函数 function KeyHookProc(nCode:Integer; wP:WPARAM; lP:LPARAM):LRESULT; stdcall; var pEvt: TEventMsg; vKey: Cardinal; begin if (nC...

拉一个进去, 然后在事件里有一个事件. 在里面接收 hook 的回调

这样的:首先从Ring3获得你自己的句柄(不要用GetCurrentProcess,这个函数只能返回一个伪句柄-1),从Ring3传进来,驱动保存起来。在MyNtTerminateProcess中,你可以用PsGetCurrentProcess获得调用者的句柄,和传进来的句柄比较,如果相同,那...

Var x,y,lParam:Cardinal; begin x:=587;//x坐标,随机产生 y:=123;//y坐标,随机产生 lParam:=(y shl 16) or x; sendmessage(hookHwnd,messages.WM_LBUTTONDOWN,0,lParam); // 按下鼠标左键 sendmessage(hookHwnd,messages.WM_LBUTTONUP,0,lPar...

unit Unit1; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,Wintypes, WinProcs,TLHelp32, ExtCtrls;type TForm1 = class(TForm) btn1: TButton; btn2: TButton; edt1: TEdit; t...

网站首页 | 网站地图
All rights reserved Powered by www.ntjm.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com