請問我改的 Delphi 讀取玩家/怪物資訊 哪裡錯了??(求大大解決)

begin         

//********************讀取怪物資訊****************
  ReadProcessMemory(ProcessID, Pointer(W2i_Base), @ftt, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(ftt+$08), @ftt, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(ftt+$24), @ta, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(ta+$24), @tmp1, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(ta+$18), @tmp2, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(W2i_Base), @MID, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(MID+$20), @MID, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(MID+$A2c), @MID, 4, tt);
  eax := tmp2 + ((MID Mod tmp1)) * 4 ;
  ReadProcessMemory(ProcessID, Pointer(eax), @ftt, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(ftt+$4), @eax, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(eax+$134), @MONHP, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(eax+$14c), @MONMHP, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(eax+$124), @MONLV, 4, tt);
  if MONMHP=0 then
  begin
      //********************讀取人物資訊****************
  ReadProcessMemory(ProcessID, Pointer(W2i_Base), @ftt, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(ftt+$08), @ftt, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(ftt+$20), @ta, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(ta+$24), @tmp1, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(ta+$18), @tmp2, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(W2i_Base), @MID, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(MID+$20), @MID, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(MID+$A2c), @MID, 4, tt);
  eax := tmp2 + ((MID Mod tmp1)) * 4 ;
  ReadProcessMemory(ProcessID, Pointer(eax), @ftt, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(ftt+$20), @eax, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(eax+$464), @MONHP, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(eax+$494), @MONMHP, 4, tt);
  ReadProcessMemory(ProcessID, Pointer(eax+$45c), @MONLV, 4, tt);
  end;
  if MONMHP<>0 then
  label19.Caption := inttostr(MONLV) ;
  label20.Caption := inttostr(MONHP)+'/'+inttostr(MONMHP);
end;

謝謝大大的提醒YCT65B


更改好就可以了YCT47B

[ 本帖最後由 whip0001 於 2009-5-25 23:04 編輯 ]

當前ID偏移a2c是舊版本的....怪物血跟最大血值...錯了

基址資料可以參考這篇廣海的 http://www.ghoffice.com/bbs/read-htm-tid-66086.html

我不是懂很多 ... 我也在學習 可以幫到就幫吧 :X

[ 本帖最後由 lemonkid2006 於 2009-5-24 06:16 編輯 ]