Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
- IdTCPClient, IdHTTP;
- type
- TForm1 = class(TForm)
- Button1: TButton;
- OpenDialog1: TOpenDialog;
- Memo1: TMemo;
- Button2: TButton;
- Button3: TButton;
- Button4: TButton;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- Label4: TLabel;
- Label5: TLabel;
- Label6: TLabel;
- Label7: TLabel;
- Label8: TLabel;
- Label9: TLabel;
- Label10: TLabel;
- IdHTTP1: TIdHTTP;
- procedure Button1Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- type
- Potok = class(TThread)
- private
- { Private declarations }
- protected
- constructor Create (CreateSuspended: Boolean);
- procedure Execute; override;
- end;
- var
- Form1: TForm1;
- accaunts, proxylist: TStringList;
- work: Boolean;
- login, password: string;
- implementation
- {$R *.dfm}
- constructor Potok.Create (CreateSuspended: Boolean);
- begin
- inherited Create (CreateSuspended);
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- accaunts:=TStringList.Create;
- proxylist:=TStringList.Create;
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- if OpenDialog1.Execute then
- begin
- Accaunts.LoadFromFile(OpenDialog1.FileName);
- Label6.Caption:=inttostr(accaunts.count);
- end;
- end;
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- if OpenDialog1.Execute then
- begin
- ProxyList.LoadFromFile(OpenDialog1.FileName);
- Label7.Caption:=inttostr(proxylist.Count);
- end;
- end;
- procedure TForm1.Button4Click(Sender: TObject);
- begin
- Potok.Create;
- work:= false;
- end;
- procedure TForm1.Button3Click(Sender: TObject);
- begin
- work:=true;
- end;
- procedure Potok.Execute;
- var
- HTTP: TidHTTP;
- data: TStringList;
- HTML:String;
- i, acc, pl: integer;
- begin
- while work do
- begin
- for i:=0 to accaunts.Count do
- begin
- HTTP:= TidHTTP.Create;
- data:= TStringList.Create;
- Login:= copy(accaunts[acc],1,pos(';', accaunts[acc])-1);
- Password:= copy(accaunts[acc], pos(';', accaunts[acc])+, maxint);
- HTTP.ProxyParams.ProxyServer:= copy(proxylist[pl],1,pos(':', proxylist[pl])-1);
- HTTP.ProxyParams.ProxPort:=strtoint(copy(proxylist[pl],pos(':', proxylist[pl])+1), maxint));
- end;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement