netmonitorform.dfm

自已写的IP扫描工具

object NetMonitorFrm: TNetMonitorFrm
  Left = 229
  Top = 151
  Width = 769
  Height = 559
  Caption = #32178#32097#30435#25511
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 761
    Height = 532
    ActivePage = TabSheetMain
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #26032#32048#26126#39636
    Font.Style = []
    ParentFont = False
    TabIndex = 0
    TabOrder = 0
    object TabSheetMain: TTabSheet
      Caption = #32178#32097#30435#25511#35373#32622
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 753
        Height = 103
        Align = alTop
        TabOrder = 0
        object Panel7: TPanel
          Left = 1
          Top = 50
          Width = 751
          Height = 49
          Align = alTop
          BevelInner = bvRaised
          BevelOuter = bvNone
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 0
          object labInIP: TLabel
            Left = 18
            Top = 18
            Width = 48
            Height = 13
            Caption = 'ping'#20837'IP:'
          end
          object labInIPPosition: TLabel
            Left = 212
            Top = 18
            Width = 29
            Height = 13
            Caption = #20301#32622':'
          end
          object edtInIP: TEdit
            Left = 75
            Top = 14
            Width = 128
            Height = 19
            Color = clYellow
            Ctl3D = False
            ParentCtl3D = False
            TabOrder = 0
            Text = 'edtInIP'
          end
          object edtPosition: TEdit
            Left = 252
            Top = 14
            Width = 121
            Height = 19
            Ctl3D = False
            ParentCtl3D = False
            TabOrder = 1
            Text = 'edtPosition'
          end
          object btnInIPAdd: TButton
            Left = 542
            Top = 11
            Width = 64
            Height = 25
            Caption = #28155#21152'IP'
            TabOrder = 2
            OnClick = btnInIPAddClick
          end
          object btnInIPDelete: TButton
            Left = 619
            Top = 11
            Width = 60
            Height = 25
            Caption = #21034#38500'IP'
            TabOrder = 3
            OnClick = btnInIPDeleteClick
          end
          object gsSurePing: TRadioGroup
            Left = 400
            Top = 5
            Width = 112
            Height = 36
            Caption = #26159#21542#22519#34892'ping'#21629#20196
            TabOrder = 4
          end
          object rdoPingYes: TRadioButton
            Left = 416
            Top = 19
            Width = 41
            Height = 17
            Caption = #26159
            Checked = True
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
            TabOrder = 5
            TabStop = True
          end
          object rdoPingNo: TRadioButton
            Left = 464
            Top = 19
            Width = 38
            Height = 17
            Caption = #21542
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
            TabOrder = 6
          end
        end
        object Panel8: TPanel
          Left = 1
          Top = 1
          Width = 751
          Height = 49
          Align = alTop
          BevelInner = bvRaised
          BevelOuter = bvNone
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 1
          object labIPServer: TLabel
            Left = 18
            Top = 18
            Width = 57
            Height = 13
            AutoSize = False
            Caption = #26381#21209#22120'IP:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
          end
          object labRunNum: TLabel
            Left = 211
            Top = 18
            Width = 69
            Height = 13
            AutoSize = False
            Caption = 'ping'#20837#38971#29575':'
          end
          object labLocalIP: TLabel
            Left = 76
            Top = 17
            Width = 127
            Height = 16
            AutoSize = False
            Caption = 'labLocalIP'
            Color = -1
            Font.Charset = ANSI_CHARSET
            Font.Color = clLime
            Font.Height = -16
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object labDelay: TLabel
            Left = 379
            Top = 18
            Width = 55
            Height = 13
            AutoSize = False
            Caption = #24310#26178#27161#28310':'
          end
          object labms: TLabel
            Left = 510
            Top = 18
            Width = 15
            Height = 13
            AutoSize = False
            Caption = 'ms'
          end
          object btn1: TSpeedButton
            Left = 696
            Top = 8
            Width = 42
            Height = 33
            Glyph.Data = {
              36050000424D3605000000000000360400002800000010000000100000000100
              08000000000000010000C40E0000C40E00000001000000010000ADADB0000A3F
              9E000C409E00A7A7AA000A3CA000AFAFB200B2B2B400093E9E00B6B6B80050A2
              9F00204CA100BABABC00EEEEEF00A6A6A900EDEDEE001745A000276AB600234D
              A100859FBA00F8F8F8005BA3A000AAAAAD00A8A8AB0082A7BC0063ACCE001C66
              B70067ABCC001764B70081A4BC00BCBCBE005DA08E00FFFFFF004992DA00BBBB
              BD00315FAD00254FA100C0C0C200D7D7D9007691C70093A6B300E5E5E60048A8
              DB00093B9E00F9F9F9008DA0B600417ED9004190DE006DA88E005A8AD0005387
              D5006097CD006184C00063B6D60071B2CC0057A2A0004984DA00AEAEB1000F5C
              B700E9EDF6005394D50050A8D70097A8B200093C9E00EAEAEB005A95D000245B
              B600EBEBEC006EA3850066A48E00D3DBED0099A6B0003EA9E0000B3C9C000B3F
              9E0059A2A000C3C58E0058A2A00001329500859CBA009BA7AF00DDDCB5005DA8
              CF00F7F7F700D9D9DB004AACB60054A29F002069B7001E4AA10073AAC500F5F5
              F50068B4D2004F9AD70089A8B900115FB7004799DB005F9B85007F9EBD00FBFB
              FB0096A7B2005D7EC00007399C00F1F1F20056ADD6000A3C9C006EB3CE005CAC
              D2000E52B700246BB700549BD3003D98E000F6F6F600EEF1F8009EA4AD008BA7
              B700AFBEDE0076A7C200EFF2F800FDFDFD003A85B400093D9E000D419E0055A8
              D3002E6DB500A2A6AB000E43A700C3C58F00F0F0F1000E56B700B5B5B70048AF
              BB00D4D6AF004D74B8002465B600C3C3C50096A3B100E2E2E30003349700679F
              85005CA3A0004BA5C800B3B3B500FFF4CD00C3C48B0063C8D5008FA57C001445
              A000E8ECF500ACBCDC00FFFFFF00000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000000000000000000000000000094946364230F
              04110A040A574D26949494457C30080031808C378C062D4894949493418C6153
              00523F03650E4E2A929494936A4070323B8660202C122E3E929494937F6C858C
              5B24215E1D0B6D7792949493848C1325005928037E421C079294949339794651
              3C27732971174707929494935D1A0D58187B5C694F626601929494937A081F87
              05750C162B6E3D01929494931B358C156806005A053834499294949319818A55
              091436094A4C540292949493561E7D8E8E8E8E8E8E4B5F02929494936B44828D
              8D8D8D8D8D50897892949472102F909090909090909043676F949494888B8F8F
              8F8F8F8F8F8F7622949494943A83919191919191919133749494}
            OnClick = btn1Click
          end
          object lbl1: TLabel
            Left = 358
            Top = 18
            Width = 15
            Height = 13
            AutoSize = False
            Caption = 'ms'
          end
          object btnPingRuning: TButton
            Left = 542
            Top = 12
            Width = 62
            Height = 25
            Caption = #22519#34892
            TabOrder = 0
            OnClick = btnPingRuningClick
          end
          object btnPingStop: TButton
            Left = 619
            Top = 12
            Width = 62
            Height = 25
            Caption = #20572#27490
            TabOrder = 1
            OnClick = btnPingStopClick
          end
          object edtRunInterval: TEdit
            Left = 276
            Top = 15
            Width = 77
            Height = 19
            Color = clYellow
            Ctl3D = False
            ParentCtl3D = False
            TabOrder = 2
            Text = 'edtRunInterval'
            OnKeyPress = edtRunIntervalKeyPress
          end
          object edtDelay: TEdit
            Left = 433
            Top = 15
            Width = 71
            Height = 19
            Color = clYellow
            Ctl3D = False
            ParentCtl3D = False
            TabOrder = 3
            Text = 'edtDelay'
            OnKeyPress = edtDelayKeyPress
          end