1. Pascal / Говнокод #13217

    +130

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    procedure TMyTr.Execute; // метод потока; эта процедура выполняется в отдельном потоке.
var
s,resp,ip,port:string;
cw,i:integer;
begin
  http:=TIdHTTP.Create(nil);
  cw:=getnumberproxy;
  while cw<form1.Memo1.Lines.Count do 
  begin
    s:=form1.Memo1.Lines[cw];
    i := Pos(':',s);
    IP := Copy(s,1,i-1);
    PORT := Copy(s,i+1,Length(s));
    try
      http.ProxyParams.ProxyServer:=ip;
      http.ProxyParams.ProxyPort:=StrToInt(port);
      http.ReadTimeout:=Form1.SpinEdit2.Value*1000;
      resp:=http.Get('http://ya.ru/');
      if pos('ya.ru',resp)<>0 then
      form1.Memo2.Lines.Add(ip+':'+port);
      except
        end;
      cw:=getnumberproxy;
      checked:=checked+1;
      end;
  http.Free;

end;

    Вот так живут Америка с Европой; что интересно, ни поток ни форма ни разу не заглючили.

    Запостил: Stertor, 23 Июня 2013

    Комментарии (17) RSS

    Добавить комментарий