frmknd.pas

漏洞扫描系列中HB Network Scanner 测试用练习代码

unit frmknd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  regions, StdCtrls;

type
  TfrmKinds = class(TForm)
    mlRegionForm1: TepRegionForm;
    mlRegionSpeedButton1: TepRegionSpeedButton;
    mlRegionSpeedButton2: TepRegionSpeedButton;
    GroupBox1: TGroupBox;
    mlRegionSpeedButton3: TepRegionSpeedButton;
    mlRegionSpeedButton4: TepRegionSpeedButton;
    mlRegionSpeedButton5: TepRegionSpeedButton;
    mlRegionSpeedButton6: TepRegionSpeedButton;
    mlRegionSpeedButton7: TepRegionSpeedButton;
    mlRegionSpeedButton8: TepRegionSpeedButton;
    mlRegionSpeedButton9: TepRegionSpeedButton;
    GroupBox2: TGroupBox;
    mlRegionSpeedButton10: TepRegionSpeedButton;
    mlRegionSpeedButton11: TepRegionSpeedButton;
    mlRegionSpeedButton12: TepRegionSpeedButton;
    mlRegionSpeedButton13: TepRegionSpeedButton;
    mlRegionSpeedButton14: TepRegionSpeedButton;
    mlRegionSpeedButton15: TepRegionSpeedButton;
    mlRegionSpeedButton16: TepRegionSpeedButton;
    GroupBox3: TGroupBox;
    mlRegionSpeedButton17: TepRegionSpeedButton;
    mlRegionSpeedButton18: TepRegionSpeedButton;
    mlRegionSpeedButton19: TepRegionSpeedButton;
    mlRegionSpeedButton20: TepRegionSpeedButton;
    mlRegionSpeedButton21: TepRegionSpeedButton;
    mlRegionSpeedButton22: TepRegionSpeedButton;
    Label1: TLabel;
    procedure mlRegionSpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmKinds: TfrmKinds;

implementation

{$R *.DFM}

procedure TfrmKinds.mlRegionSpeedButton1Click(Sender: TObject);
begin
  Close;
end;


end.