1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
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
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76
77. 77
78. 78
79. 79
80. 80
81. 81
82. 82
83. 83
84. 84
85. 85
86. 86
87. 87
88. 88
89. 89
90. 90
91. 91
92. 92
93. 93
94. 94
95. 95
96. 96
97. 97
98. 98
99. 99
100. 100

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;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  ind:=-1;
  label6.caption:=inttostr(Memo1.Lines.count);
  for i:=1 to spinedit1.Value do
  begin
    thr[i]:=TMyTr.Create;
    thr[i].Pause(1);
    thr[i].Resume;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.label4.caption:=IntToStr(Form1.Memo2.Lines.Count);
Form1.Label6.Caption:=IntToStr(form1.Memo1.Lines.Count);
Form1.Label3.Caption:=IntToStr(checked);

end;



procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Memo1.Clear;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Memo2.Clear;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if SaveDialog1.Execute=true then
Form1.Memo2.Lines.SaveToFile(Form1.SaveDialog1.FileName);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if Form1.OpenDialog1.Execute=True
then
Form1.Memo1.lines.LoadFromFile(Form1.OpenDialog1.FileName);
end;


procedure TForm1.Button6Click(Sender: TObject);
begin
Form1.CoolTrayIcon1.IconVisible:=True;
Form1.Hide;
end;

procedure TForm1.Show1Click(Sender: TObject);
begin
Form1.Show;
Form1.CoolTrayIcon1.IconVisible:=false;
end;

procedure TForm1.SaveGood1Click(Sender: TObject);
begin
if SaveDialog1.Execute=true then
Form1.Memo2.Lines.SaveToFile(Form1.SaveDialog1.FileName);

end;

procedure TForm1.ClearGood1Click(Sender: TObject);
begin
Form1.Memo2.Clear;
end;