寵物保護功能_《完美世界外掛研究區》_外掛聯合國討論區免費下載試用

外掛聯合國討論區 › 《遊戲新幹線》 › 《完美世界2外掛》 › 《完美世界外掛研究區》 ›

3187

發佈主題

zsnoopy

zsnoopy 發表於 2009-11-21 12:34:14 | 只看該作者回帖獎勵

|倒序瀏覽 |

本帖最後由 zsnoopy 於 2009-11-21 12:37 編輯

現在的仿丁丁都只有基本的卡見鍵功能，有時候用妖精打倉力會麻煩點。
爬了點文，把寵物保護功能用出來：（僅寵物部份，偏移為135版）
（只有補血，餵寵懶得寫）
var
  Nkey9:integer;
  petbase,petcx,petsn,PetTmpAdr,petname,petlv:Dword;
  pethp: single;
  petname1:array[0..32] of WideChar;
  tt: cardinal;

  ReadProcessMemory(ProcessID, Pointer(ft+$DF4), @petbase, 4, tt); //寵物包裹基址
  ReadProcessMemory(ProcessID, Pointer(petbase+$38), @petsn, 4, tt);  //招出的寵物SN(未招出時0)
  if petsn<>0 then    //未招出，則不讀取
  begin
  ReadProcessMemory(ProcessID, Pointer(petbase+$8), @petcx, 4, tt);  //招出的寵物在包裹中位次(未招出時0xffffffff)
  ReadProcessMemory(ProcessID, Pointer(petbase + (PetCx * 4) + $10), @PetTmpAdr, 4, tt);  //相應位置寵物基址
  ReadProcessMemory(ProcessID, Pointer(PetTmpAdr+$34), @petname, 4, tt); //相應位置寵物名稱
  ReadProcessMemory(ProcessID, Pointer(petname), @petname1, 32, tt);
  ReadProcessMemory(ProcessID, Pointer(PetTmpAdr+$20), @petlv, 4, tt); //相應位置寵物等級
  ReadProcessMemory(ProcessID, Pointer(PetTmpAdr+$1c), @pethp, 4, tt); //相應位置寵物生命比例(float未復活時0)
  label20.Caption := petname1;
  label21.Caption := inttostr(petlv);
  label22.Caption := FloatToStr(int(pethp*100))+'%';
  if checkbox2.Checked and (int(pethp*100)<strtoint(edit7.Text)) then
  SendMessageW (Ghwnd,WM_KEYDOWN ,nkey9,0);
  end;

我沒有直接用補寵的技能，而是卡鍵，算是小偷懶一下。
nkey9定義請自行參考丁丁源碼。

single