问一下,怎么能看到先中玩家的信息,好用医生加血

dpt

问一下,怎么能看到先中玩家的信息,好用医生加血,已经试了好久了,29号前有点眉目,改地址后就一点信息都没有了,大家帮帮忙好吗

xg800

delphi写的东东,自已看吧  
function TfrmDoctor.GetSelID:LongInt;
begin
if ReadProcessMemory(PHND, pointer(BaseAddress), POINTER(@ft), 4, Num)then
if ReadProcessMemory(PHND, pointer(ft+($24)),POINTER(@ft), 4, Num)then
if ReadProcessMemory(PHND, pointer(ft+($798)),POINTER(@ft), 4, Num)then
Result := ft;
end;

function TfrmDoctor.GetMaxPlayerCount:integer;
begin
if ReadProcessMemory(PHND, pointer(BaseAddress), POINTER(@ft), 4, Num)then
if ReadProcessMemory(PHND, pointer(ft+($24)),POINTER(@ft), 4, Num)then
if ReadProcessMemory(PHND, pointer(ft+($138)),POINTER(@ft), 4, Num)then
if ReadProcessMemory(PHND, pointer(ft+($24)),POINTER(@ft), 4, Num)then
Result := ft;
end;

function TfrmDoctor.GetSelPlayerOffset:integer ;
begin
Result := (GetSelID mod GetMaxPlayerCount)*4
end;

function Tfrmdoctor.GetSelPlayerRed:Integer;
var
APlayerOffset:integer;
begin
APlayerOffset := GetSelPlayerOffset;
if ReadProcessMemory(PHND, pointer(BaseAddress), POINTER(@ft), 4, Num)then
if ReadProcessMemory(PHND, pointer(ft+($24)),POINTER(@ft), 4, Num)then
if ReadProcessMemory(PHND, pointer(ft+($138)),POINTER(@ft), 4, Num)then
if ReadProcessMemory(PHND, pointer(ft+($18)),POINTER(@ft), 4, Num)then
if ReadProcessMemory(PHND, pointer(ft+(APlayerOffset)),POINTER(@ft), 4, Num)then
if ReadProcessMemory(PHND, pointer(ft+($4)),POINTER(@ft), 4, Num)then
if ReadProcessMemory(PHND, pointer(ft+($254)),POINTER(@ft), 4, Num)then
Result := ft;
end;