unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, StdCtrls, ICQClient, ExtCtrls, Buttons, IdBaseComponent,
IdAntiFreezeBase, IdAntiFreeze;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Label3: TLabel;
GroupBox1: TGroupBox;
XPManifest1: TXPManifest;
ICQClient1: TICQClient;
Button3: TButton;
Edit5: TEdit;
Label6: TLabel;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Timer1: TTimer;
Edit3: TEdit;
IdAntiFreeze1: TIdAntiFreeze;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ICQClient1Login(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit2.Font.Name:='Wingdings';
Edit2.PasswordChar:='l';
Memo1.Lines.Clear;
Memo2.Lines.Clear;
Memo3.Lines.Clear;
Button3.Enabled:=False;
memo2.Enabled:=False;
edit5.Enabled:=False;
timer1.Enabled:=False;
timer1.Interval:=20000; //Интервал секунды
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Tag= 0 then
begin
if (Edit1.Text='') or (Edit2.Text='')
or (StrToInt(Edit1.Text)<10000) or (StrToInt (Edit1.Text)>1000000000)
then
begin
MessageBox(0, 'Пожалуйста введите верно UIN и Пароль', 'Невозможно подключиться!', MB_ICONWARNING);
Exit;
end;
ICQClient1.UIN:=StrToInt(Edit1.Text);
ICQClient1.Password:=Edit2.Text; // Логинимся к серверу
ICQClient1.ConvertToPlaintext:=true;
ICQClient1.Login();
Edit1.Enabled:=False;
Edit2.Enabled:=False;
Timer1.Enabled:=True;
Memo1.Lines.Add('Соединение с сервером...');
Button1.Tag:= 1;
Button1.Caption:='Отключиться'; //Меняем название кнопки
end
else
begin
Button1.Tag:= 0;
Button1.Caption:='Подключиься';
ICQClient1.Disconnect;
Edit1.Enabled:=true;
Edit2.Enabled:=true;
Label3.Caption:=('Режим OffLine');
Label3.Font.Color:=clRed;
Memo1.Lines.Add('Соединение с сервером оборвано.');
Button3.Enabled:=False;
memo2.Enabled:=False;
edit5.Enabled:=False;
timer1.Enabled:=False;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ICQClient1.Disconnect;
Edit1.Enabled:=true;
Edit2.Enabled:=true;
Form1.Caption:=('Статус: OffLine');
Label3.Caption:=('Режим OffLine');
Label3.Font.Color:=clRed;
Memo1.Lines.Add('Соединение с сервером оборвано.');

end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
Label3.Caption:=('Режим OnLine');
Label3.Font.Color:=clGreen;
if ICQClient1.LoggedIn then
begin
Memo1.Lines.Add('Соединение с сервером установлено.');
Button3.Enabled:=True;
memo2.Enabled:=True;
edit5.Enabled:=True;
Timer1.Enabled:=False;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If not ICQClient1.LoggedIn then
MessageDlg('Соединение с сервером не установлено!',mtInformation,[mbOk],0);
Timer1.Enabled:=False;
Memo1.Lines.Add('Не удалось соединиться с сервером.');
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
for i:=strtoint(edit5.Text) to strtoint(edit3.Text)do
begin
icqclient1.SendMessage(i, ''+ memo2.Text +'' ); //отправляем сообщение

Memo1.Lines.Add('Сообщение отправленно');
Memo3.Lines.Add(Memo2.Text);
sleep(500);
end;
end;

end.