其他

开发平台：
Delphi

CloneScan.dfm：源码内容
							object CloneScanDlg: TCloneScanDlg
  Left = 529
  Top = 0
  BorderStyle = bsDialog
  Caption = '克隆扫描'
  ClientHeight = 408
  ClientWidth = 345
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 24
    Top = 12
    Width = 36
    Height = 12
    Caption = '目标IP'
  end
  object Label2: TLabel
    Left = 12
    Top = 140
    Width = 48
    Height = 12
    Caption = '扫描结果'
  end
  object Label3: TLabel
    Left = 12
    Top = 40
    Width = 48
    Height = 12
    Caption = '开始端口'
  end
  object Label4: TLabel
    Left = 132
    Top = 40
    Width = 48
    Height = 12
    Caption = '结束端口'
  end
  object Label5: TLabel
    Left = 12
    Top = 68
    Width = 48
    Height = 12
    Caption = '扫描次数'
  end
  object Label6: TLabel
    Left = 124
    Top = 68
    Width = 60
    Height = 12
    Caption = '超时值(ms)'
  end
  object Label7: TLabel
    Left = 152
    Top = 96
    Width = 24
    Height = 12
    Caption = '源ID'
  end
  object Label8: TLabel
    Left = 12
    Top = 96
    Width = 48
    Height = 12
    Caption = '线程个数'
  end
  object Label9: TLabel
    Left = 72
    Top = 140
    Width = 78
    Height = 12
    Caption = '发现目标个数:'
  end
  object lbTargetNumber: TLabel
    Left = 156
    Top = 140
    Width = 6
    Height = 12
    Caption = '0'
  end
  object btnPause: TButton
    Left = 256
    Top = 36
    Width = 75
    Height = 25
    Caption = '停止'
    TabOrder = 12
    OnClick = btnPauseClick
  end
  object btnStart: TButton
    Left = 256
    Top = 8
    Width = 75
    Height = 25
    Caption = '扫描'
    Default = True
    TabOrder = 8
    OnClick = btnStartClick
  end
  object edIPAddr: TEdit
    Left = 64
    Top = 8
    Width = 177
    Height = 20
    TabOrder = 0
    Text = '127.0.0.1'
  end
  object PortList: TListBox
    Left = 12
    Top = 156
    Width = 229
    Height = 241
    ItemHeight = 12
    PopupMenu = ScanMenu
    Sorted = True
    TabOrder = 7
    OnKeyDown = PortListKeyDown
  end
  object edStartPort: TSpinEdit
    Left = 64
    Top = 36
    Width = 57
    Height = 21
    MaxValue = 0
    MinValue = 0
    TabOrder = 1
    Value = 1000
  end
  object edStopPort: TSpinEdit
    Left = 184
    Top = 36
    Width = 57
    Height = 21
    MaxValue = 0
    MinValue = 0
    TabOrder = 2
    Value = 4500
  end
  object edTimes: TSpinEdit
    Left = 64
    Top = 64
    Width = 57
    Height = 21
    MaxValue = 200
    MinValue = 1
    TabOrder = 3
    Value = 3
  end
  object edTimeOut: TSpinEdit
    Left = 184
    Top = 64
    Width = 57
    Height = 21
    MaxValue = 0
    MinValue = 0
    TabOrder = 4
    Value = 500
  end
  object btnClose: TButton
    Left = 256
    Top = 64
    Width = 75
    Height = 25
    Cancel = True
    Caption = '关闭'
    ModalResult = 1
    TabOrder = 9
    OnClick = btnCloseClick
  end
  object edSrcId: TEdit
    Left = 184
    Top = 92
    Width = 57
    Height = 20
    TabOrder = 6
    Text = '0'
  end
  object btnNuke: TButton
    Left = 256
    Top = 156
    Width = 75
    Height = 25
    Caption = '炸他！'
    TabOrder = 10
    OnClick = btnNukeClick
  end
  object btnNukeAll: TButton
    Left = 256
    Top = 184
    Width = 75
    Height = 25
    Caption = '炸他们！'
    TabOrder = 11
    OnClick = btnNukeAllClick
  end
  object edThreadNum: TSpinEdit
    Left = 64
    Top = 92
    Width = 57
    Height = 21
    MaxValue = 50
    MinValue = 2
    TabOrder = 5
    Value = 10
  end
  object ProgBar: TProgressBar
    Left = 12
    Top = 120
    Width = 229
    Height = 16
    Min = 0
    Max = 100
    TabOrder = 13
  end
  object PortUDP: TNMUDP
    RemotePort = 0
    LocalPort = 8800
    ReportLevel = 1
    Left = 260
    Top = 96
  end
  object OutTimer: TTimer
    Enabled = False
    OnTimer = OutTimerTimer
    Left = 288
    Top = 96
  end
  object ScanMenu: TPopupMenu
    Left = 72
    Top = 212
    object mClear: TMenuItem
      Caption = '清除'
      OnClick = mClearClick
    end
    object mSave: TMenuItem
      Caption = '存盘'
      OnClick = mSaveClick
    end
  end
  object SaveDlg: TSaveDialog
    DefaultExt = 'txt'
    Filter = '文本文件(*.txt)|*.txt'
    Left = 100
    Top = 212
  end
end

						