unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, sSkinManager, Vcl.ComCtrls, sListView,
  Vcl.StdCtrls, sGroupBox, sListBox, acProgressBar, sButton, Vcl.ExtCtrls,
  acImage, sRadioButton, sEdit, sLabel, sStatusBar, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, Winapi.TlHelp32, Winapi.ShellAPI,
  uInjectDLL, acTitleBar, Vcl.Menus, Vcl.Clipbrd, ProcessList_XE_S, memoriscan, CheatsHolder_FULL, Winapi.MMSystem;

type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sGroupBox1: TsGroupBox;
    sButton1: TsButton;
    sProgressBar1: TsProgressBar;
    sGroupBox2: TsGroupBox;
    sListBox1: TsListBox;
    sGroupBox3: TsGroupBox;
    sGroupBox4: TsGroupBox;
    sRadioButton1: TsRadioButton;
    sRadioButton2: TsRadioButton;
    sButton2: TsButton;
    sStatusBar1: TsStatusBar;
    sGroupBox5: TsGroupBox;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    sEdit1: TsEdit;
    sImage4: TsImage;
    sImage5: TsImage;
    sImage6: TsImage;
    sImage1: TsImage;
    sImage2: TsImage;
    sImage3: TsImage;
    sImage7: TsImage;
    Timer1: TTimer;
    IdHTTP1: TIdHTTP;
    sTitleBar1: TsTitleBar;
    IdTCPClient1: TIdTCPClient;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    sWebLabel1: TsWebLabel;
    Timer2: TTimer;
    sButton3: TsButton;
    Timer3: TTimer;
    Timer4: TTimer;
    PopupMenu2: TPopupMenu;
    G1: TMenuItem;
    sButton4: TsButton;
    sButton5: TsButton;
    Timer5: TTimer;
    procedure sImage1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure sImage1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure sImage3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure sImage3MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure sImage7MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure sImage7MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure sImage1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure sImage3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure sImage7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure sRadioButton1Click(Sender: TObject);
    procedure sRadioButton2Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure sButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure sStatusBar1Click(Sender: TObject);
    procedure sTitleBar1Items0Click(Sender: TObject);
    procedure sWebLabel1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer4Timer(Sender: TObject);
    procedure G1Click(Sender: TObject);
    procedure sButton4Click(Sender: TObject);
    procedure sButton5Click(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  pid : Cardinal;
  a : TStringList;
  s : Boolean;
  b : string;
  i : integer;
  v : string;
  Procces : Integer;
  Kl_Procces : Integer;
  f1,f2,f3,f4,f44,f6,f9,f11,f12,f4s1,f5,fullhp,fullhpv: TVarAddress;
  Cheat: array[-100..100] of TVarAddress;
  f6s1,f6s2,f6s3,f6s4: string;
  Silka1,Silka2,Silka3,Silka4,Silka5,inf,inf2,inf3,naz,pereb,pg,ziser,meh: String;
  Data : TSTringList;
  inv : Integer = 0;
  PName1, module:string;
  procName: string;

implementation

{$R *.dfm}
{$R Res.RES}
{$R Lib.RES}

uses Unit2, Unit3, Unit4;

procedure KillProcess(PID: Cardinal);
var
  exitcode:UINT;
  x:THandle;
begin
  x:=Openprocess(PROCESS_ALL_ACCESS,false,PID);
  GetExitCodeProcess(x,ExitCode);
  TerminateProcess(x,Exitcode);
end;

function InternetExist: Boolean;
var TCP:TIdTCPClient;
begin
Result := False;TCP:=TIdTCPClient.Create(nil);
TCP.Host:='google.com';
TCP.Port:=80;
TCP.ReadTimeout:=2000;
try TCP.Connect;
Result:=TCP.Connected;
TCP.Free;
except
Result:=False;TCP.Free;
end;
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 GetComputerNetName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;

//Имя пользователя
function GetUserFromWindows: string;
var
  UserName: string;
  UserNameLen: Dword;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
    Result := Copy(UserName, 1, UserNameLen - 1)
  else
    Result := 'Unknown';
end;

//Получаем хеши
function GetSerialNum:string;
 var SerialNum,a,b:Dword;sSN:string;
  Buffer:array[0..255] of char;
  begin GetVolumeInformation('c:/',Buffer,sizeof(Buffer),@SerialNum,a,b,nil,0);
  sSN := IntToStr(SerialNum);while Length(sSN) <= 10 do sSN := sSN + sSN[Random(Length(sSN)) + 1];
  Result := Result + IntToHex(StrToInt(Copy(sSN, 1, 2))*StrToInt(Copy(sSN, 1, 2))*666,4);
  Result := Result + IntToHex(StrToInt(Copy(sSN, 3, 2))*StrToInt(Copy(sSN, 3, 2))*666,4);Result :=
  Result + IntToHex(StrToInt(Copy(sSN, 5, 2))*StrToInt(Copy(sSN, 5, 2))*666,4);
  Result := Result + IntToHex(StrToInt(Copy(sSN, 7, 2))*StrToInt(Copy(sSN, 7, 2))*666,4);Result :=
  Result + IntToHex(StrToInt(Copy(sSN, 9, 2))*StrToInt(Copy(sSN, 9, 2))*666,4);
  Result := Copy(Result, 1, 20);
  Insert('-',Result, 5);
  Insert('-',Result, 10);
  Insert('-',Result, 15);
  Insert('-',Result, 20);
end;

function FindGame(dllModule: string): THandle;
var
  pe32: TProcessEntry32;
  me32: ModuleEntry32;
  hSnap: THandle;
  hSnap_m: THandle;
begin
  Result := 0;
  Application.ProcessMessages;
  pe32.dwSize := SizeOf(pe32);
  Application.ProcessMessages;
  hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  Application.ProcessMessages;
  if Process32First(hSnap,pe32) then repeat
    Application.ProcessMessages;
    me32.dwSize := SizeOf(me32);
    Application.ProcessMessages;
    hSnap_m := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, pe32.th32ProcessID);
    Application.ProcessMessages;
    if Module32First(hSnap_m, me32) then repeat
    Application.ProcessMessages;
      if me32.szModule = dllmodule then begin
      Application.ProcessMessages;
        procname := pe32.szExeFile;
        Application.ProcessMessages;
        Result := pe32.th32ProcessID;
        Application.ProcessMessages;
        Exit
      end;
      Application.ProcessMessages;
    until not (Module32Next(hSnap_m, me32));
    Application.ProcessMessages;
    CloseHandle(hSnap_m);
  until not(Process32Next(hSnap,pe32));
  CloseHandle(hSnap);
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
 if pid <> 0  then
  case MessageBox(Handle, 'Вы уверены что хотите закрыть чит? ' + #13#10 +
  'После закрытия чита, будет закрыта и игра.', 'Вопрос', MB_YESNO +
  MB_ICONQUESTION) of
  IDYES:
    begin
      KillProcess(pid);
      DeleteFile(GetTmpDir + 'res.dll');
      Exitprocess(0);
    end;
  IDNO:
    begin
     Action := CaNone;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  sCoderPro: string;
