Guest User

Untitled

a guest
Jul 30th, 2016
84
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ShellApi, XPMan, inifiles, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Memo1: TMemo;
  12.     Button1: TButton;
  13.     Button2: TButton;
  14.     Button3: TButton;
  15.     Button4: TButton;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     Label3: TLabel;
  19.     Label4: TLabel;
  20.     Label5: TLabel;
  21.     XPManifest1: TXPManifest;
  22.     OpenDialog1: TOpenDialog;
  23.     SaveDialog1: TSaveDialog;
  24.     Timer1: TTimer;
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure Label5Click(Sender: TObject);
  27.     procedure Button4Click(Sender: TObject);
  28.     procedure Button2Click(Sender: TObject);
  29.     procedure Button1Click(Sender: TObject);
  30.     procedure Button3Click(Sender: TObject);
  31.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   Form1: TForm1;
  40.   openDialog : TOpenDialog;
  41.   pathINI,bots : string;
  42.   sIniFile : TIniFile;
  43.   buttonSelected : Integer;
  44. implementation
  45.  
  46. {$R *.dfm}
  47.  
  48. //ЧТО ДЕЛАТЬ ПРИ ЗАГРУЗКЕ ПРОГРАММЫ
  49. procedure TForm1.FormCreate(Sender: TObject);
  50. begin
  51.   Memo1.Clear;
  52. if FileExists ('bots.ini') then //проверяем есть ли файл INI
  53.    begin
  54.      sIniFile.ReadString('BOTS', 'bot1', 'C'+Memo1.Lines.ValueFromIndex[0]);
  55.  
  56.   end
  57.  else
  58.   Memo1.Lines.Add('Программа написана SNR93');
  59.   Memo1.Lines.Add('Специально для сайта pokehack.ru');
  60.   Memo1.Lines.Add('ВАЖНО! Все боты должны быть на диске C!!!');
  61.   Memo1.Lines.Add('Для начала выберите ботов через кнопку "Выбрать файл"');
  62.   Memo1.Lines.Add('Ботов не должно быть больше 10!');
  63.   Memo1.Lines.Add('Нажмите "Сохранить", чтобы ваши настройки сохранялись');
  64.   Memo1.Lines.Add('Теперь нажмите "Запуск", чтобы боты были запущены');
  65.   Memo1.Lines.Add('Обратите внимание! Данная программа будет перезапускать ботов');
  66.   Memo1.Lines.Add('каждые 30 минут!');
  67. end;
  68.  
  69. procedure TForm1.Label5Click(Sender: TObject);
  70. begin
  71.   ShellExecute(application.Handle,'Open','http://pokehack.ru/',Nil,Nil,SW_SHOWDEFAULT);
  72. end;
  73.  
  74. //КНОПКА ВЫБОРА ФАЙЛОВ
  75. procedure TForm1.Button4Click(Sender: TObject);
  76. begin
  77.   Memo1.Clear;
  78.   openDialog := TOpenDialog.Create(self);
  79.   openDialog.InitialDir := GetCurrentDir;
  80.   openDialog.Options := [ofFileMustExist];
  81.   openDialog.Filter :=  'exe бота|*.exe';
  82.     if openDialog.Execute
  83.       then Memo1.Lines.Add(openDialog.FileName)
  84.     else ShowMessage('Выбор файла отменен');
  85.   openDialog.Free;
  86.  end;
  87.  
  88. //КНОПКА УДАЛЕНИЯ BOTS.INI
  89. procedure TForm1.Button2Click(Sender: TObject);
  90. begin
  91.  if DeleteFile(pathINI)
  92.    then ShowMessage('Настройки удалены!')
  93.   else ShowMessage('Настройки не удалены!');
  94. end;
  95.  
  96.  
  97. //КНОПКА СОХРАНЕНИЯ В BOTS.INI
  98. procedure TForm1.Button1Click(Sender: TObject);
  99. begin
  100. pathINI:=extractfilepath(application.ExeName)+'\bots.ini';
  101.   sIniFile := TIniFile.Create(pathINI);
  102.   sIniFile.WriteString('BOTS', 'bot1', 'C'+Memo1.Lines.ValueFromIndex[0]);
  103.   sIniFile.WriteString('BOTS', 'bot2', 'C'+Memo1.Lines.ValueFromIndex[1]);
  104.   sIniFile.WriteString('BOTS', 'bot3', 'C'+Memo1.Lines.ValueFromIndex[2]);
  105.   sIniFile.WriteString('BOTS', 'bot4', 'C'+Memo1.Lines.ValueFromIndex[3]);
  106.   sIniFile.WriteString('BOTS', 'bot5', 'C'+Memo1.Lines.ValueFromIndex[4]);
  107.   sIniFile.WriteString('BOTS', 'bot6', 'C'+Memo1.Lines.ValueFromIndex[5]);
  108.   sIniFile.WriteString('BOTS', 'bot7', 'C'+Memo1.Lines.ValueFromIndex[6]);
  109.   sIniFile.WriteString('BOTS', 'bot8', 'C'+Memo1.Lines.ValueFromIndex[7]);
  110.   sIniFile.WriteString('BOTS', 'bot9', 'C'+Memo1.Lines.ValueFromIndex[8]);
  111.   sIniFile.WriteString('BOTS', 'bot10', 'C'+Memo1.Lines.ValueFromIndex[9]);
  112.   sIniFile.Free;
  113. end;
  114.  
  115.  
  116. //Запуск ботов
  117. procedure TForm1.Button3Click(Sender: TObject);
  118. begin
  119. WinExec(PANsiChar('TASKKILL /F /IM PokemonGo.RoketAPI.Console.exe'), SW_HIDE);
  120. Timer1.Interval := 1800000;
  121. if FileExists ('bots.ini') then //проверяем есть ли файл INI
  122.    begin
  123.      sIniFile.ReadString('BOTS', 'bot1', 'C'+Memo1.Lines.ValueFromIndex[0]);
  124.      sIniFile.ReadString('BOTS', 'bot2', 'C'+Memo1.Lines.ValueFromIndex[1]);
  125.      sIniFile.ReadString('BOTS', 'bot3', 'C'+Memo1.Lines.ValueFromIndex[2]);
  126.      sIniFile.ReadString('BOTS', 'bot4', 'C'+Memo1.Lines.ValueFromIndex[3]);
  127.      sIniFile.ReadString('BOTS', 'bot5', 'C'+Memo1.Lines.ValueFromIndex[4]);
  128.      sIniFile.ReadString('BOTS', 'bot6', 'C'+Memo1.Lines.ValueFromIndex[5]);
  129.      sIniFile.ReadString('BOTS', 'bot7', 'C'+Memo1.Lines.ValueFromIndex[6]);
  130.      sIniFile.ReadString('BOTS', 'bot8', 'C'+Memo1.Lines.ValueFromIndex[7]);
  131.      sIniFile.ReadString('BOTS', 'bot9', 'C'+Memo1.Lines.ValueFromIndex[8]);
  132.      sIniFile.ReadString('BOTS', 'bot10', 'C'+Memo1.Lines.ValueFromIndex[9]);
  133.      sIniFile.Free;
  134.  
  135.      //ShellExecute (Form1.Handle, nil, PChar(Edit2.Text), nil, nil, SW_HIDE);
  136.      bots := '1';
  137.    end
  138.  else showmessage('конфигурационный файл не найден!');
  139. end;
  140.  
  141. //ЕСЛИ ЗАКРЫВАЕМ ПРОГРАММУ, НО БОТЫ ЕЩЕ РАБОТАЮТ
  142. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  143. begin
  144.  if bots = '1' then
  145.   buttonSelected := MessageDlg('Убить ботов при выходе?',mtConfirmation, mbOKCancel, 0);
  146.   if buttonSelected = mrOK
  147.     then
  148.       WinExec(PANsiChar('TASKKILL /F /IM PokemonGo.RocketAPI.Console.exe'), SW_HIDE);
  149.   if buttonSelected = mrCancel
  150.     then
  151.       Application.Terminate;
  152.   end;
  153. end.
RAW Paste Data