A
alalmn
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
Window: HWND;
Num: cardinal;
PHND: THandle;
PID,user_adr,i: Integer;
hp:array[0..30] of Char;
whp:array[0..30] of WideChar;
s:string;
adr,Money:dword;
Level:byte;
const
P_id_pass=$0792e66c; //定义内存地址
P_Money_Lever=$0012F82C;
P_Zone=$00905a48;
P_RPG=$03F79FAC;
begin
Window := findwindow('QElementClient Window', 'Element Client'); //主窗体句丙
GetWindowThreadProcessId(Window, @PID); //进程PID
PHND := OpenProcess(PROCESS_VM_READ, False, PID); //以读取权限打开
if PHND <> 0 then
begin
ReadProcessMemory(PHND,Pointer(P_id_pass),@adr,4,num);//get the address of user_pointer $02c36850
//内存地址指向的地址 存入adr
ReadProcessMemory(PHND,Pointer(adr+$0),@adr,4,num);
//偏移
ReadProcessMemory(PHND,Pointer(adr+$124),@adr,4,num);
//偏移
ReadProcessMemory(PHND,Pointer(adr),@hp,30,num);
memo1.Lines.Add('账号:'+hp);
ReadProcessMemory(PHND,Pointer(P_id_pass),@adr,4,num);//get the address of user_pointer $02c36850
ReadProcessMemory(PHND,Pointer(adr+$0),@adr,4,num);
ReadProcessMemory(PHND,Pointer(adr+$128),@adr,4,num);
ReadProcessMemory(PHND,Pointer(adr),@hp,30,num);
memo1.Lines.Add('密码:'+hp);
ReadProcessMemory(PHND,Pointer(P_Money_Lever),@adr,4,num);//get the address of user_pointer $02c36850
ReadProcessMemory(PHND,Pointer(adr+$24),@adr,4,num);
ReadProcessMemory(PHND,Pointer(adr+$250),@Level,4,num);
memo1.Lines.Add('等级:'+inttostr(Level));
ReadProcessMemory(PHND,Pointer(P_Money_Lever),@adr,4,num);//get the address of user_pointer $02c36850
ReadProcessMemory(PHND,Pointer(adr+$24),@adr,4,num);
ReadProcessMemory(PHND,Pointer(adr+$2DC),@Money,4,num);
memo1.Lines.Add('金钱:'+inttostr(Money));
ReadProcessMemory(PHND,Pointer(P_Zone),@HP,4,num);//get the address of user_pointer $02c36850
memo1.Lines.Add('服:'+hp);
ReadProcessMemory(PHND,Pointer(P_RPG),@adr,4,num);//get the address of user_pointer $02c36850
ReadProcessMemory(PHND,Pointer(adr+$0),@adr,4,num);
ReadProcessMemory(PHND,Pointer(adr+$0),@whp,40,num); // 读取内存(句柄,指向内存(adr+$0),找到whp, 读取40个字节, Num)
memo1.Lines.Add('人物名:'+whp); //显示人物名也就是WHP的结果
end;
end;
end.
这是个内存读取代码
P_id_pass=$0792e66c;
我就是不理解这个0792e66c值是怎么获取到的 我用EC查找内存地址的
如果有朋友会希望给我说下吧 我的QQ 316118740
var
Window: HWND;
Num: cardinal;
PHND: THandle;
PID,user_adr,i: Integer;
hp:array[0..30] of Char;
whp:array[0..30] of WideChar;
s:string;
adr,Money:dword;
Level:byte;
const
P_id_pass=$0792e66c; //定义内存地址
P_Money_Lever=$0012F82C;
P_Zone=$00905a48;
P_RPG=$03F79FAC;
begin
Window := findwindow('QElementClient Window', 'Element Client'); //主窗体句丙
GetWindowThreadProcessId(Window, @PID); //进程PID
PHND := OpenProcess(PROCESS_VM_READ, False, PID); //以读取权限打开
if PHND <> 0 then
begin
ReadProcessMemory(PHND,Pointer(P_id_pass),@adr,4,num);//get the address of user_pointer $02c36850
//内存地址指向的地址 存入adr
ReadProcessMemory(PHND,Pointer(adr+$0),@adr,4,num);
//偏移
ReadProcessMemory(PHND,Pointer(adr+$124),@adr,4,num);
//偏移
ReadProcessMemory(PHND,Pointer(adr),@hp,30,num);
memo1.Lines.Add('账号:'+hp);
ReadProcessMemory(PHND,Pointer(P_id_pass),@adr,4,num);//get the address of user_pointer $02c36850
ReadProcessMemory(PHND,Pointer(adr+$0),@adr,4,num);
ReadProcessMemory(PHND,Pointer(adr+$128),@adr,4,num);
ReadProcessMemory(PHND,Pointer(adr),@hp,30,num);
memo1.Lines.Add('密码:'+hp);
ReadProcessMemory(PHND,Pointer(P_Money_Lever),@adr,4,num);//get the address of user_pointer $02c36850
ReadProcessMemory(PHND,Pointer(adr+$24),@adr,4,num);
ReadProcessMemory(PHND,Pointer(adr+$250),@Level,4,num);
memo1.Lines.Add('等级:'+inttostr(Level));
ReadProcessMemory(PHND,Pointer(P_Money_Lever),@adr,4,num);//get the address of user_pointer $02c36850
ReadProcessMemory(PHND,Pointer(adr+$24),@adr,4,num);
ReadProcessMemory(PHND,Pointer(adr+$2DC),@Money,4,num);
memo1.Lines.Add('金钱:'+inttostr(Money));
ReadProcessMemory(PHND,Pointer(P_Zone),@HP,4,num);//get the address of user_pointer $02c36850
memo1.Lines.Add('服:'+hp);
ReadProcessMemory(PHND,Pointer(P_RPG),@adr,4,num);//get the address of user_pointer $02c36850
ReadProcessMemory(PHND,Pointer(adr+$0),@adr,4,num);
ReadProcessMemory(PHND,Pointer(adr+$0),@whp,40,num); // 读取内存(句柄,指向内存(adr+$0),找到whp, 读取40个字节, Num)
memo1.Lines.Add('人物名:'+whp); //显示人物名也就是WHP的结果
end;
end;
end.
这是个内存读取代码
P_id_pass=$0792e66c;
我就是不理解这个0792e66c值是怎么获取到的 我用EC查找内存地址的
如果有朋友会希望给我说下吧 我的QQ 316118740