SHARE
TWEET

Untitled

a guest Aug 17th, 2013 42,983 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top