begin
  sImage1.Picture := sImage4.Picture;
  sImage1.Canvas.Pen.Color := clRed;
  sImage1.Canvas.Rectangle(19,sImage1.Height, 19+1, 0);
  sImage1.Canvas.Rectangle(sImage1.Width,19, 0, 19+1);
  s := True;
  sImage7.Picture := sImage6.Picture;
  sImage7.Canvas.Pen.Color := clRed;
  sImage7.Canvas.Rectangle(19,sImage2.Height, 19+1, 0);
  sImage7.Canvas.Rectangle(sImage2.Width,19, 0, 19+1);
  s := True;
  sImage3.Picture := sImage5.Picture;
  sImage3.Canvas.Pen.Color := clRed;
  sImage3.Canvas.Rectangle(17,sImage3.Height, 17+1, 0);
  sImage3.Canvas.Rectangle(sImage3.Width,19, 0, 19+1);
  s := True;
  sRadioButton1.Checked := True;
  if not InternetExist then
  begin
    MessageBox(Handle, 'Отсутствует подключение к интернету!', 'Error', MB_OK +
      MB_ICONSTOP);
    ExitProcess(0);
  end;
  try
    sCoderpro := IdHTTP1.Get('http://r97804yj.beget.tech/MonoHackLoader/OFF.php');
  except
    Application.MessageBox('HTTP/1.1 404 Not Found.', 'Error', MB_OK
      + MB_ICONSTOP + MB_TOPMOST);
    ExitProcess(0);
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
var
a : string;
ms:TMemoryStream;
v : string;
begin
  a := IdHTTP1.Get('http://r97804yj.beget.tech/BazaKeyLoader.bd');
  if Pos(GetSerialNum,a) <> 0 then
  begin
  sGroupBox5.Height := 35;
  slabel1.Top := 9999;
  sEdit1.Top := 9999;
  sLabel3.Caption := 'Активировано.';
  slabel3.Font.Color := clLime;
  slabel2.Top := 14;
  sLabel3.Top := 14;
  sLabel3.Left := 116;
  Form1.Height := 296;
  sWebLabel1.Top := 9999;
  end
  else
  begin
  end;
  sEdit1.Text := GetSerialNum;
  begin
  try
  ms := TMemoryStream.Create;
  Data := TSTringList.Create;
  v := '1.0';
  IdHTTP1.Get('http://r97804yj.beget.tech/MonoHackLoader/Version.php', 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];
  Form3.ShowModal;
  Halt;
  end;
 end;
