unit Unit1;
//Created by #CoderPro!
interface

uses
  Winapi.TlHelp32, AobScanner,
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sCheckBox, sButton,
  Vcl.ExtCtrls, sPanel, sSkinManager, Vcl.ComCtrls, sStatusBar, ShellApi,
  Vcl.Menus, MMSystem, acTitleBar, Vcl.Buttons, sSpeedButton, acProgressBar,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, uInjectDLL, IdHTTP;

type
  TForm1 = class(TForm)
    sPanel1: TsPanel;
    sButton1: TsButton;
    sPanel2: TsPanel;
    sCheckBox1: TsCheckBox;
    sCheckBox2: TsCheckBox;
    sCheckBox3: TsCheckBox;
    sSkinManager1: TsSkinManager;
    sPanel3: TsPanel;
    sPanel4: TsPanel;
    sButton2: TsButton;
    sStatusBar1: TsStatusBar;
    pm1: TPopupMenu;
    N1: TMenuItem;
    schckbx1: TsCheckBox;
    schckbx2: TsCheckBox;
    schckbx3: TsCheckBox;
    schckbx4: TsCheckBox;
    sCheckBox5: TsCheckBox;
    sPanel5: TsPanel;
    sButton3: TsButton;
    sPanel7: TsPanel;
    sCheckBox4: TsCheckBox;
    sCheckBox6: TsCheckBox;
    sCheckBox7: TsCheckBox;
    sPanel8: TsPanel;
    sProgressBar1: TsProgressBar;
    IdHTTP1: TIdHTTP;
    Timer1: TTimer;
    Timer2: TTimer;
    sCheckBox8: TsCheckBox;
    Timer3: TTimer;
    sPanel6: TsPanel;
    sSpeedButton1: TsSpeedButton;
    sSpeedButton2: TsSpeedButton;
    procedure sButton1Click(Sender: TObject);
    procedure sCheckBox1Click(Sender: TObject);
    procedure sCheckBox2Click(Sender: TObject);
    procedure sCheckBox3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N1Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure schckbx1Click(Sender: TObject);
    procedure schckbx2Click(Sender: TObject);
    procedure schckbx3Click(Sender: TObject);
    procedure schckbx4Click(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure sButton4Click(Sender: TObject);
    procedure sStatusBar1Click(Sender: TObject);
    procedure sSpeedButton1Click(Sender: TObject);
    procedure sCheckBox5Click(Sender: TObject);
    procedure sCheckBox4Click(Sender: TObject);
    procedure sCheckBox6Click(Sender: TObject);
    procedure sCheckBox7Click(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sCheckBox8Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure sSpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Cheat1, Cheat2, Cheat3, Cheat4, Cheat5, Cheat6, Cheat7 : Integer;
  //pid: Thandle;
  //a: TStringList;
  pid:Cardinal;
  i : integer;
  v : string;
  Procces : Integer;
  Kl_Procces : Integer;
  f6s1,f6s2,f6s3,f6s4: string;
  Silka1,Silka2,Silka3,Silka4,Silka5,inf,inf2,inf3,naz,pereb,pg,ziser,meh: String;
  pName : string;
  Data : TSTringList;
  inv : Integer = 0;
  a : string;

implementation

{$R *.dfm}

uses Unit2, Unit3, Unit4, Unit5, Unit7, Unit8, Unit9;
{$R Музыка.res}
{$R Res.RES}

//Выбор процесса
////////////////////////////////////////////////////////////////////////////////
function FindGame(nModule: string; var pName: string): Integer;
var
pe32: TProcessEntry32;
me32: ModuleEntry32;
hSnap: THandle;
hSnap_m: THandle;
begin
Result := 0;
pe32.dwSize:=SizeOf(pe32);
hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
if Process32First(hSnap,pe32) then
repeat
me32.dwSize := SizeOf(me32);
hSnap_m := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, pe32.th32ProcessID);
if Module32First(hSnap_m, me32) then
repeat
if me32.szModule = nModule then
begin
pName := pe32.szExeFile;
Result := pe32.th32ProcessID;
Exit
end;
until not (Module32Next(hSnap_m, me32));
CloseHandle(hSnap_m);
until not(Process32Next(hSnap,pe32));
CloseHandle(hSnap);
end;

procedure SaveResourceAsFile(const FN, Name: string; const TYPE_: PChar);
var
  Res: TResourceStream;
  File_: TFileStream;
begin
  Res := TResourceStream.Create(HInstance, Name, TYPE_);
  if FileExists(FN) then
    DeleteFile(FN);
  File_ := TFileStream.Create(FN, fmOpenReadWrite or fmCreate);
  try
    File_.CopyFrom(Res, Res.Size);
  finally
    File_.Free;
    Res.Free;
  end;
end;

function GetTmpDir: string;
begin
  SetLength(Result, MAX_PATH);
  SetLength(Result, GetTempPath(MAX_PATH, PChar(Result)));
end;

function OpenThread(dwDesiredAccess: DWORD; bInheritHandle: BOOLEAN; dwThreadId: DWORD): THandle; stdcall; external 'Kernel32.dll';
function setBreakpoint(const GameHandle: DWORD): Boolean;
var
hSnap: THandle;
THR32: THREADENTRY32;
hOpen: THandle;
begin
Result := FALSE;
hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
if hSnap <> INVALID_HANDLE_VALUE then
begin
THR32.dwSize := SizeOf(THR32);
Thread32First(hSnap, THR32);
repeat
if THR32.th32OwnerProcessID = GameHandle then
begin
hOpen := OpenThread($0002, FALSE, THR32.th32ThreadID);
if hOpen <> INVALID_HANDLE_VALUE then
begin
Result := TRUE;
SuspendThread(hOpen);
CloseHandle(hOpen);
end;
end;
until Thread32Next(hSnap, THR32) = FALSE;
CloseHandle(hSnap);
end;
end;


//Старт процесс
////////////////////////////////////////////////////////////////////////////////
function removeBreakpoint(const GameHandle: DWORD): Boolean;
var
Snapshot,cThr: DWORD;
ThrHandle: THandle;
Thread: TThreadEntry32;
begin
Result := False;
cThr := GetCurrentThreadId;
Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
if Snapshot <> INVALID_HANDLE_VALUE then
begin
Thread.dwSize := SizeOf(TThreadEntry32);
if Thread32First(Snapshot, Thread) then repeat
if (Thread.th32ThreadID <> cThr) and (Thread.th32OwnerProcessID = GameHandle) then
begin
ThrHandle := OpenThread($0002, false, Thread.th32ThreadID);
if ThrHandle = 0 then Exit;
ResumeThread(ThrHandle);
CloseHandle(ThrHandle);
end;
until not Thread32Next(Snapshot, Thread);
Result := CloseHandle(Snapshot);
end;
end;

function FindGameByModule(var pID: Cardinal; var pName: string; uModules: array of string): Boolean;
var
hSnap: THandle;
hSnap_md: THandle;
PE: TProcessEntry32;
ME: TModuleEntry32;
i: Integer;
LenM: Integer;
begin
Result := False;
hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
PE.dwSize := SizeOf(PE);
ME.dwSize := SizeOf(ME);
LenM := Length(uModules);
if Process32First(hSnap, PE) then
repeat
hSnap_md := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PE.th32ProcessID);
if Module32First(hSnap_md, ME) then
repeat
for i := 0 to LenM -1 do
begin
if Pos(uModules[i], ME.szModule) > 0 then
begin
if Application.MessageBox(PWideChar('При поиске игры был найден следующий процесс:'#13#10+
'PID:' + IntToStr(PE.th32ProcessID) + '-' + PE.szExeFile + #13#10 +
'Вы хотите к нему подключиться?'), 'Вопрос', MB_YESNO + MB_ICONQUESTION) = 6 then
begin
pID := PE.th32ProcessID;
pName := PE.szExeFile;
Result := True;
Exit;
end;
end;
end;
until not Module32Next(hSnap_md, ME);;
CloseHandle(hSnap_md);
until not Process32Next(hSnap, PE);
CloseHandle(hSnap);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShellExecute(0, nil, pChar('https://vk.com/id307717813'), nil, nil, SW_SHOWNORMAL);
ShellExecute(0, nil, pChar('https://www.youtube.com/channel/UCn-LVQG4FdRbd61eSzqj-vw'), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SaveResourceAsFile(GetTmpDir + 'res.dll', 'MonsterByte', RT_RCDATA);
end;

procedure TForm1.FormShow(Sender: TObject);
var
ms:TMemoryStream;
v : string;
begin
try
ms := TMemoryStream.Create;
Data := TSTringList.Create;
v := '1.7';
IdHTTP1.Get('http://r97804yj.beget.tech/BatlaCheat', ms);
ms.Position := 0;
Data.LoadFromStream(ms);
Data.Text:=UTF8Decode(Data.Text);
AnsiToUTF8(Data.Text);
except
Halt;
end;
if Data.Strings[0] <> v then
begin
Silka1 := Data.Strings[0];
Form9.ShowModal;
Halt;
end;

end;

procedure TForm1.N1Click(Sender: TObject);
begin
if N1.Checked then
Form1.FormStyle:=fsStayOnTop
else
Form1.FormStyle:=fsNormal;
end;

procedure TForm1.sButton1Click(Sender: TObject);
var
name:string;
begin
if FindGameByModule(pid, name, ['mono-1-vc.dll']) then
begin
sButton1.Caption := 'PID:' + IntToStr(pid) + '-' + name;
pid := OpenProcess(PROCESS_ALL_ACCESS, False, pid);
Application.ProcessMessages;
MessageBeep(MB_OK);
if pid <> 0 then
begin
sCheckBox1.Enabled := True;
sCheckBox2.Enabled := True;
sCheckBox3.Enabled := True;
schckbx1.Enabled := True;
schckbx2.Enabled := True;
schckbx3.Enabled := True;
schckbx4.Enabled := True;
sCheckBox5.Enabled := True;
sCheckBox6.Enabled := True;
sCheckBox7.Enabled := True;
sCheckBox8.Enabled := True;
sSpeedButton1.Enabled := True;
end;
end
else
begin
MessageBox(Handle, 'Не удалось найти процесс с игрой!', 'Error', MB_OK + MB_ICONSTOP);
end;
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
form2.showmodal;
end;

procedure TForm1.sButton3Click(Sender: TObject);
begin
form3.ShowModal;
end;

procedure TForm1.sButton4Click(Sender: TObject);
begin
//Form4.ShowModal;
end;

procedure TForm1.schckbx1Click(Sender: TObject);
const
  Scan: array [1 .. 12] of Byte = ($87, $69, $01, $00, $00, $F3, $0F, $10, $46, $44, $F3, $0F);
begin
  if schckbx1.Checked = true then
  begin
  PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
  Timer1.Enabled := true;
    Cheat3 := AobScan(pid, @Scan, 'xxxxxxxxxxxx');
    if Cheat3 <> 0 then
    begin
      //PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
      WriteB(pid, Cheat3, [$87, $69, $01, $00, $00, $90, $90, $90, $90, $90, $F3, $0F]);
      //MessageBeep(MB_OK);
     //PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
     //Timer1.Enabled := False;
      //sProgressBar1.Position := 0;
      //Timer1.Enabled := False;
    end
    else
    begin
      MessageBeep(MB_ICONSTOP);
      Application.MessageBox('Не удалось активировать!', 'Ошибка',
        MB_OK + MB_ICONSTOP + MB_TOPMOST);
    end;
  end
  else
  begin
  PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
    WriteB(pid, Cheat3, [$87, $69, $01, $00, $00, $F3, $0F, $10, $46, $44, $F3, $0F]);
      //PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
       //Timer1.Enabled := False;
      //sProgressBar1.Position := 0;
  end;
end;

procedure TForm1.schckbx2Click(Sender: TObject);
const
  Scan: array [1 .. 8] of Byte = ($A5, $74, $27, $83, $C0, $38, $50, $8D);
begin
  if schckbx2.Checked = true then
  begin
  PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
  Timer1.Enabled := true;
    Cheat4 := AobScan(pid, @Scan, 'xxxxxxxx');
    if Cheat4 <> 0 then
    begin
     //PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
      WriteB(pid, Cheat4, [$A5, $74, $27, $83, $C0, $38, $50, $8D]);
      //MessageBeep(MB_OK);
     //PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
       //Timer1.Enabled := False;
      //sProgressBar1.Position := 0;
      //Timer1.Enabled := False;
    end
    else
    begin
      MessageBeep(MB_ICONSTOP);
      Application.MessageBox('Не удалось активировать!', 'Ошибка',
        MB_OK + MB_ICONSTOP + MB_TOPMOST);
    end;
  end
  else
  begin
  PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
    WriteB(pid, Cheat4, [$A5, $74, $27, $83, $C0, $38, $50, $8D]);
       //PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
       //Timer1.Enabled := False;
      //sProgressBar1.Position := 0;
  end;
end;


procedure TForm1.schckbx3Click(Sender: TObject);
const
  Scan: array [1 .. 16] of Byte = ($D9, $5E, $14, $D9, $56, $24, $D9, $56, $34, $D9, $56, $08, $D9, $56, $18, $D9);
begin
  if schckbx3.Checked = true then
  begin
  PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
  Timer1.Enabled := true;
    Cheat5 := AobScan(pid, @Scan, 'xxxxxxxxxxxxxxxx');
    if Cheat5 <> 0 then
    begin
     //PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
      WriteB(pid, Cheat5, [$90, $90, $90, $D9, $56, $24, $D9, $56, $34, $D9, $56, $08, $D9, $56, $18, $D9]);
     //PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
     //Timer1.Enabled := False;
      //sProgressBar1.Position := 0;
      //Timer1.Enabled := False;
    end
    else
    begin
      MessageBeep(MB_ICONSTOP);
      Application.MessageBox('Не удалось активировать!', 'Ошибка',
        MB_OK + MB_ICONSTOP + MB_TOPMOST);
    end;
  end
  else
  begin
   PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
    WriteB(pid, Cheat5, [$D9, $5E, $14, $D9, $56, $24, $D9, $56, $34, $D9, $56, $08, $D9, $56, $18, $D9]);
       //PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
       //Timer1.Enabled := False;
      //sProgressBar1.Position := 0;
  end;
end;

procedure TForm1.schckbx4Click(Sender: TObject);
const
  Scan: array [1 .. 10] of Byte = ($D8, $66, $30, $DC, $6E, $10, $EB, $06, $D8, $46);
begin
  if schckbx4.Checked = true then
  begin
  PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
  Timer1.Enabled := true;
    Cheat6 := AobScan(pid, @Scan, 'xxxxxxxxxx');
    if Cheat6 <> 0 then
    begin
      //PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
      WriteB(pid, Cheat6, [$90, $90, $90, $90, $90, $90]);
      //MessageBeep(MB_OK);
     //PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
     //Timer1.Enabled := False;
      //sProgressBar1.Position := 0;
      //Timer1.Enabled := False;
    end
    else
    begin
      MessageBeep(MB_ICONSTOP);
      Application.MessageBox('Не удалось активировать!', 'Ошибка',
        MB_OK + MB_ICONSTOP + MB_TOPMOST);
    end;
  end
  else
  begin
   PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
    WriteB(pid, Cheat6, [$D8, $66, $30, $DC, $6E, $10, $EB, $06, $D8, $46]);
    //Timer1.Enabled := False;
      //sProgressBar1.Position := 0;
  end;
end;

procedure TForm1.sCheckBox5Click(Sender: TObject);
begin
if sCheckBox5.Checked then
begin
PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
Form5.showmodal
end
else
begin
PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
//Нечего не происходит
end;
end;

procedure TForm1.sCheckBox6Click(Sender: TObject);
begin
if sCheckBox6.Checked then
begin
PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
form7.ShowModal;
end
else
PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
end;

procedure TForm1.sCheckBox7Click(Sender: TObject);
begin
if sCheckBox7.Checked then
begin
PlaySound('ON',0,SND_ResOURCE or SND_ASYNC);
form8.showmodal;
end
else
begin
PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC);
end;
end;

