sharedat.pas

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

unit ShareDat;
 
interface

uses windows;

Const
HpAddress=$0136EF60;
MpAddress=$0136EF64;
GameKeyAdd:DWORD=$0050C0B0;
GameKeyFirstAddr=$0136F0E0;

type
TData=record
KeyHook:HHook;
MouseHook:HHook;
KeyHooked:Boolean;
MouseHooked:Boolean;
GameRes:Integer;
Resh:Integer;
GameHwnd:Hwnd;
XRes:Dword;
YRes:Dword;
end;
PData=^TData;

var
DLLData:PData;
ToolShow:Boolean;
byMouseKey:Byte=$70;
PHandle: THandle;
PID: DWORD;
KeyFunAddr:Pointer;
KeyHp,KeyMp,KeySkill,KeyBack,UseRed,UseBlue:Integer;
ChkHp,ChkMp,ChkSkill,ChkMedBack:Boolean;
DefHp,DefMp,DefSkill:Integer;
MouseType,SayType,SayNum:Integer;
DefSkillTime,DefMouseTime,DefSayTime:Integer;
SayText1,SayText2,SayText3,SayText4:String;
HpThread:THANDLE;
MpThread:THANDLE;
MedThread:THANDLE;
SayThread:THANDLE;
KeyThread:THANDLE;
MouseThread:THANDLE;
AttAckThread:THANDLE;
CharAttack:Array [0..11] of Byte;
CharMoveXY:Array [0..45] of Byte;
CharAttackXY:Array [0..25] of Byte;

implementation

end.