unit1.dfm

局域网入侵源代码

object Form1: TForm1
  Left = 194
  Top = 117
  Width = 488
  Height = 307
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #20849#20139#20837#20405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 24
    Width = 77
    Height = 16
    Caption = #23545#26041#26426#22120#30340'IP'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 24
    Top = 80
    Width = 52
    Height = 16
    Caption = #20849#20139#36164#28304
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 225
    Top = 52
    Width = 31
    Height = 16
    Caption = 'From'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label4: TLabel
    Left = 323
    Top = 53
    Width = 17
    Height = 16
    Caption = 'To'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label5: TLabel
    Left = 240
    Top = 24
    Width = 52
    Height = 16
    Caption = #26816#27979#36229#26102
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel
    Left = 394
    Top = 24
    Width = 13
    Height = 16
    Caption = #31186
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Edit1: TEdit
    Left = 120
    Top = 24
    Width = 105
    Height = 17
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Text = '169.254.201.231'
  end
  object BitBtn1: TBitBtn
    Left = 110
    Top = 208
    Width = 75
    Height = 25
    Caption = #26816#27979
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFF999FFFFFFFFFFF999999FFFFFFFFF99999999FFFFFFF999F999999
      FFFFF999FF999F999FFF999FFF999FF999FF99FFFF999FFF99FFFFFFFF999FFF
      FFFFFFFFFF999FFFFFFFFFFFFF999FFFFFFFFFFFFF999FFFFFFFFFFFFF999FFF
      FFFFFFFFFF999FFFFFFFFFFFFF999FFFFFFFFFFFFF999FFFFFFF}
  end
  object ScrollBox1: TScrollBox
    Left = 120
    Top = 80
    Width = 289
    Height = 105
    BorderStyle = bsNone
    TabOrder = 2
    object ListBox1: TListBox
      Left = 0
      Top = 0
      Width = 289
      Height = 105
      Align = alClient
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
    end
  end
  object BitBtn2: TBitBtn
    Left = 343
    Top = 208
    Width = 75
    Height = 25
    Caption = #20837#20405
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn2Click
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFF999999FFFFFFFFF999999999FFFFFFF999999999FFFFFF999FFFFF9
      9FFFFFF99F9F9FFFFFFFFF9999F999FFFFFFFF999FFF9999FFFFFF9999FFF999
      FFFFFFF999FFFF99FFFFFFF999FFFF999FFFFFFF999FF9999FFFFFFF99999999
      FFFFFFFFFF99999FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object BitBtn3: TBitBtn
    Left = 266
    Top = 208
    Width = 75
    Height = 25
    Caption = #26029#24320
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn3Click
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFF99FFFFFFFFFF99FF999FFFFFFFF999FFF999FFFFFF999FFFFF999FFFF99
      9FFFFFFF999FF999FFFFFFFFF999999FFFFFFFFFFF9999FFFFFFFFFFFF9999FF
      FFFFFFFFF999999FFFFFFFFF999FF999FFFFFFF999FFFF999FFFFF999FFFFFF9
      99FFF999FFFFFFFF999FF99FFFFFFFFFF99FFFFFFFFFFFFFFFFF}
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 261
    Width = 480
    Height = 19
    Panels = <
      item
        Text = 'Case  '#20307#39564#29256
        Width = 350
      end
      item
        Text = #20316#32773':Case'
        Width = 50
      end>
    SimplePanel = False
  end
  object CheckBox1: TCheckBox
    Left = 16
    Top = 48
    Width = 97
    Height = 17
    Caption = #25195#25551#33539#22260
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = CheckBox1Click
  end
  object Edit2: TEdit
    Left = 120
    Top = 51
    Width = 97
    Height = 16
    BorderStyle = bsNone
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    Text = '169.254.201'
  end
  object Edit3: TEdit
    Left = 260
    Top = 51
    Width = 47
    Height = 16
    BorderStyle = bsNone
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    Text = '1'
  end
  object Edit4: TEdit
    Left = 351
    Top = 51
    Width = 57
    Height = 17
    BorderStyle = bsNone
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    Text = '255'
  end
  object Button1: TButton
    Left = 187
    Top = 208
    Width = 75
    Height = 25
    Caption = #20572#27490#26816#27979
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = Button1Click
  end
  object TrackBar1: TTrackBar
    Left = 432
    Top = 8
    Width = 33
    Height = 241
    Max = 60
    Orientation = trVertical
    Frequency = 1
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 11
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = TrackBar1Change
  end
  object Edit5: TEdit
    Left = 304
    Top = 23
    Width = 84
    Height = 17
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    Text = 'Edit5'
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 10000
    OnTimer = Timer1Timer
    Left = 64
    Top = 120
  end
end