end;

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

procedure TForm1.N1Click(Sender: TObject);
begin
Clipboard.AsText := sedit1.Text;
MessageBox(Handle, 'Серийный номер успешно скопирован!', 'Информация', MB_OK
  + MB_ICONINFORMATION);
end;

procedure TForm1.sButton1Click(Sender: TObject);
begin
  pid := FindGame(module);
  PName1 := procName;
  Timer2.Enabled := True;
  if pid <> 0 then begin

  case MessageBox(handle,PWideChar('При поиске игры был найден следующий процесс:'#13#10+
        'PID:' + IntToStr(pid) + '-' + procName + #13#10 +
        'Вы хотите к нему подключиться?'), 'Вопрос', MB_YESNO + MB_ICONQUESTION) of
        IDYES:
          begin
            Timer3.Enabled := True;
            sButton1.Caption := 'PID:' + IntToStr(pid) + '-' + PName1;
            Application.ProcessMessages;
            IsOpenedProcces;
            ConnectByHandle(pid);
            sButton4.Enabled := true;
            sButton5.Enabled := true;
          end;
        IDNO:
          begin
             case MessageBox(Handle, 'Не удалось автоматически найти процесс с игрой!' +
        #13#10 + 'Хотите воспользоватся ручным выбором процесса?', 'Вопрос',
        MB_YESNO + MB_ICONQUESTION) of
            IDYES:
                begin
                  sButton3.Click;
                end;
             end;
          end;
  end;
  end else begin
  //
  end;
end;

procedure TForm1.sButton2Click(Sender: TObject);
var
a : string;
begin
  a := IdHTTP1.Get('http://r97804yj.beget.tech/BazaKeyLoader.bd');
  if Pos(GetSerialNum,a) = 0 then
  begin
     MessageBox(Handle, 'Ошибка, у вас нет лицензии на данный чит!', 'Error', MB_OK
    + MB_ICONSTOP);
  end
  else
  begin
    if unit1.pid = 0 then
    begin
      sButton2.Enabled := False;
      sButton2.Caption := 'Подождите, идёт загрузка...';
      MessageBox(Handle, 'Пожалуйста выберете процесс!', 'Ошибка', MB_OK +
      MB_ICONSTOP);
      sButton2.Caption := 'Load Cheat';
      sButton2.Enabled := True;
    end
    else
    begin
      timer1.Enabled := True;
    end;
  end;
end;

procedure TForm1.sButton3Click(Sender: TObject);
var
PName1: string;
begin
  pid := SelectDialog(PName1);
  if pid = 0 then
  begin
  sButton1.Caption := 'Выбрать процесс';
  Exit;
  end else begin
  sButton1.Caption := 'PID:' + IntToStr(pid) + '-' + PName1;
  Application.ProcessMessages;
  IsOpenedProcces;
  ConnectByHandle(pid);
  Timer3.Enabled := True;
  sButton4.Enabled := true;
  sButton5.Enabled := true;
 end;
