?? scanmain.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form MainFrm
BorderStyle = 1 'Fixed Single
Caption = "VB端口掃描工具程序制作：紅色銀狐"
ClientHeight = 5685
ClientLeft = 45
ClientTop = 330
ClientWidth = 4740
Icon = "ScanMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5685
ScaleWidth = 4740
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame4
Caption = "掃描詳情"
Height = 1335
Left = 0
TabIndex = 19
Top = 4320
Width = 4750
Begin VB.CommandButton cmdScan
Caption = "開始掃描"
Height = 375
Left = 120
TabIndex = 22
Top = 840
Width = 4575
End
Begin MSComctlLib.ProgressBar Bar1
Height = 270
Left = 960
TabIndex = 20
Top = 420
Width = 3735
_ExtentX = 6588
_ExtentY = 476
_Version = 393216
BorderStyle = 1
Appearance = 0
Scrolling = 1
End
Begin VB.Label Label11
Caption = "完成進度"
Height = 375
Left = 120
TabIndex = 21
Top = 480
Width = 855
End
End
Begin VB.Frame Frame3
Caption = "速度選項"
Height = 1215
Left = 0
TabIndex = 12
Top = 3000
Width = 4750
Begin MSComctlLib.Slider Slider2
Height = 375
Left = 840
TabIndex = 13
Top = 720
Width = 3840
_ExtentX = 6773
_ExtentY = 661
_Version = 393216
LargeChange = 100
Min = 1
Max = 10000
SelStart = 3000
TickStyle = 3
Value = 3000
End
Begin MSComctlLib.Slider Slider1
Height = 375
Left = 840
TabIndex = 14
Top = 240
Width = 3840
_ExtentX = 6773
_ExtentY = 661
_Version = 393216
LargeChange = 10
Min = 1
Max = 500
SelStart = 1
TickStyle = 3
Value = 1
End
Begin VB.Label Label5
Caption = "線程"
Height = 375
Left = 240
TabIndex = 18
Top = 360
Width = 495
End
Begin VB.Label Label6
Caption = "延時"
Height = 375
Left = 240
TabIndex = 17
Top = 795
Width = 615
End
Begin VB.Label lblThread
Caption = "200"
Height = 255
Left = 7080
TabIndex = 16
Top = 320
Width = 735
End
Begin VB.Label lblTimeOut
Caption = "3000"
Height = 255
Left = 7080
TabIndex = 15
Top = 1040
Width = 735
End
End
Begin VB.Frame Frame2
Caption = "端口列表"
Height = 1935
Left = 0
TabIndex = 3
Top = 960
Width = 4750
Begin VB.CommandButton cmdClear
Caption = "全部清除"
Height = 375
Left = 3000
TabIndex = 23
Top = 840
Width = 1695
End
Begin VB.TextBox TxtsNumber
Appearance = 0 'Flat
Height = 375
Left = 2160
TabIndex = 9
Text = "1"
Top = 1440
Width = 615
End
Begin VB.TextBox TxtbNumber
Appearance = 0 'Flat
Height = 375
Left = 3720
TabIndex = 8
Text = "65535"
Top = 1440
Width = 615
End
Begin VB.CommandButton cmdAddPorts
Caption = "添加端口范圍"
Height = 375
Left = 1440
TabIndex = 7
Top = 840
Width = 1575
End
Begin VB.TextBox TxtPort
Appearance = 0 'Flat
Height = 375
Left = 2880
TabIndex = 6
Top = 240
Width = 1815
End
Begin VB.CommandButton cmdAddPort
Caption = "添加指定端口"
Height = 375
Left = 1440
TabIndex = 5
Top = 240
Width = 1335
End
Begin VB.ListBox LstPorts
Appearance = 0 'Flat
Height = 1650
ItemData = "ScanMain.frx":030A
Left = 120
List = "ScanMain.frx":030C
TabIndex = 4
Top = 220
Width = 1215
End
Begin VB.Label Label3
Caption = "開始數"
Height = 255
Left = 1440
TabIndex = 11
Top = 1560
Width = 615
End
Begin VB.Label Label4
Caption = "結束數"
Height = 255
Left = 3000
TabIndex = 10
Top = 1560
Width = 615
End
End
Begin VB.Frame Frame1
Caption = "IP地址范圍"
Height = 855
Left = 0
TabIndex = 0
Top = 0
Width = 4750
Begin VB.Timer Timer2
Interval = 50
Left = 4080
Top = 240
End
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -