Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //Кнопка старта
- procedure TInsform.buttonstartClick(Sender: TObject);
- var
- StrTime:string; i:integer; TimerId: UINT_PTR;
- begin
- //Проверяем спиоск прокси и аккаунтов
- if (ProxyList.Text = '') or (Accounts.Text = '') then
- begin
- TimerId := SetTimer(0, 0,
- 2 //Секунд
- * 1000, @CloseMessageBox);
- Application.MessageBox('Вы не загрузили список прокси и/или аккаунтов...!', nil);
- Sleep(1000);//Если список прокси пуст, то показываем сообщение и вызываем окно выбора файлов
- //Если список аккаунтов пуст, то показываем сообщение и вызываем окно выбора файлов
- if (Accounts.Text = '') then begin TimerId := SetTimer(0, 0,1*1000, @CloseMessageBox);
- Application.MessageBox('Загружаем список аккаунтов...', nil);KillTimer(0, TimerId);
- cfe.Button.Click;
- end;
- if (ProxyList.Text = '') then begin TimerId := SetTimer(0, 0, 1*1000, @CloseMessageBox);
- Application.MessageBox('Загружаем прокси лист...', nil); KillTimer(0, TimerId);
- pfe.Button.Click;
- end;
- end else begin
- StrTime:=TimeToStr(Time);
- for i:=1 to Length(StrTime) do
- if StrTime[i]=':' then StrTime[i]:='_';
- begin
- if site1.Checked=true then ws:='crossfire';
- if site2.Checked=true then ws:='warface';
- if site3.Checked=true then ws:='perfectworld';
- Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'Good_'+ws+'_'+strtime+'.txt');
- Rewrite(GoodFile);
- Closefile(GoodFile);
- Assignfile(BadFile, ExtractFilePath(Application.ExeName)+'Bad_'+ws+'_'+strtime+'.txt');
- Rewrite(BadFile);
- Closefile(BadFile);
- gauge.MaxValue:=Accounts.Count;
- gauge.Progress:=0;
- Acc:=-1;
- pl:=-1;
- work:=true;
- timer.Enabled:=true;
- if strtoint(Spinz.Text)>accounts.count then Spinz.Text:=inttostr(accounts.count);
- for Thread:=1 to strtoint(Spinz.Text) do
- INsTheard.Create(false);
- Thread:=strtoint(Spinz.Text);
- end; end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement