📄 tools.dfm
字号:
object ToolsForm: TToolsForm
Left = 307
Top = 244
Width = 572
Height = 320
Caption = '网络工具'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 12
object PageCtrl: TPageControl
Left = 0
Top = 0
Width = 564
Height = 293
ActivePage = PingTabSheet
Align = alClient
TabOrder = 0
OnChange = PageCtrlChange
object FindIpTabSheet: TTabSheet
Caption = 'IP地址查询'
object TopPanel: TPanel
Left = 0
Top = 0
Width = 556
Height = 25
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object BtnCheckIP: TSpeedButton
Left = 491
Top = 3
Width = 57
Height = 19
Anchors = [akTop, akRight]
Caption = '查找'
OnClick = BtnCheckIPClick
end
object Label1: TLabel
Left = 8
Top = 8
Width = 84
Height = 12
Caption = '主机名(域名)：'
end
object Edit1: TEdit
Left = 88
Top = 2
Width = 394
Height = 20
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
OnKeyDown = Edit1KeyDown
end
end
object IPListView: TListView
Left = 0
Top = 25
Width = 556
Height = 222
Align = alClient
Columns = <
item
Caption = '主机名/域名'
Width = 150
end
item
Caption = 'IP地址'
Width = 150
end>
ColumnClick = False
GridLines = True
RowSelect = True
PopupMenu = PopupMenu1
TabOrder = 1
ViewStyle = vsReport
end
object Panel2: TPanel
Left = 0
Top = 247
Width = 556
Height = 19
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Radio1: TRadioButton
Left = 8
Top = 3
Width = 121
Height = 14
Caption = '主机名(域名)查IP'
Checked = True
TabOrder = 0
TabStop = True
OnClick = Radio1Click
end
object Radio2: TRadioButton
Left = 135
Top = 3
Width = 122
Height = 14
Caption = 'IP查主机名(域名)'
TabOrder = 1
OnClick = Radio2Click
end
end
end
object NbtTabSheet: TTabSheet
Caption = 'Nbtstat'
ImageIndex = 1
object Panel1: TPanel
Left = 0
Top = 0
Width = 556
Height = 26
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label2: TLabel
Left = 3
Top = 7
Width = 60
Height = 12
Caption = '起始地址：'
end
object Label3: TLabel
Left = 170
Top = 7
Width = 60
Height = 12
Caption = '终止地址：'
end
object Label4: TLabel
Left = 339
Top = 7
Width = 60
Height = 12
Caption = '设置超时：'
end
object Label5: TLabel
Left = 456
Top = 6
Width = 26
Height = 13
AutoSize = False
Caption = '毫秒'
end
object btnNbtStart: TSpeedButton
Left = 664
Top = 3
Width = 65
Height = 22
Anchors = [akTop, akRight]
Caption = '开始'
end
object btnNbt: TSpeedButton
Left = 488
Top = 3
Width = 65
Height = 20
Anchors = [akTop, akRight]
Caption = '开始'
OnClick = btnNbtClick
end
object edtNbtIP1: TEdit
Left = 61
Top = 3
Width = 101
Height = 20
TabOrder = 0
Text = '192.168.0.1'
end
object edtNbtIP2: TEdit
Left = 230
Top = 3
Width = 101
Height = 20
TabOrder = 1
Text = '192.168.0.255'
end
object spInterval: TSpinEdit
Left = 399
Top = 3
Width = 50
Height = 21
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 100
end
end
object lvNbt: TListView
Left = 0
Top = 26
Width = 556
Height = 221
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 = 1
ViewStyle = vsReport
OnDblClick = lvNbtDblClick
end
object pnlStatus: TPanel
Left = 0
Top = 247
Width = 556
Height = 19
Align = alBottom
Alignment = taLeftJustify
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object cbIP: TCheckBox
Left = 417
Top = 3
Width = 129
Height = 14
Anchors = [akTop, akRight]
Caption = '双击时按IP地址搜索'
TabOrder = 0
end
object cbAddToTree: TCheckBox
Left = 280
Top = 3
Width = 129
Height = 14
Anchors = [akTop, akRight]
Caption = '自动加入搜索目录树'
TabOrder = 1
end
end
end
object TCPScanTabSheet: TTabSheet
Caption = 'TCP端口扫描'
ImageIndex = 2
object Panel3: TPanel
Left = 0
Top = 0
Width = 556
Height = 51
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label6: TLabel
Left = 4
Top = 7
Width = 60
Height = 12
Caption = '起始地址：'
end
object Label7: TLabel
Left = 175
Top = 7
Width = 60
Height = 12
Caption = '终止地址：'
end
object Label8: TLabel
Left = 342
Top = 7
Width = 60
Height = 12
Caption = '设置超时：'
end
object Label9: TLabel
Left = 453
Top = 6
Width = 26
Height = 13
AutoSize = False
Caption = '毫秒'
end
object SpeedButton1: TSpeedButton
Left = 664
Top = 3
Width = 65
Height = 22
Anchors = [akTop, akRight]
Caption = '开始'
end
object btnScanPort: TSpeedButton
Left = 504
Top = 28
Width = 48
Height = 20
Anchors = [akTop, akRight]
Caption = '开始'
OnClick = btnScanPortClick
end
object Label10: TLabel
Left = 4
Top = 32
Width = 60
Height = 12
Caption = '端口范围：'
end
object Label21: TLabel
Left = 149
Top = 32
Width = 12
Height = 12
Caption = '到'
end
object Label22: TLabel
Left = 65
Top = 32
Width = 12
Height = 12
Caption = '从'
end
object Bevel1: TBevel
Left = 1
Top = 25
Width = 553
Height = 6
Anchors = [akLeft, akTop, akRight]
Shape = bsTopLine
end
object edtScanIP1: TEdit
Left = 65
Top = 3
Width = 101
Height = 20
TabOrder = 0
Text = '192.168.0.1'
end
object edtScanIP2: TEdit
Left = 232
Top = 3
Width = 101
Height = 20
TabOrder = 1
Text = '192.168.0.255'
end
object spTimeOut: TSpinEdit
Left = 402
Top = 3
Width = 44
Height = 21
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 100
end
object cbScanPort1: TComboBox
Left = 88
Top = 28
Width = 57
Height = 20
ItemHeight = 12
TabOrder = 3
Text = '80'
OnChange = cbScanPort1Change
Items.Strings = (
'80'
'21'
'139'
'23')
end
object cbScanPort2: TComboBox
Left = 173
Top = 28
Width = 57
Height = 20
ItemHeight = 12
TabOrder = 4
Text = '80'
Items.Strings = (
'80'
'21'
'139'
'23')
end
end
object lvPortScan: TListView
Left = 0
Top = 51
Width = 556
Height = 196
Align = alClient
Columns = <
item
Caption = 'IP地址'
Width = 120
end
item
Caption = '端口'
Width = 110
end>
ColumnClick = False
GridLines = True
RowSelect = True
ParentShowHint = False
PopupMenu = PopupMenu1
ShowHint = False
TabOrder = 1
ViewStyle = vsReport
OnDblClick = lvPortScanDblClick
end
object Panel4: TPanel
Left = 0
Top = 247
Width = 556
Height = 19
Align = alBottom
Alignment = taLeftJustify
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Label11: TLabel
Left = 7
Top = 4
Width = 84
Height = 12
Caption = '正在扫描的地址'
end
object cbAddToTree2: TCheckBox
Left = 416
Top = 3
Width = 129
Height = 14
Anchors = [akTop, akRight]
Caption = '自动加入搜索目录树'
TabOrder = 0
end
end
end
object PingTabSheet: TTabSheet
Caption = 'Ping'
ImageIndex = 3
object Panel5: TPanel
Left = 0
Top = 0
Width = 556
Height = 26
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label12: TLabel
Left = 3
Top = 7
Width = 60
Height = 12
Caption = '起始地址：'
end
object Label13: TLabel
Left = 170
Top = 7
Width = 60
Height = 12
Caption = '终止地址：'
end
object Label14: TLabel
Left = 339
Top = 7
Width = 60
Height = 12
Caption = '设置超时：'
end
object Label15: TLabel
Left = 456
Top = 6
Width = 26
Height = 13
AutoSize = False
Caption = '毫秒'
end
object SpeedButton2: TSpeedButton
Left = 664
Top = 3
Width = 65
Height = 22
Anchors = [akTop, akRight]
Caption = '开始'
end
object btnPing: TSpeedButton
Left = 488
Top = 3
Width = 65
Height = 20
Anchors = [akTop, akRight]
Caption = '开始'
OnClick = btnPingClick
end
object edtPing1: TEdit
Left = 61
Top = 3
Width = 101
Height = 20
TabOrder = 0
Text = '192.168.0.1'
end
object edtPing2: TEdit
Left = 230
Top = 3
Width = 101
Height = 20
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -