But when the judge
If (strtoint (form1. Ge_now. Text) & lt;=strtoint (form1. Ge_ifnow_edit. Text)) and (form1. CheckBox2. Checked=true) then
He completely ignored the value, have been crazy to eat 蘗
Strtoint (form1. Ge_now. Text) is the current memory get HP
Strtoint (form1. Ge_ifnow_edit. Text) is less than how much they eat blood
Solve genuflect is begged
///////////////////multi-threaded///////////////////
The constructor autofu. The create ();//implementation structure
The begin
FreeonTerminate:=true; After the//when execution is destroyed automatically
Inherited the create (false);//false indicates whether hangs, execute execure method directly here
end;
Procedure autofu. Execute;//line to perform entity
Const
Resource_on: dword=1;//
Resource_off: dword=0;//
Yy1: dword=1;
Yy0: dword=0;
Var
GameH: HWND;
GamePid, text: dwords.
ReadByte: SIZE_T;
Gamehprocess: THandle;
Rra: DWORD;
The begin
Delay (150);
GameH:=FindWindow (nil, "XXXX");
GetWindowThreadProcessId (GameH GamePid);
Gamehprocess:=OpenProcess (PROCESS_All_Access, False, GamePid);
ReadProcessMemory (Gamehprocess, Pointer ($XXXX), @ Text, 4, ReadByte);
ReadProcessMemory (Gamehprocess, Pointer (Text + $1 e0c), @ Text, 4, ReadByte);
ReadProcessMemory (Gamehprocess, Pointer (Text + $34 c), @ rra, 4, ReadByte);
Form1. Ge_now. Text:=inttostr (rras) are kept.
Delay (500);
If (strtoint (form1. Ge_now. Text) & lt;=strtoint (form1. Ge_ifnow_edit. Text)) and (form1. CheckBox2. Checked=true) then
Form1. Ge_now_lb. The Font Color:=clRed;
Form1. Ge_ifnow. The Font Color:=clBlue;
GameH:=FindWindow (nil, 'GE___');
GetWindowThreadProcessId (GameH GamePid);
Gamehprocess:=OpenProcess (PROCESS_All_Access, False, GamePid);
ReadProcessMemory (Gamehprocess, Pointer ($XXXX), @ Text, 4, ReadByte);
ReadProcessMemory (Gamehprocess, Pointer (Text + $XXX), @ Text, 4, ReadByte);
WriteProcessMemory (Gamehprocess, Pointer (Text + $C), @ resource_on, 4, ReadByte);
Delay (500);
SendMessage (Gameh WM_MOUSEMOVE, 0, MAKELPARAM (501308));
Delay (500);
WriteProcessMemory (Gamehprocess, Pointer ($XXXXXX), @ yy1, 4, ReadByte);
delay(200);
WriteProcessMemory (Gamehprocess, Pointer ($XXXXX), @ yy0, 4, ReadByte);
Delay (500);
WriteProcessMemory (Gamehprocess, Pointer (Text + $XXXX), @ resource_off, 4, ReadByte);
Delay (150);
GameH:=FindWindow (nil, 'Gersang');
GetWindowThreadProcessId (GameH GamePid);
Gamehprocess:=OpenProcess (PROCESS_All_Access, False, GamePid);
ReadProcessMemory (Gamehprocess, Pointer ($10 axxxx), @ Text, 4, ReadByte);
ReadProcessMemory (Gamehprocess, Pointer (Text + $XXXX), @ Text, 4, ReadByte);
ReadProcessMemory (Gamehprocess, Pointer (Text + $XXX), @ rra, 4, ReadByte);
Form1. Ge_now. Text:=inttostr (rras) are kept.
Delay (500);
end;
///////////////////////////////////////////
Procedure TForm1. CheckBox3Click (Sender: TObject);
Const
Resource_on: dword=1;//
Resource_off: dword=0;//
Yy1: dword=1;
Yy0: dword=0;
Var
GameH: HWND;
GamePid, text: dwords.
ReadByte: SIZE_T;
Gamehprocess: THandle;
Rra: DWORD;
The begin
If checkBox3. Checked=true then
The begin
Autofull:=autofu. The create ();
Timer1. Enabled:=True;
End
The else
The begin
Autofull. DoTerminate ();
Timer1. Enabled:=False;
end;
end;
CodePudding user response:
Call GM to