procedure TForm1.sCheckBox8Click(Sender: TObject);
begin
if sCheckBox8.Checked then
begin
Form4.ShowModal;
PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
end
else
begin
PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
end;
end;

procedure TForm1.sCheckBox1Click(Sender: TObject);
begin
PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
Sleep(1000);
 //PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
sCheckBox1.Enabled := False;
end;

procedure TForm1.sCheckBox2Click(Sender: TObject);
const
  Scan: array [1 .. 12] of Byte = ($87, $69, $01, $00, $00, $F3, $0F, $10, $46, $44, $F3, $0F);
begin
  if sCheckBox2.Checked = true then
  begin
    PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
    //Timer1.Enabled := true;
    Cheat1 := AobScan(pid, @Scan, 'xxxxxxxxxxxx');
    if Cheat1 <> 0 then
    begin
      WriteB(pid, Cheat1, [$87, $69, $01, $00, $00, $90, $90, $90, $90, $90, $F3, $0F]);
      // Timer1.Enabled := False;
      //sProgressBar1.Position := 0;
      //Timer1.Enabled := False;
    end
    else
    begin
      MessageBeep(MB_ICONSTOP);
      Application.MessageBox('Не удалось активировать!', 'Ошибка',
        MB_OK + MB_ICONSTOP + MB_TOPMOST);
       //Timer1.Enabled := False;
        //sProgressBar1.Position := 0;
    end;
  end
  else
  begin
   PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
    WriteB(pid, Cheat1, [$87, $69, $01, $00, $00, $F3, $0F, $10, $46, $44, $F3, $0F]);
  end;

end;

procedure TForm1.sCheckBox3Click(Sender: TObject);
const
  Scan: array [1 .. 6] of Byte = ($5C, $24, $10, $0F, $28, $E3);
begin
  if sCheckBox3.Checked = true then
  begin
  PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
  //Timer1.Enabled := true;
    Cheat2 := AobScan(pid, @Scan, 'xxxxxx');
    if Cheat2 <> 0 then
    begin
      //PlaySound('ON',0,SND_ResOURCE or SND_ASYNC );
      WriteB(pid, Cheat2, [$5C, $24, $10, $90, $90, $90]);
      //MessageBeep(MB_OK);
       //Timer1.Enabled := False;
      //sProgressBar1.Position := 100;
      //Timer1.Enabled := False;
    end
    else
    begin
      MessageBeep(MB_ICONSTOP);
      Application.MessageBox('Не удалось активировать!', 'Ошибка',
        MB_OK + MB_ICONSTOP + MB_TOPMOST);
    end;
  end
  else
  begin
    PlaySound('OFF',0,SND_ResOURCE or SND_ASYNC );
    WriteB(pid, Cheat2, [$5C, $24, $10, $0F, $28, $E3]);
   // Timer1.Enabled := False;
    //sProgressBar1.Position := 0;
end;
end;
procedure TForm1.sCheckBox4Click(Sender: TObject);
begin
if unit1.pid = 0 then
begin
if sCheckBox4.Checked then
begin
MessageBox(Handle, 'Процесс не выбран!', 'Error', MB_OK + MB_ICONSTOP);
sCheckBox4.Checked := False;
end
else
//
end
else
if scheckbox4.Checked then
begin
  sCheckBox1.Enabled := False;
  sCheckBox2.Enabled := False;
  sCheckBox3.Enabled := false;
  schckbx2.Enabled := False;
  schckbx3.Enabled := False;
  schckbx4.Enabled:= False;
  schckbx1.Enabled:= False;
  sCheckBox8.Enabled:= False;
  sCheckBox7.Enabled:= False;
  sCheckBox5.Enabled:= False;
  sCheckBox6.Enabled:= False;
  Timer1.Enabled := True;
  sProgressBar1.Position :=0;
  sCheckBox1.Checked := true;
  sCheckBox2.Checked := true;
  sCheckBox3.Checked := true;
  schckbx2.Checked := True;
  schckbx3.Checked := True;
  schckbx4.Checked := True;
  //sCheckBox7.Checked := True;
