📄 main.dfm
字号:
object main_f: Tmain_f
Left = 240
Top = 147
Width = 577
Height = 475
Caption = 'main'
Color = clBtnFace
Constraints.MaxHeight = 475
Constraints.MaxWidth = 577
Constraints.MinHeight = 475
Constraints.MinWidth = 577
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 569
Height = 428
ActivePage = TabSheet1
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
TabWidth = 65
object TabSheet1: TTabSheet
Caption = '端口扫描'
OnHide = TabSheet1Hide
OnShow = TabSheet1Show
object Label1: TLabel
Left = 11
Top = 8
Width = 76
Height = 13
AutoSize = False
Caption = '开始地址:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
end
object Label2: TLabel
Left = 11
Top = 30
Width = 72
Height = 13
AutoSize = False
Caption = '结束地址:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
end
object Label3: TLabel
Left = 8
Top = 61
Width = 76
Height = 13
AutoSize = False
Caption = '扫描结果:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
end
object Label4: TLabel
Left = 292
Top = 91
Width = 71
Height = 13
AutoSize = False
Caption = '端口列表:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
end
object Label5: TLabel
Left = 294
Top = 65
Width = 68
Height = 13
AutoSize = False
Caption = '开始端口:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
end
object Label6: TLabel
Left = 425
Top = 67
Width = 71
Height = 13
AutoSize = False
Caption = '结束端口:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
end
object Label7: TLabel
Left = 295
Top = 41
Width = 68
Height = 13
AutoSize = False
Caption = '端口选项:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
end
object Label34: TLabel
Left = 328
Top = 384
Width = 67
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'PING统计:'
Color = clAqua
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label35: TLabel
Left = 10
Top = 382
Width = 57
Height = 13
AutoSize = False
Caption = 'IP地址:'
end
object Label36: TLabel
Left = 437
Top = 384
Width = 71
Height = 13
Alignment = taCenter
AutoSize = False
Caption = '端口统计:'
Color = clAqua
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label37: TLabel
Left = 219
Top = 383
Width = 58
Height = 13
AutoSize = False
Caption = '当前线程:'
end
object Tree_port: TTreeView
Left = 7
Top = 75
Width = 264
Height = 302
Color = clTeal
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
HideSelection = False
Images = scan_image
Indent = 19
ParentFont = False
PopupMenu = share_tree_m
ShowRoot = False
TabOrder = 0
OnKeyDown = Tree_portKeyDown
end
object Edit1: TEdit
Left = 76
Top = 5
Width = 114
Height = 21
Color = clGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clAqua
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Text = '192.168.0.1'
end
object Edit2: TEdit
Left = 76
Top = 28
Width = 114
Height = 21
Color = clGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clAqua
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Text = '192.168.0.254'
end
object Button1: TButton
Left = 198
Top = 8
Width = 46
Height = 31
Caption = '开始'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button1Click
end
object CheckBox1: TCheckBox
Left = 294
Top = 8
Width = 141
Height = 17
Caption = '只扫描能Ping的主机'
Checked = True
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
ParentShowHint = False
ShowHint = False
State = cbChecked
TabOrder = 4
OnClick = CheckBox1Click
end
object CheckBox2: TCheckBox
Left = 426
Top = 7
Width = 89
Height = 17
Caption = '解析机名'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 5
OnClick = CheckBox2Click
end
object port_option: TComboBox
Left = 357
Top = 36
Width = 183
Height = 21
Color = clGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 6
Text = '2.扫描列表中选中的端口'
Items.Strings = (
'1.扫描列表中的全部端口'
'2.扫描列表中选中的端口'
'3.自定义(限于列表)'
'4.自定义(全部端口)')
end
object port_list: TCheckListBox
Left = 291
Top = 109
Width = 262
Height = 266
Color = clTeal
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'1->TCP Port Service Multiplexer '
'2->Management Utility '
'3->Compression Process '
'5->Remote Job Entry '
'7->Echo '
'9->Discard '
'11->Active Users '
'13->Daytime '
'17->Quote of the Day '
'18->Message Send Protocol '
'19->Character Generator '
'20->File Transfer [Default Data] '
'21->File Transfer Protocol [Control]->->ftp://%a:%p/->\r\n'
'22->SSH Remote Login Protocol '
'23->Telnet->telnet.exe->%a %p->\r\n'
'24->any private mail system '
'25->Simple Mail Transfer '
'27->NSW User System FE '
'29->MSG ICP '
'31->MSG Authentication '
'33->Display Support Protocol '
'35->any private printer server '
'37->Time '
'38->Route Access Protocol '
'39->Resource Location Protocol '
'41->Graphics '
'42->WINS Host Name Server '
'43->Who Is '
'44->MPM FLAGS Protocol '
'45->Message Processing Module [recv] '
'46->MPM [default send] '
'47->NI FTP '
'48->Digital Audit Daemon '
'49->Login Host Protocol (TACACS) '
'50->Remote Mail Checking Protocol '
'51->IMP Logical Address Maintenance '
'52->XNS Time Protocol '
'53->Domain Name Server '
'54->XNS Clearinghouse '
'55->ISI Graphics Language '
'56->XNS Authentication '
'57->any private terminal access '
'58->XNS Mail '
'59->any private file service '
'60->Unassigned '
'61->NI MAIL '
'62->ACA Services '
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -