RO的自動偵測hp ..自動喝水程式 |
|
mine
中階會員 發表:28 回覆:129 積分:56 註冊:2004-03-31 發送簡訊給我 |
沒什惡意...純屬程式研究
站上有很多大大關於外掛、封包的理論小的不才....
寫個小小的喝水程式 還望大大指導
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, BusinessSkinForm, bsSkinData; type TCandyFrm = class(TForm) Edit1: TEdit; Button1: TButton; Timer1: TTimer; Timer2: TTimer; ComboBox1: TComboBox; bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinData1: TbsSkinData; bsStoredSkin1: TbsStoredSkin; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); private { Private declarations } public { Public declarations } end; var CandyFrm: TCandyFrm; RoHandle,RoWinHWN:THandle; implementation {$R *.dfm} procedure TCandyFrm.Button1Click(Sender: TObject); begin CandyFrm.FormStyle:=fsStayOnTop; if Button1.Caption='開始' then begin Timer1.Enabled:=True; Button1.Caption:='關閉'; end else begin Button1.Caption:='開始'; Timer1.Enabled:=False; end; end; procedure TCandyFrm.Timer1Timer(Sender: TObject); var AProcessID: DWORD; WCount:DWord; NowHp:Word; Hpbyte:Byte; begin RoWinHwn:=FindWindow(nil,'Ragnarok'); GetWindowThreadProcessId(RoWinHwn, @AProcessID);//取得記憶體進程id RoHandle:=openprocess(PROCESS_VM_READ,false,AProcessID);//要求打開拜訪行程 ReadProcessMemory(RoHandle,Pointer($70E70C),@HpByte,1,WCount);//讀取記憶體內容 ReadProcessMemory(RoHandle,Pointer($0070E782 HpByte*4),@NowHp,2,WCount);//讀取記憶體內容 if NowHp
附加檔案:77199_Rob.rar
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |