muxa_one
-
Постов
29 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Загрузки
Блоги
Сообщения, опубликованные muxa_one
-
-
Доброго времени суток, собственно имеется такой код:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
WindowName : integer;
ProcessId : integer;
ThreadId : integer;
buf : PChar;
HandleWindow : Integer;
write : NativeUInt;
Const WindowTitle = '**';
Отдача = $E3788A;
СигнОтдача = $9090;
NumberOfBytes = 1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
WindowName := FindWindow(nil,WindowTitle);
If WindowName = 0 then
begin
MessageDlg('Запустите игру.', mtwarning,[mbOK],0);
end;
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
buf^ := Chr(СигнОтдача);
WriteProcessMemory(HandleWindow,ptr(Отдача),buf,NumberOfBytes,write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.После нажатия на кнопку игра зависает и выкидывает, что можно сделать чтобы этого не происходило?
-
Подскажите как?
-
Доброго времени суток, написал трейнер на C#. Нашел нужный адрес и изменил его, трейнер работает. После перезапуска игры, адрес изменяется и трейнер больше не может обнаружить его. Что делать?
[DELPHI] После замены байтов выкидывает из игры
in Высокоуровневое программирование
Опубликовано
Спасибо большое, попробую.
Все работает идеально не выкидывает, еще раз спасибо.