scunit.pas

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

unit SCUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ObjectsForm, StdCtrls, VCLBase, EPButtons, EffBtns, EPLabels, MediaLib,
  epHint;

type
  TForm1 = class(TForm)
    ObjectsForm: TepObjectsForm;
    Memo1: TMemo;
    epFocusButton1: TepFocusButton;
    epHint1: TepHint;
    epBitmap1: TepBitmap;
    Button1: TButton;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure ObjectsFormMouseUpEvent(IDCode, X, Y: Integer;
      ObjectRect: TRect; Button: TMouseButton);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
    procedure CreateScanControlObjects;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CreateScanControlObjects;
begin
  with Form1.ObjectsForm do
  begin
    SelectScanControlObject(101,
                            Rect(157,28,194,65), NullRect,
                            Rect(0,0,10,10), Rect(26,0,36,10),
                            Rect(0,30,10,35), Rect(26,26,36,35),
                            Rect(0,10,5,26), Rect(10,0,20,5),
                            Rect(31,6,36,26), Rect(10,31,20,35),
                            False, False, NullRect, 0, 0, '');

    SelectScanControlObject(102,
                            Rect(3,28,70,59), Rect(80,28,147,59),
                            Rect(0,0,6,6), Rect(60,0,66,6),
                            Rect(0,23,6,29), Rect(60,23,66,29),
                            Rect(0,10,3,20), Rect(40,0,60,6),
                            Rect(64,10,66,20), Rect(10,27,60,29),
                            True, False, Rect(7, 93, 312, 192), 1, 2, '');

    SelectScanControlObject(103,
                            Rect(3,28,70,59), Rect(80,28,147,59),
                            Rect(0,0,6,6), Rect(60,0,66,6),
                            Rect(0,23,6,29), Rect(60,23,66,29),
                            Rect(0,10,3,20), Rect(40,0,60,6),
                            Rect(64,10,66,20), Rect(10,27,60,29),
                            True, True, Rect(7, 28, 312, 192),  3, 3, '');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Form1.ObjectsForm do
  begin
    SelectShowFormActivateObject(1, Rect(29,3, 235, 19), Rect(29, 3, 235, 19),
                                 True, True, '');
    SelectButtonObject(11, Rect(4, 4, 20, 19), Rect(4, 4, 20, 19), NullRect,
     -1, True, 'Minimize');
    SelectButtonObject(12, Rect(245, 4, 261, 19), Rect(245, 4, 261, 19), NullRect,
     -1, True, 'Close');
    CreateScanControlObjects;
  end;
end;

procedure TForm1.ObjectsFormMouseUpEvent(IDCode, X, Y: Integer;
  ObjectRect: TRect; Button: TMouseButton);
begin
  if Button = mbLeft then
  case IDCode of
    11: Application.Minimize;
    12: Close;
  end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  i: Integer;
begin
  if CheckBox1.Checked
  then
    begin
      CreateScanControlObjects;
      ObjectsForm.Invalidate;
    end
  else
    with ObjectsForm do
    begin
      for i := 101 to 103 do DelObject(i);
      ObjectsForm.Invalidate;
    end;
end;

end.