挂机型外挂开发-游戏数据包管理类

最新推荐文章于 2022-07-24 23:10:53 发布

Yoie

最新推荐文章于 2022-07-24 23:10:53 发布

阅读量1.3k

点赞数

分类专栏：那些年我们玩过的网游

本文链接：https://blog.csdn.net/yoie01/article/details/51956285

版权

那些年我们玩过的网游专栏收录该内容

24 篇文章 7 订阅

订阅专栏

一个外挂能够正常的长时间挂机缺少不了游戏内数据的获取，这里我们就要创建个类用来获取游戏的数据及分发各种数据。

这里只针对利用封包为数据来源，如果是内存方式获取数据的，请无视该类。

unit UPacketManager;

interface
uses
  Windows, Classes, SyncObjs ,GD_Utils;

const
  C_SEND_PACKET     =     1000;
  C_RECV_PACKET     =     1001;

  C_PACKET_HANDLE_BREAK = -1;
type

  FPacketProc = Procedure (pBuffer:Pointer;Len:Cardinal) of object;

  TPacketNode = Class
    HandleName:String;
    PacketType:Cardinal;
    Proc:FPacketProc;
  End;

  TPacketManager = class
    private
      Cri:TCriticalSection;
      List:TList;
      Procedure OnPacketHandle(PacketType:Cardinal;pBuffer:Pointer;Len:Cardinal);
    public
      constructor Create();
      //添加回调
      Function AddItem(PacketType:Cardinal;HandleName:string; Proc:FPacketProc):Bool;

      Procedure OnSendHandle(pBuffer:Pointer;Len:Cardinal);
      Procedure OnRecvHandle(pBuffer:Pointer;Len:Cardinal);
  end;

var
  Packet:TPacketManager;
implementation

{ TPacketManager }

function TPacketManager.AddItem(PacketType: Cardinal; HandleName:string; Proc: FPacketProc): Bool;
var
  pNode:TPacketNode;
begin
  try
    pNode:=TPacketNode.Create;
    pNode.HandleName := HandleName;
    pNode.PacketType := PacketType;
    pNode.Proc := Proc;

    Dbgprint('Add Packet Handle[Name:%s Proc:0x%X]',[HandleName,Cardinal(@Proc)]);
    Cri.Enter;
    List.Add(pNode);
    Cri.Leave;
    Result:=True;
  Except
    Result:=False;
  end;
end;

constructor TPacketManager.Create;
begin
  List:=TList.Create;
  Cri:=TCriticalSection.Create;
  
end;

procedure TPacketManager.OnPacketHandle(PacketType:Cardinal;pBuffer: Pointer; Len: Cardinal);
var
  i:Integer;
  pNode:TPacketNode;
begin
  Cri.Enter;
  for i := 0 to List.Count - 1 do
    begin
      pNode := List[i];
      if pNode.PacketType = PacketType then
        begin
          if Assigned(pNode.Proc) then
           begin
            // Dbgprint('OnPacket[%s] - %X',[pNode.HandleName,Cardinal(@pNode.Proc)]);
             pNode.Proc(pBuffer,Len);
           end;
        end;
    end;
  Cri.Leave;
end;

procedure TPacketManager.OnRecvHandle(pBuffer: Pointer; Len: Cardinal);
begin
  OnPacketHandle(C_RECV_PACKET,pBuffer,Len);
end;

procedure TPacketManager.OnSendHandle(pBuffer: Pointer; Len: Cardinal);
begin
  OnPacketHandle(C_SEND_PACKET,pBuffer,Len);
end;



initialization
  Packet:=TPacketManager.Create;
end.

外部send和recv hook的函数可以直接调用 Packet导出的 OnSendHandle 和 OnRecvHandle传递数据。

这里还要创建的数据包的基类用于注册回调例程

unit UGamePacket;

interface
uses
  windows;

type
  TGamePacket = class
    public
       constructor Create(HandleName:String);

       Procedure OnSend(pBuffer:Pointer;Len:Cardinal);virtual;abstract;
       Procedure OnRecv(pBuffer:Pointer;Len:Cardinal);virtual;abstract;
  end;
implementation
uses
  UPacketManager,GD_Utils;


{ TGamePacket }

constructor TGamePacket.Create(HandleName: String);
begin
  Packet.AddItem(C_SEND_PACKET,'s_' + HandleName,OnSend);
  Packet.AddItem(C_RECV_PACKET,'r_' +HandleName,OnRecv);
end;

end.

这样数据收发包的获取框架类就完成了，数据会被广播到各个注册的解析回调中去。