main.dfm

用Delphi编写的一个多线程端口扫描程序代码

object Form1: TForm1
  Left = 384
  Top = 183
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #22810#32447#31243#31471#21475#25195#25551#31243#24207' Ver1.0'
  ClientHeight = 270
  ClientWidth = 260
  Color = clBtnFace
  Constraints.MaxHeight = 297
  Constraints.MaxWidth = 268
  Constraints.MinHeight = 297
  Constraints.MinWidth = 268
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 14
    Width = 24
    Height = 12
    Caption = #20027#26426
  end
  object Label2: TLabel
    Left = 11
    Top = 39
    Width = 24
    Height = 12
    Caption = #31471#21475
  end
  object Label3: TLabel
    Left = 77
    Top = 39
    Width = 12
    Height = 12
    Caption = #21040
  end
  object Search: TSpeedButton
    Left = 8
    Top = 225
    Width = 113
    Height = 21
    Caption = #24320#22987#25195#25551
    Flat = True
    OnClick = SearchClick
  end
  object Label4: TLabel
    Left = 154
    Top = 40
    Width = 36
    Height = 12
    Caption = #32447#31243#25968
  end
  object AboutButton: TSpeedButton
    Left = 184
    Top = 225
    Width = 65
    Height = 22
    Caption = #20851#20110'..'
    Flat = True
    OnClick = AboutButtonClick
  end
  object M1: TMemo
    Left = 8
    Top = 63
    Width = 241
    Height = 159
    Hint = #26174#31034#25195#25551#32467#26524'!'
    Lines.Strings = (
      #26412#31243#24207#20026#31471#21475#25195#25551#31243#24207#65281
      #20351#29992#22810#32447#31243#30340#32534#31243#25216#26415'!'#25195#25551#30340#36895#24230#36229#24555#65281
      #27880':'
      #26412#31243#24207#21482#33021#25195#25551#20351#29992'TCP'#21327#35758#30340#20027#26426#31471#21475'!'
      ''
      #20027#26426#65306#21487#20197#36755#20837'IP'#22320#22336#25110#22495#21517'!'
      #31471#21475#33539#22260#65306'1-65535'
      '----------------------------------'
      #21046#20316#20154':'#21834'D'
      'QQ:9269563'
      'E-Mail:[e-mail]'
      'Http://d99.126.com')
    ReadOnly = True
    TabOrder = 4
  end
  object Port1: TEdit
    Left = 39
    Top = 35
    Width = 35
    Height = 20
    Hint = #24320#22987#25195#25551#30340#31471#21475#13#10#33539#22260': 1-65535'
    TabOrder = 1
    Text = '1'
  end
  object Port2: TEdit
    Left = 93
    Top = 35
    Width = 38
    Height = 20
    Hint = #32467#26463#25195#25551#30340#31471#21475#13#10#33539#22260': 1-65535'
    TabOrder = 2
    Text = '1024'
  end
  object SB1: TStatusBar
    Left = 0
    Top = 251
    Width = 260
    Height = 19
    Panels = <
      item
        Text = #22914#35201#25195#25551#36873#23450#20027#26426','#35831#25353'"'#24320#22987#25195#25551'"!'
        Width = 150
      end>
  end
  object MaxThread: TSpinEdit
    Left = 194
    Top = 35
    Width = 55
    Height = 21
    Hint = #32447#31243#25968
    MaxValue = 300
    MinValue = 2
    TabOrder = 3
    Value = 60
  end
  object IP: TComboBox
    Left = 40
    Top = 9
    Width = 209
    Height = 20
    Hint = #22312#36825#37324#36755#20837'IP'#25110#22495#21517'!'#13#10#20363#22914#36755#20837':'#13#10'102.12.45.123'#13#10'www.163.com'
    ItemHeight = 12
    TabOrder = 0
    Text = 'www.163.com'
    Items.Strings = (
      'www.163.com'
      'www.163.net'
      'cn.yahoo.com'
      'www.sohu.com'
      'www.sina.com.cn'
      '127.0.0.1')
  end
end