有高手帮看看?过滤物品读不出物品名,哪出错了?

xg1997

var
i,j: cardinal;
a1,a2,a3,a4,My0,wun:integer;
WuName:array[0..60] of widechar;
basewu,base1:integer;
begin
  ReadProcessMemory(hProcess,pointer($8F04D4),@base, 4, Num);
ReadProcessMemory(hProcess,pointer(base + $8), @basewu, 4, Num);
ReadProcessMemory(hProcess,pointer(basewu + $24), @basewu, 4, Num);

  begin
    for i:=0 to 768 do
    ReadProcessMemory(hProcess,pointer(basewu + $18), @base1, 4, Num);
    ReadProcessMemory(hProcess, Pointer(base1+i*4), @a2, 4, Num);
    if a2>0 then
    begin
      ReadProcessMemory(hProcess, Pointer(a2+$4), @a3, 4, Num);
      ReadProcessMemory(hProcess, Pointer(a3+$164), @a4, 4, Num);
      ReadProcessMemory(hProcess, Pointer(a4), @WuName,40, Num);
      label1.Caption:=wuname;
      if listbox1.Count>0 then
      for j:=0 to listbox1.Count -1 do
      if pos(listbox1.Items[j],wuname )>0 then
      begin
      WriteProcessMemory(hProcess,pointer(Base1+i*4), 0, 4,Num);
      ReadProcessMemory(hProcess,Pointer(BaseWu+$14),@WuN,4,Num);
      WuN:=WuN-1;
        WriteProcessMemory(hProcess,pointer(BaseWu+$14), @WuN, 4, Num);
    end;
    end;
    end;
    end;

三设

listbox1.Caption:=string(wpname);
读出来的也是乱码

agyf

listbox1.Caption:=人物名;
这个就能读出来人名
是我定义的不对还是基址错误?

密字所

ReadProcessMemory(hProcess, Pointer(a4), @WuName,40, Num);

这一句改为
ReadProcessMemory(hProcess, Pointer(a4), @WuName,sizeof(WuName), Num);

rice

看了一下 你的代码 有个问题需要先确定 地面上有没有物品  
//    地上所有物品数量（包含别人打掉地上的物品）=[[[[&h12F824]+&h8]+&h24]+&h14]
你没有对这一步做判断 如果地面上没物品 后面强行读取的话 当然会显示乱码了

傲笑

另外建议你把integer 类型的改为dword类型

蓝雨

支持楼主，这贴必须得顶