终于写好了 Hook API 的控件了，发分庆贺～～(200分)

webz · 2006-10-04

LZ，先恭喜你~ 然后，发出来让大家试试 2CCC.com 有类似源码，http://www.2ccc.com/article.asp?articleid=2075

QSmile · 2006-10-04

to webz 你的是鼠标与键盘钩子. 别人说的是 Hook API 两回事.

CnPack · 2006-10-04

楼主好功力。 您的HookAPI组件能否可以考虑授权移植入CnPack的组件包中？ 我们的网址和介绍： http://www.cnpack.org

白河愁 · 2006-10-04

刚看了下介绍似乎不错,等回公司后安装看看先......

白河愁 · 2006-10-04

弄了半天还是弄不好 DLL,  TOnAPIMessage = procedure(const MSG: string) of object;  TOnAPIHookProc = function(const aParam: array of DWORD): DWORD of object;  TOnAPIErrorCode = procedure(const ErrorCode: DWORD) of object; 象这样的函数,如何做成回调函数......

Passion · 2006-10-04

savetime的作品，类成员函数转 Windows 回调函数: http://www.delphibbs.com/keylife/iblog_show.asp?xid=8603

白河愁 · 2006-10-04

谢谢,研究看看先.

风铃夜思雨 · 2006-10-04

回调方法： DLL中的代码： type TOnAPIMessage = procedure(const MSG: string); procedure testmsg(xx:string;callback:TOnAPIMessage);stdcall; bgin callback(xx); end; EXE调用： type TOnAPIMessage = procedure(const MSG: string); procedure testmsg(xx:string;callback:TOnAPIMessage);stdcall; ........... procedure APIMessage(const msg:String); begin showmessage(msg); end; procedure tform1.button1click(sender:tobject); begin testmsg('xxxxxxxxxxxxx',APIMessage); end;

白河愁 · 2006-10-04

但关键是这个东西.... TOnAPIHookProc = function(const aParam: array of DWORD): DWORD of object;

dreamfly1024 · 2006-10-04

给你个例子： // 这个是被 hook 的函数 function Test2(a1, a2, a3, a4: LongWord): LongWord; stdcall; begin  Writeln('a1: ', a1, '; a2: ', a2, '; a3: ', a3, '; a4: ', a4);  Writeln('Test2 called.');  Result := 2; end; // 这个是 hook 的 event：回调 procedure Test3(a0, a1, a2, a3, a4: LongWord); cdecl; begin  Writeln('a1: ', a1, '; a2: ', a2, '; a3: ', a3, '; a4: ', a4);  Writeln('Test3 called.'); end; // 你插进去的处理 hook 的函数 procedure Test4(); stdcall; begin  asm    pop  callBack            // callBack    push $1    call Test3               // event for hook, no change sp    pop  eax                 // a0, call Test2 ?    call Test2        push callBack            // callBack    mov  callBack, $0  end; end;

dreamfly1024 · 2006-10-04

我设计成这样： 用户的 hook event 多第一个参数：a0，用来指明是否继续调用这个 hook，默认 push $1 处理 hook 的函数 test4 是挂接 hook 的时候你自己填出来的，其中填入了包括 hook 的函数和 hook event 的地址，另外一个变量 callBack 指明是否进入了你的 hook 控制内 这种设计的好处是，你的 hook 处理代码很少（你适当加一点控制代码即可），速度很快，用户的 hook event 函数非常好写，参数全部都有了

白河愁 · 2006-10-05

终于弄好回调函数了,写个抓数据包的demo就发表...

jxj0561 · 2006-10-05

楼主真厉害,恭贺啊!

16cy · 2006-10-05

楼主怎么联系啊？ 我有个很难的问题，问了几个月了，连一个回答我的人都没有，晕！ 问题就是如何获取游戏里的鼠标状态变化，如形状发生变化。问题原文如下： http://www.delphibbs.com/delphibbs/dispq.asp?lid=3552681

闹海金蛟 · 2006-10-05

快点发表控件呀，就等着用了

16cy · 2006-10-06

我想请教一下， 1.能否用钩子捕获游戏里的鼠标状态变化？如移动鼠标到特定位置，鼠标形状会发生变化。 2.能否捕获游戏里的文字状态变化？例如鼠标移到到文字上，文字会发生变色的状态。 我汇编语言还没学的，看来不学汇编就不能上档次啊，晕

aricyoung · 2006-10-06

哇塞这么多的评论，我先占个地，要慢慢品味各位的东西了。

白河愁 · 2006-10-06

to 16cy: 如果不采用系统标准 API, 就不行.一般这些操作都是用游戏自定义的操作,所以要自己分析程序.

闹海金蛟 · 2006-10-07

都等了几天了，怎么还不发布呢？

白河愁 · 2006-10-07

就发了,在整理异常的处理...

终于写好了 Hook API 的控件了，发分庆贺～～(200分)

webz

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

CnPack

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

Passion

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

风铃夜思雨

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

dreamfly1024

Unregistered / Unconfirmed

dreamfly1024

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

jxj0561

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

闹海金蛟

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

aricyoung

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

闹海金蛟

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

Similar threads