Other systems

Development Platform:
Delphi

PortScan.dfm：Code Content
							object ScannerDlg: TScannerDlg
  Left = 220
  Top = 107
  BorderStyle = bsDialog
  Caption = 'OICQ 扫描器'
  ClientHeight = 355
  ClientWidth = 648
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 0
    Top = 141
    Width = 648
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Label1: TLabel
    Left = 12
    Top = 328
    Width = 60
    Height = 12
    Caption = '开始IP地址'
  end
  object Label2: TLabel
    Left = 204
    Top = 328
    Width = 24
    Height = 12
    Caption = '个数'
  end
  object SendList: TListBox
    Left = 0
    Top = 0
    Width = 648
    Height = 141
    Align = alTop
    ItemHeight = 12
    TabOrder = 0
  end
  object RecvList: TListBox
    Left = 0
    Top = 144
    Width = 648
    Height = 173
    Align = alTop
    ItemHeight = 12
    TabOrder = 1
  end
  object btnScan: TBitBtn
    Left = 460
    Top = 324
    Width = 75
    Height = 25
    Caption = '开始'
    TabOrder = 2
    OnClick = btnScanClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000084120000841200001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFF0B00FFFFFFFFFFFFF0BB00FFFFFFFFFFFF0BBB00FFFFFFFFFFF0BBBB00F
      FFFFFFFFF0BBBBB00FFFF000000BBBBBB0FFFF0BBBBBB000000FFFF0BBBBBB0F
      FFFFFFFF0BBBBBB0FFFFFFFFF0BB00000FFFFFFFFF0BB0FFFFFFFFF0000BBB0F
      FFFFFFFF0BBBBBB0FFFFFFFFF0BBBBBB0FFFFFFFFF0BBBBBB0FF}
  end
  object BitBtn2: TBitBtn
    Left = 540
    Top = 324
    Width = 75
    Height = 25
    TabOrder = 3
    Kind = bkClose
  end
  object edStartAddr: TEdit
    Left = 76
    Top = 324
    Width = 121
    Height = 20
    TabOrder = 4
  end
  object edAddrNum: TSpinEdit
    Left = 232
    Top = 324
    Width = 121
    Height = 21
    MaxValue = 254
    MinValue = 1
    TabOrder = 5
    Value = 0
  end
  object ScanUdp: TNMUDP
    RemotePort = 4000
    LocalPort = 8860
    ReportLevel = 1
    Left = 280
    Top = 96
  end
end

						