end;

procedure TForm1.sButton4Click(Sender: TObject);
var
a:string;
begin
AntiScanCE_Start;
 try
 a := IdHTTP1.Get('http://r97804yj.beget.tech/BazaKeyLoader.bd');
  if Pos(GetSerialNum,a) = 0 then
  begin
   MessageBox(Handle, 'Ошибка, у вас нет лицензии на данный чит!', 'Error',
     MB_OK + MB_ICONSTOP);
  end
  else
  if sButton4.Enabled = True then
  begin
    Timer5.Enabled := true;
    sProgressBar1.Position := 5;
   if AOBScan(Cheat[4], 0, $5FFFFFFF, '02 28 4C 15 00 06 02 03 7D 7A 12 00 04 03 0B 07 16 3B 22 00 00 00 07 17 3B 05 00 00 00 38 2C 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 17 6F 3F 02 00 0A 38 1B 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 16', True, True,  0) then
    begin
      WriteB(Cheat[4],'02 28 4C 15 00 06 02 03 7D 7A 12 00 04 03 0B 07 16 3B 22 00 00 00 07 17 3B 05 00 00 00 38 2C 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 17 6F 3F 02 00 0A 38 1B 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 17', 0);
         PlaySound('TICK2',0,SND_ResOURCE or SND_ASYNC);
         sProgressBar1.Position := 0;
         Timer5.enabled := False;
         sButton4.Enabled := False;
    end
   else
   begin
    MessageBox(Handle, 'Не удалось активировать!', 'Error', MB_OK +
      MB_ICONSTOP);
      sprogressbar1.Position := 0;
      Timer5.enabled := False;
   end;
  end
  else
  begin
  //MessageBeep(MB_OK);
  end;
 except
 AntiScanCE_Start
 end;
end;

procedure TForm1.sButton5Click(Sender: TObject);
var
a:string;
begin
AntiScanCE_Start;
 try
 a := IdHTTP1.Get('http://r97804yj.beget.tech/BazaKeyLoader.bd');
  if Pos(GetSerialNum,a) = 0 then
  begin
   MessageBox(Handle, 'Ошибка, у вас нет лицензии на данный чит!', 'Error',
     MB_OK + MB_ICONSTOP);
  end
  else
  if sButton5.Enabled = True then
  begin
  Timer5.Enabled := true;
   if AOBScan(Cheat[5], 0, $5FFFFFFF, '02 16 7D 78 12 00 04 02 22 00 00 00 00 7D 77 12 00 04 02 7B 71 12 00 04 6F 14 00 00 0A 16 6F 3F 02 00 0A 02 7B 73 12 00 04 6F 14 00 00 0A 16 6F 3F 02 00 0A 03 39 11 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 16 6F 3F 02 00 0A 2A', True, True,  0) then
    begin
      WriteB(Cheat[5],'02 16 7D 78 12 00 04 02 22 00 00 00 00 7D 77 12 00 04 02 7B 71 12 00 04 6F 14 00 00 0A 16 6F 3F 02 00 0A 02 7B 73 12 00 04 6F 14 00 00 0A 17 6F 3F 02 00 0A 03 39 11 00 00 00 02 7B 72 12 00 04 6F 14 00 00 0A 16 6F 3F 02 00 0A 2A', 0);
      PlaySound('TICK2',0,SND_ResOURCE or SND_ASYNC);
      sProgressBar1.Position := 0;
      Timer5.enabled := False;
      sButton5.Enabled := False;
    end
   else
   begin
    MessageBox(Handle, 'Не удалось активировать!', 'Error', MB_OK +
      MB_ICONSTOP);
      sprogressbar1.Position := 0;
      Timer5.enabled := False;
   end;
  end
  else
  begin
  MessageBeep(MB_OK);
  end;
 except
 AntiScanCE_Start
end;
end;

procedure TForm1.sImage1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
s := False;
end;

procedure TForm1.sImage1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
x1,y1 : Integer;
begin
 if s = False then
  begin
  if (x < 39) and (y > -1) and (y < 50) and (x > -1) then
  begin
  sImage1.Picture := sImage4.Picture;
  sImage1.Canvas.Pen.Color := clRed;
  sImage1.Canvas.Rectangle(x,sImage1.Height, x+1, 0);
  sImage1.Canvas.Rectangle(sImage1.Width,y, 0, y+1);
  end;
 end;
