請問如何抓取定點和範圍打怪

請問各位大大
可以分享或教一下小弟
如何製作抓取定點和選擇範圍打怪的程式碼呢?
要+在哪裡

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
VAR
視窗程序:HWND;
程序ID:DWORD;
遊戲:DWORD;
動態基址,人物基址,血量,最大血量,魔量,最大魔量:DWORD;
TT:DWORD;
begin
視窗程序:=FindWindow(nil, '完美世界前傳');
GetWindowThreadProcessid(視窗程序,程序ID);
遊戲:=OpenProcess(PROCESS_ALL_ACCESS,false,程序ID);
begin
If 遊戲=0 then
showmessage('找不到遊戲視窗');
begin
if 遊戲>0 then
showmessage('成功啟動');
end;
begin
   ReadProcessMemory(遊戲,pointer($5BFB0+$1C),@動態基址,4,TT);
   ReadProcessMemory(遊戲,pointer(動態基址+$20),@人物基址,4,TT);
   ReadProcessMemory(遊戲,pointer(人物基址+$),@血量,4,TT);
   ReadProcessMemory(遊戲,pointer(人物基址+$),@最大血量,4,TT);
   ReadProcessMemory(遊戲,pointer(人物基址+$),@魔量,4,TT);
   ReadProcessMemory(遊戲,pointer(人物基址+$),@最大魔量,4,TT);
   Label1.Caption:='人物血量:'+IntToStr (血量)+'/'+IntToStr (最大血量);
   Label2.Caption:='人物魔量:'+IntToStr (魔量)+'/'+IntToStr (最大魔量);
  end;
end;
end;
end.

好想學..............................................

要開一個TIMES去抓去座標判斷你這段碼只是讀取視窗及人物資料

請問大大，要如何找到怪物的偏移呢?改版後好像都改了，E大分享的基址搜尋器也沒有怪物的偏移，雖然我在後面加了讀取怪物的資訊，但因為偏移是錯誤的所以都是錯誤的YCT41B

procedure TForm1.Button1Click(Sender: TObject);
VAR
視窗程序:HWND;
程序ID:DWORD;
遊戲:DWORD;
動態基址,人物基址,血量,最大血量,魔量,最大魔量:DWORD;
TT:DWORD;
ftt,ta,tmp1,tmp2,MID,eax,MONHP,MONMHP,MONLV:DWORD;
begin
視窗程序:=FindWindow(nil, '完美世界前傳');
GetWindowThreadProcessid(視窗程序,程序ID);
遊戲:=OpenProcess(PROCESS_ALL_ACCESS,false,程序ID);
begin
If 遊戲=0 then
showmessage('找不到遊戲視窗');
begin
if 遊戲>0 then
showmessage('成功啟動');
end;
begin
   ReadProcessMemory(遊戲,pointer($A5BFB0+$1C),@動態基址,4,TT);
   ReadProcessMemory(遊戲,pointer(動態基址+$20),@人物基址,4,TT);
   ReadProcessMemory(遊戲,pointer(人物基址+$474),@血量,4,TT);
   ReadProcessMemory(遊戲,pointer(人物基址+$4B4),@最大血量,4,TT);
   ReadProcessMemory(遊戲,pointer(人物基址+$478),@魔量,4,TT);
   ReadProcessMemory(遊戲,pointer(人物基址+$4B8),@最大魔量,4,TT);
   Label1.Caption:='人物血量:'+IntToStr (血量)+'/'+IntToStr (最大血量);
   Label2.Caption:='人物魔量:'+IntToStr (魔量)+'/'+IntToStr (最大魔量);
   ReadProcessMemory(遊戲, Pointer(動態基址), @ftt, 4, tt);   //此部分偏移請對照GOD4的偏移大全,不再累述
   ReadProcessMemory(遊戲, Pointer(ftt+$08), @ftt, 4, tt);
   ReadProcessMemory(遊戲, Pointer(ftt+$24), @ta, 4, tt);
   ReadProcessMemory(遊戲, Pointer(ta+$24), @tmp1, 4, tt);
   ReadProcessMemory(遊戲, Pointer(ta+$18), @tmp2, 4, tt);
   ReadProcessMemory(遊戲, Pointer(動態基址), @MID, 4, tt);
   ReadProcessMemory(遊戲, Pointer(MID+$20), @MID, 4, tt);
   ReadProcessMemory(遊戲, Pointer(MID+$B0C), @MID, 4, tt);
   eax := tmp2 + ((MID Mod tmp1)) * 4 ;
   ReadProcessMemory(遊戲, Pointer(eax), @ftt, 4, tt);
   ReadProcessMemory(遊戲, Pointer(ftt+$4), @eax, 4, tt);
   ReadProcessMemory(遊戲, Pointer(eax+$12c), @MONHP, 4, tt);
   ReadProcessMemory(遊戲, Pointer(eax+$15c), @MONMHP, 4, tt);
   ReadProcessMemory(遊戲, Pointer(eax+$124), @MONLV, 4, tt);
   Label3.Caption := inttostr(MONLV) ;
   Label4.Caption := inttostr(MONHP)+'/'+inttostr(MONMHP);
   end;

end;
end;

怪物血量 12c
怪物最大血量 16c
怎麼抓!打怪損血ce去追!網路找

謝謝分享唷∼感謝你的分享∼謝謝分享唷∼感謝你的分享∼謝謝分享唷∼感謝你的分享∼
本文章轉自外掛聯合國http://www.wgun.net