| Class TForm1 (unit mnuke1) |
TForm
------------------------------------------------------------------------------ (C)opyright 1998 Meliksah Ozoral ------------------------------------------------------------------------------ e-mail : mozoral@mimsa.com http://www.mimsa.com/mweb ------------------------------------------------------------------------------
| Constructors |
| Functions |
procedure BtnAbortClick(Sender: TObject);
procedure BtnNukeClick(Sender: TObject);
procedure EditIPKeyPress(Sender: TObject; var Key: Char);
procedure EditPortKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure VsocketDataNeeded(Sender: TObject; Socket: Integer);
procedure VsocketErrorOccurred(Sender: TObject; Socket, Error: Integer; Msg: string);
procedure VsocketSessionClosed(Sender: TObject; Socket: Integer);| Properties |
| Events |
| Variables |
BtnAbort : TButton;
BtnNuke : TButton;
CheckBoxEOL : TCheckBox;
EditIP : TEdit;
EditMsg : TEdit;
EditPort : TEdit;
EditTimes : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
LabelEffect1 : TLabelEffect;
LabelEOL : TLabel;
LabelHost : TLabel;
LabelMsg : TLabel;
LabelPort : TLabel;
LabelTimes : TLabel;
StatusBar : TStatusBar;
Vsocket : TSockets;
NukeMsg : String;
OOBchar : array[0..27] of Integer;
Times : Integer;| Constructors |
| Functions |
procedure BtnAbortClick(Sender: TObject);
procedure BtnNukeClick(Sender: TObject);
procedure EditIPKeyPress(Sender: TObject; var Key: Char);------------------------------------------------------------------------------
procedure EditPortKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure VsocketDataNeeded(Sender: TObject; Socket: Integer);
procedure VsocketErrorOccurred(Sender: TObject; Socket, Error: Integer; Msg: string);
procedure VsocketSessionClosed(Sender: TObject; Socket: Integer);| Properties |
| Events |
| Variables |
BtnAbort : TButton;
BtnNuke : TButton;
CheckBoxEOL : TCheckBox;
EditIP : TEdit;
EditMsg : TEdit;
EditPort : TEdit;
EditTimes : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
LabelEffect1 : TLabelEffect;
LabelEOL : TLabel;
LabelHost : TLabel;
LabelMsg : TLabel;
LabelPort : TLabel;
LabelTimes : TLabel;
StatusBar : TStatusBar;
Vsocket : TSockets;
NukeMsg : String;
OOBchar : array[0..27] of Integer;
Times : Integer;