myhook.pas

热血江湖游戏辅助工具原代码 学习delphi开发游戏外挂的好例子

unit MyHook;

interface

uses
  SysUtils,Windows,MadCodeHook,Classes,ShareDat;

procedure StartHook;
procedure StopHook;
var ExtTextOutWOrigin:function(DC: HDC; X, Y: Integer; Options: Longint;
  Rect: PRect; Str: PWideChar; Count: Longint; Dx: PInteger): BOOL; stdcall;

implementation

function MyExtTextOutW(DC: HDC; X, Y: Integer; Options: Longint;
  Rect: PRect; Str: PWideChar; Count: Longint; Dx: PInteger): BOOL; stdcall;
var
BufStr:String;
begin
BufStr:=WideCharToString(Str);
{if (Pos('获得厉炼',BufStr)>0) then
CountExp1:=StrToInt(Copy(BufStr,9,Length(BufStr)-8));
if (Pos('获得经验值',BufStr)>0) then
CountExp2:=StrToInt(Copy(BufStr,11,Length(BufStr)-10));
if (Pos('获得',BufStr)>0) and (Pos('两',BufStr)>0) then
CountMoney:=StrToInt(Copy(BufStr, Pos('获得', BufStr)+4,Pos('两',BufStr)-4));}
if ItemList=Nil then ItemList:=TStringList.Create;
if (Pos(' 获得',BufStr)>0) and (Pos('两',BufStr)=0) then
if ItemList.IndexOf(BufStr)=-1 then ItemList.Add(Str);
MyExtTextOutW:=ExtTextOutWOrigin(DC,X,Y,Options,Rect,Str,Count,Dx);
end;

procedure StartHook;
begin
HookApi('gdi32.dll','ExtTextOutW',@MyExtTextOutW,@ExtTextOutWOrigin);
end;

procedure StopHook;
begin
UnhookAPI(@ExtTextOutWOrigin);
end;

end.