end
else
begin
  sCheckBox1.Enabled := False;
  sCheckBox2.Enabled := False;
  sCheckBox3.Enabled := false;
  schckbx2.Enabled := False;
  schckbx3.Enabled := False;
  schckbx4.Enabled:= False;
  sCheckBox7.Enabled:= False;
  sCheckBox5.Enabled:= False;
  sCheckBox6.Enabled:= False;
  sCheckBox8.Enabled:= False;
  schckbx1.Enabled:= False;
  schckbx1.Checked := False;
  sCheckBox1.Checked := False;
  sCheckBox2.Checked := False;
  sCheckBox3.Checked := False;
  schckbx2.Checked := False;
  schckbx3.Checked := False;
  schckbx4.Checked := False;
  Timer2.Enabled := True;
  sProgressBar1.Position :=0;
  //sCheckBox7.Checked := False;
  scheckbox4.Caption := 'Активировать все функции';
end;
end;

procedure TForm1.sSpeedButton1Click(Sender: TObject);
var
name: string;
begin
try
begin
pid := FindGame('mono-1-vc.dll', name);
Application.ProcessMessages;
if pid <> 0 then
begin
//sButton1.Caption := 'PID:' + IntToStr(pid) + '-' + name;
//MessageBeep(MB_OK);
setBreakpoint(pid);
sSpeedButton1.Enabled := False;
sSpeedButton2.Enabled := True;
end
else
begin
MessageBox(Handle, 'Не удалось найти процесс с игрой!', 'Error', MB_OK +
  MB_ICONSTOP);
