unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, HGG;
type
TForm1 = class(TForm)
HGG1: THGG;
Numer: TLabeledEdit;
Haslo: TLabeledEdit;
Numer_Ofiary: TLabeledEdit;
Wiadomosc: TLabeledEdit;
Zaloguj: TButton;
Wyloguj: TButton;
Spam: TButton;
Stop_Spam: TButton;
Timer1: TTimer;
procedure ZalogujClick(Sender: TObject);
procedure WylogujClick(Sender: TObject);
procedure SpamClick(Sender: TObject);
procedure Stop_SpamClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ZalogujClick(Sender: TObject);
begin
hgg1.Number:=strtoint(Numer.Text);
hgg1.Password:=Haslo.Text;
hgg1.Status:=usAvailable;
hgg1.Connect(500);
end;
procedure TForm1.WylogujClick(Sender: TObject);
begin
hgg1.Status:=usNotAvailable;
end;
procedure TForm1.SpamClick(Sender: TObject);
begin
timer1.Enabled:= True;
end;
procedure TForm1.Stop_SpamClick(Sender: TObject);
begin
timer1.Enabled:= False;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,);
hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,);
hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,);
end;
end.