Guest User

Untitled

a guest
Aug 17th, 2013
43,267
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. //Кнопка старта
  3.  
  4. procedure TInsform.buttonstartClick(Sender: TObject);
  5. var
  6. StrTime:string; i:integer; TimerId: UINT_PTR;
  7. begin
  8. //Проверяем спиоск прокси и аккаунтов
  9.  
  10. if (ProxyList.Text = '') or (Accounts.Text = '') then
  11. begin
  12.    TimerId := SetTimer(0, 0,
  13.   2    //Секунд
  14.    * 1000, @CloseMessageBox);
  15.   Application.MessageBox('Вы не загрузили список прокси  и/или аккаунтов...!', nil);
  16.   Sleep(1000);//Если список прокси пуст, то показываем сообщение и вызываем окно выбора файлов
  17.  
  18.  
  19. //Если список аккаунтов  пуст, то показываем сообщение и вызываем окно выбора файлов
  20. if (Accounts.Text = '') then begin TimerId := SetTimer(0, 0,1*1000, @CloseMessageBox);
  21. Application.MessageBox('Загружаем список аккаунтов...', nil);KillTimer(0, TimerId);
  22. cfe.Button.Click;
  23. end;
  24. if (ProxyList.Text = '') then begin TimerId := SetTimer(0, 0, 1*1000, @CloseMessageBox);
  25. Application.MessageBox('Загружаем прокси лист...', nil);  KillTimer(0, TimerId);
  26.  pfe.Button.Click;
  27.  end;
  28.  end else begin
  29. StrTime:=TimeToStr(Time);
  30.  for i:=1 to Length(StrTime)  do
  31.  if StrTime[i]=':' then  StrTime[i]:='_';
  32. begin
  33. if site1.Checked=true then ws:='crossfire';
  34. if site2.Checked=true then ws:='warface';
  35. if site3.Checked=true then ws:='perfectworld';
  36. Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'Good_'+ws+'_'+strtime+'.txt');
  37. Rewrite(GoodFile);
  38. Closefile(GoodFile);
  39. Assignfile(BadFile, ExtractFilePath(Application.ExeName)+'Bad_'+ws+'_'+strtime+'.txt');
  40. Rewrite(BadFile);
  41. Closefile(BadFile);
  42. gauge.MaxValue:=Accounts.Count;
  43. gauge.Progress:=0;
  44. Acc:=-1;
  45. pl:=-1;
  46. work:=true;
  47. timer.Enabled:=true;
  48. if  strtoint(Spinz.Text)>accounts.count then Spinz.Text:=inttostr(accounts.count);
  49. for Thread:=1  to strtoint(Spinz.Text) do
  50.     INsTheard.Create(false);
  51.     Thread:=strtoint(Spinz.Text);
  52. end; end;
  53. end;
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×