tools.dfm

该程序用D5编译

          TabOrder = 1
          Text = '192.168.0.255'
        end
        object spPingTime: TSpinEdit
          Left = 399
          Top = 3
          Width = 50
          Height = 21
          MaxValue = 0
          MinValue = 0
          TabOrder = 2
          Value = 50
        end
      end
      object lvPing: TListView
        Left = 0
        Top = 26
        Width = 556
        Height = 221
        Align = alClient
        Columns = <
          item
            Caption = '能ping通的IP地址'
            Width = 120
          end>
        ColumnClick = False
        GridLines = True
        RowSelect = True
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = False
        TabOrder = 1
        ViewStyle = vsReport
        OnDblClick = lvPingDblClick
      end
      object Panel6: TPanel
        Left = 0
        Top = 247
        Width = 556
        Height = 19
        Align = alBottom
        Alignment = taLeftJustify
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 2
        object Label16: TLabel
          Left = 10
          Top = 4
          Width = 84
          Height = 12
          Caption = '正在ping的地址'
        end
        object cbAddToTree3: TCheckBox
          Left = 422
          Top = 3
          Width = 129
          Height = 14
          Anchors = [akTop, akRight]
          Caption = '自动加入搜索目录树'
          TabOrder = 0
        end
      end
    end
    object SendMsgTabSheet: TTabSheet
      Caption = '发送消息'
      ImageIndex = 4
      object Splitter1: TSplitter
        Left = 0
        Top = 193
        Width = 556
        Height = 3
        Cursor = crVSplit
        Align = alBottom
      end
      object memMsg: TMemo
        Left = 0
        Top = 19
        Width = 556
        Height = 149
        Align = alClient
        TabOrder = 0
      end
      object Panel7: TPanel
        Left = 0
        Top = 168
        Width = 556
        Height = 25
        Align = alBottom
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object btnSendMsg: TSpeedButton
          Left = 401
          Top = 4
          Width = 57
          Height = 18
          Anchors = [akTop, akRight]
          Caption = '发送消息'
          OnClick = btnSendMsgClick
        end
        object Label17: TLabel
          Left = 8
          Top = 8
          Width = 90
          Height = 12
          Caption = '主机名/IP地址：'
        end
        object cbToHost: TComboBox
          Left = 104
          Top = 2
          Width = 289
          Height = 20
          Anchors = [akLeft, akTop, akRight]
          ItemHeight = 12
          TabOrder = 0
        end
        object cbClearMsg: TCheckBox
          Left = 467
          Top = 6
          Width = 84
          Height = 14
          Anchors = [akTop, akRight]
          Caption = '发送后清空'
          TabOrder = 1
        end
      end
      object lvSendMsg: TListView
        Left = 0
        Top = 196
        Width = 556
        Height = 70
        Align = alBottom
        Columns = <
          item
            Caption = '目的主机'
            Width = 100
          end
          item
            Caption = '发送内容'
            Width = 250
          end
          item
            Caption = '发送结果'
            Width = 150
          end>
        ColumnClick = False
        GridLines = True
        RowSelect = True
        PopupMenu = PopupMenu1
        TabOrder = 2
        ViewStyle = vsReport
        OnDblClick = lvSendMsgDblClick
      end
      object Panel8: TPanel
        Left = 0
        Top = 0
        Width = 556
        Height = 19
        Align = alTop
        Alignment = taLeftJustify
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Caption = ' 请输入想要发送的内容：'
        TabOrder = 3
      end
    end
    object NbtDbTabSheet: TTabSheet
      Caption = 'Nbtstat记录'
      ImageIndex = 5
      object Splitter2: TSplitter
        Left = 0
        Top = 121
        Width = 556
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object lvNbtDb: TListView
        Left = 0
        Top = 124
        Width = 556
        Height = 123
        Align = alClient
        Columns = <
          item
            Caption = 'IP地址'
            Width = 120
          end
          item
            Caption = '工作组'
            Width = 110
          end
          item
            Caption = '主机'
            Width = 100
          end
          item
            Caption = '用户/其它'
            Width = 100
          end
          item
            Caption = 'MAC地址'
            Width = 120
          end>
        ColumnClick = False
        GridLines = True
        RowSelect = True
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = False
        TabOrder = 0
        ViewStyle = vsReport
      end
      object Panel9: TPanel
        Left = 0
        Top = 0
        Width = 556
        Height = 121
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object lvSearchResult: TListView
          Left = 0
          Top = 52
          Width = 556
          Height = 69
          Align = alClient
          Columns = <
            item
              Caption = 'IP地址'
              Width = 120
            end
            item
              Caption = '工作组'
              Width = 110
            end
            item
              Caption = '主机'
              Width = 100
            end
            item
              Caption = '用户/其它'
              Width = 100
            end
            item
              Caption = 'MAC地址'
              Width = 120
            end>
          ColumnClick = False
          GridLines = True
          RowSelect = True
          ParentShowHint = False
          ShowHint = False
          TabOrder = 0
          ViewStyle = vsReport
        end
        object Panel10: TPanel
          Left = 0
          Top = 0
          Width = 556
          Height = 52
          Align = alTop
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 1
          object Label18: TLabel
            Left = 8
            Top = 33
            Width = 36
            Height = 12
            Caption = '检索：'
          end
          object Label19: TLabel
            Left = 176
            Top = 33
            Width = 6
            Height = 12
            Caption = '='
          end
          object Bevel2: TBevel
            Left = 1
            Top = 25
            Width = 553
            Height = 6
            Anchors = [akLeft, akTop, akRight]
            Shape = bsTopLine
          end
          object cbField: TComboBox
            Left = 47
            Top = 28
            Width = 122
            Height = 20
            Style = csDropDownList
            ItemHeight = 12
            TabOrder = 0
          end
          object btnSearchField: TButton
            Left = 488
            Top = 30
            Width = 59
            Height = 19
            Anchors = [akTop, akRight]
            Caption = '确定'
            TabOrder = 1
            OnClick = btnSearchFieldClick
          end
          object edtSearch: TEdit
            Left = 192
            Top = 29
            Width = 289
            Height = 20
            Anchors = [akLeft, akTop, akRight]
            TabOrder = 2
          end
          object cbNbtDataLoad: TCheckBox
            Left = 9
            Top = 8
            Width = 134
            Height = 14
            Anchors = [akTop, akRight]
            Caption = '不再自动保存和载入'
            TabOrder = 3
            OnClick = cbNbtDataLoadClick
          end
        end
      end
      object Panel11: TPanel
        Left = 0
        Top = 247
        Width = 556
        Height = 19
        Align = alBottom
        Alignment = taLeftJustify
        BevelInner = bvSpace
        BevelOuter = bvLowered
        TabOrder = 2
        object Label20: TLabel
          Left = 10
          Top = 4
          Width = 36
          Height = 12
          Caption = '主机数'
        end
        object btnSort: TSpeedButton
          Left = 511
          Top = 2
          Width = 41
          Height = 16
          Anchors = [akTop, akRight]
          Caption = '排序'
          OnClick = btnSortClick
        end
      end
    end
    object IPCfgTabSheet: TTabSheet
      Caption = 'IP地址信息'
      ImageIndex = 6
      object Splitter3: TSplitter
        Left = 293
        Top = 0
        Width = 3
        Height = 247
        Cursor = crHSplit
        Align = alRight
      end
      object Panel16: TPanel
        Left = 296
        Top = 0
        Width = 260
        Height = 247
        Align = alRight
        BevelOuter = bvNone
        Caption = 'Panel16'
        TabOrder = 0
        object lvIpAddrRange: TListView
          Left = 0
          Top = 25
          Width = 260
          Height = 222
          Align = alClient
          Columns = <
            item
              Caption = '起始IP地址'
              Width = 120
            end
            item
              Caption = '终止IP地址'
              Width = 110
            end>
          ColumnClick = False
          GridLines = True
          MultiSelect = True
          ReadOnly = True
          RowSelect = True
          ParentShowHint = False
          ShowHint = False
          TabOrder = 0
          ViewStyle = vsReport
          OnDblClick = lvIpAddrRangeDblClick
        end
        object Panel17: TPanel
          Left = 0
          Top = 0
          Width = 260
          Height = 25
          Align = alTop
          Alignment = taLeftJustify
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Caption = ' 曾经访问的IP地址范围历史记录'
          TabOrder = 1
          object btnDelIpRange: TButton
            Left = 192
            Top = 4
            Width = 59
            Height = 18
            Caption = '删除'
            TabOrder = 0
            OnClick = btnDelIpRangeClick
          end
        end
      end
      object Panel14: TPanel
        Left = 0
        Top = 0
        Width = 293
        Height = 247
        Align = alClient
        BevelOuter = bvNone
        Caption = 'Panel14'
        TabOrder = 1
        object Splitter4: TSplitter
          Left = 0
          Top = 122
          Width = 293
          Height = 3
          Cursor = crVSplit
          Align = alBottom
        end
        object lvIpAddr: TListView
          Left = 0
          Top = 125
          Width = 293
          Height = 122
          Align = alBottom
          Columns = <
            item
              Caption = '起始IP地址'
              Width = 120
            end
            item
              Caption = '终止IP地址'
              Width = 110
            end>
          ColumnClick = False
          GridLines = True
          ReadOnly = True
          RowSelect = True
          ParentShowHint = False
          ShowHint = False
          TabOrder = 0
          ViewStyle = vsReport
          OnDblClick = lvIpAddrDblClick
        end
        object Panel15: TPanel
          Left = 0
          Top = 0
          Width = 293
          Height = 25
          Align = alTop
          BevelInner = bvRaised
          BevelOuter = bvLowered
          Caption = '本机IP地址信息'
          TabOrder = 1
          object btnRefreshIpCfg: TButton
            Left = 4
            Top = 4
            Width = 47
            Height = 18
            Caption = '刷新'
            TabOrder = 0
            OnClick = btnRefreshIpCfgClick
          end
        end
        object memIpCfg: TMemo
          Left = 0
          Top = 25
          Width = 293
          Height = 97
          Align = alClient
          ReadOnly = True
          ScrollBars = ssBoth
          TabOrder = 2
        end
      end
      object Panel12: TPanel
        Left = 0
        Top = 247
        Width = 556
        Height = 19
        Align = alBottom
        Alignment = taLeftJustify
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 2
        object Label23: TLabel
          Left = 10
          Top = 4
          Width = 360
          Height = 12
          Caption = '双击列表中的地址可将相应的地址添入“搜索IP地址段”的地址框。'
        end
      end
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 196
    Top = 103
    object N1: TMenuItem
      Caption = '清空列表'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '保存列表'
      OnClick = N2Click
    end
  end
  object SaveDlg: TSaveDialog
    DefaultExt = 'txt'
    FileName = 'LAN_log'
    Filter = '*.txt|*.txt|Excel文件|*.xls'
    Left = 316
    Top = 142
  end
end