end;

procedure TForm1.sImage1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
s := True;
end;
procedure TForm1.sImage3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
s := False;
end;

procedure TForm1.sImage3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
x1,y1 : Integer;
begin
 if s = False then
  begin
  if (x < 39) and (y > -1) and (y < 50) and (x > -1) then
  begin
  sImage3.Picture := sImage5.Picture;
  sImage3.Canvas.Pen.Color := clRed;
  sImage3.Canvas.Rectangle(x,sImage1.Height, x+1, 0);
  sImage3.Canvas.Rectangle(sImage1.Width,y, 0, y+1);
  //Form1.Caption := IntToStr(y)+' '+IntToStr(x);
  end;
 end;
end;

procedure TForm1.sImage3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
s := True;
end;

procedure TForm1.sImage7MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
s := False;
end;

procedure TForm1.sImage7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
x1,y1 : Integer;
begin
 if s = False then
  begin
  if (x < 39) and (y > -1) and (y < 50) and (x > -1) then
  begin
  sImage7.Picture := sImage6.Picture;
  sImage7.Canvas.Pen.Color := clRed;
  sImage7.Canvas.Rectangle(x,sImage3.Height, x+1, 0);
  sImage7.Canvas.Rectangle(sImage3.Width,y, 0, y+1);
  end;
 end;
end;

procedure TForm1.sImage7MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
s := True;
end;

procedure TForm1.sRadioButton1Click(Sender: TObject);
begin
module := 'mono-1-vc.dll';
end;

procedure TForm1.sRadioButton2Click(Sender: TObject);
begin
module := 'mono.dll';
end;

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

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

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

procedure TForm1.Timer1Timer(Sender: TObject);
var Results:Boolean;
begin
  Results := False;
  try
    SaveResourceAsFile(GetTmpDir + 'res.dll', 'MonsterByte', RT_RCDATA);
    Results := True;
  except
    Timer1.Enabled := False;
    sButton2.Enabled := False;
    sButton2.Caption := 'Подождите, идёт загрузка...';
    MessageBox(Handle, 'Не удалось активировать!', 'Error', MB_OK + MB_ICONSTOP);
    sButton2.Caption := 'Load Cheat';
    sButton2.Enabled := True;
  end;
  if Results = True then
  begin
    sButton2.Caption := 'Подождите, идёт загрузка...';
    sButton2.Enabled := False;
    Form1.sProgressBar1.Position := Form1.sProgressBar1.Position+1;
    if (Form1.sProgressBar1.Position = 100) then
    begin
      InjectDLL(pid, GetTmpDir + 'res.dll');
      Timer1.Enabled := False;
      MessageBox(Handle, 'MonoCheat loaded!', 'Информация', MB_OK + MB_ICONINFORMATION);
      sbutton2.caption := 'Load Cheat';
      sButton2.Enabled := True;
      sProgressBar1.Position := 0;
    end;
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
     sProgressBar1.Position := 0;
    if pid <> 0 then begin
      Timer2.Enabled := False;
      Application.ProcessMessages;
    end else begin
      timer2.Enabled := False;
      if pid = 0 then begin
      case MessageBox(Handle, 'Не удалось автоматически найти процесс с игрой!' +
        #13#10 + 'Хотите воспользоватся ручным выбором процесса?', 'Вопрос',
        MB_YESNO + MB_ICONQUESTION) of
        IDYES:
          sButton3.Click;
        IDNO:
          begin
          // Нечего не делать
          end;
      end;
      end;
      sprogressbar1.Position := 0;
      timer2.Enabled := False;
    end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  sProgressBar1.Position := sProgressBar1.Position+3;
  if sProgressBar1.Position = 100 then
    Timer3.Enabled := False;
    Timer4.Enabled := True;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
    if sprogressbar1.Position = 100 then
    begin
      MessageBeep(MB_ICONINFORMATION);
      sProgressBar1.Position := 0;
    end
    else begin
      Timer4.Enabled := False;
  end;
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
sProgressBar1.Position := sProgressBar1.Position+5;
end;
end.