end;
end;
except
end;

end;

procedure TForm1.sSpeedButton2Click(Sender: TObject);
begin
removeBreakpoint(pid);
sSpeedButton1.Enabled := True;
sSpeedButton2.Enabled := False;
end;

procedure TForm1.sStatusBar1Click(Sender: TObject);
begin
ShellExecute(0, nil, pChar('https://vk.com/id307717813'), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
sProgressBar1.Position := sProgressbar1.Position+1;
if sprogressbar1.Position = 100 then
begin
timer1.Enabled := False;
  MessageBox(Handle, 'Функции успешно активированы!', 'Информация', MB_OK +
    MB_ICONINFORMATION);
  scheckbox4.Caption := 'Деактивировать функции';
  sCheckBox1.Enabled := true;
  sCheckBox2.Enabled := true;
  sCheckBox3.Enabled := true;
  sCheckBox7.Enabled:= True;
  sCheckBox5.Enabled:= True;
  sCheckBox6.Enabled:= True;
  schckbx1.Enabled:= True;
  sCheckBox8.Enabled:= True;
  schckbx2.Enabled := True;
  schckbx3.Enabled := True;
  schckbx4.Enabled:= True;
end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
sProgressBar1.Position := sProgressbar1.Position+1;
if sProgressBar1.Position = 100 then
begin
Timer2.Enabled := False;
    MessageBox(Handle, 'Функции успешно Деактивированы!', 'Информация', MB_OK +
  MB_ICONINFORMATION);
  sCheckBox1.Enabled := true;
  sCheckBox2.Enabled := true;
  sCheckBox3.Enabled := true;
  sCheckBox7.Enabled:= True;
  sCheckBox5.Enabled:= True;
  sCheckBox6.Enabled:= True;
  schckbx1.Enabled:= True;
  schckbx2.Enabled := True;
  schckbx3.Enabled := True;
  schckbx4.Enabled:= True;
  sCheckBox8.Enabled:= True;
end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Form1.AlphaBlendValue <255 then
begin
Form1.AlphaBlendValue := Form1.AlphaBlendValue+3;
end
else
begin
  Timer1.Enabled := False;
end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
//sProgressBar1.Position := AobScanner.MBTScProgress;
end;

end.