📄 frmmain.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmMain
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Network Utility"
ClientHeight = 4380
ClientLeft = 45
ClientTop = 615
ClientWidth = 7890
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4380
ScaleWidth = 7890
StartUpPosition = 2 'CenterScreen
Begin MSWinsockLib.Winsock tcpPing
Left = 6810
Top = 4005
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Timer tmrPing
Enabled = 0 'False
Interval = 100
Left = 6405
Top = 4050
End
Begin VB.Timer tmrCurrent
Interval = 1000
Left = 7230
Top = 4050
End
Begin TabDlg.SSTab MainTab
Height = 4065
Left = 45
TabIndex = 22
Top = 0
Width = 7875
_ExtentX = 13891
_ExtentY = 7170
_Version = 393216
Tabs = 4
Tab = 1
TabsPerRow = 4
TabHeight = 520
BackColor = 14737632
TabCaption(0) = "IP"
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "cmdStopPing"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "cmdPrint"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "cmdClear"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "TxtRemotePort"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "txtIp_Scan(3)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "txtIp_Scan(2)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "txtIp_Scan(1)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "txtIp_Scan(0)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "txtPacketSize"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "txtEcho"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "txtPortAddress"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "txtLag"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "txtStatus"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "txtUserName"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "txtDataSend"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "txtIp_IP(3)"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "txtIp_IP(2)"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "txtIp_IP(1)"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "cmdPing"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "txtIp_IP(0)"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "rtxtIP"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "Label9"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "lblRemotePort"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "lblDataSend"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "lblUserName"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "lblPing"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "lblLag"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "lblPort"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).Control(28)= "lblSize"
Tab(0).Control(28).Enabled= 0 'False
Tab(0).Control(29)= "lblServerStatus"
Tab(0).Control(29).Enabled= 0 'False
Tab(0).Control(30)= "lblEcho"
Tab(0).Control(30).Enabled= 0 'False
Tab(0).ControlCount= 31
TabCaption(1) = "Port"
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "lblTo"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label3"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label4"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label5"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "cmdClearList"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "cmdScan"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "cmdStop"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "lstOpenPorts"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "txtBegPort"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "txtEndPort"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "txtIP_Port(1)"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).Control(11)= "txtIP_Port(0)"
Tab(1).Control(11).Enabled= 0 'False
Tab(1).Control(12)= "txtIP_Port(2)"
Tab(1).Control(12).Enabled= 0 'False
Tab(1).Control(13)= "txtIP_Port(3)"
Tab(1).Control(13).Enabled= 0 'False
Tab(1).Control(14)= "Frame1"
Tab(1).Control(14).Enabled= 0 'False
Tab(1).ControlCount= 15
TabCaption(2) = "Sys Info"
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame2"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).ControlCount= 1
TabCaption(3) = "Whois"
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "txtDomainName"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "CmdWhois"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).Control(2)= "TxtWhois"
Tab(3).Control(2).Enabled= 0 'False
Tab(3).Control(3)= "txtInfoSource"
Tab(3).Control(3).Enabled= 0 'False
Tab(3).Control(4)= "Label14"
Tab(3).Control(4).Enabled= 0 'False
Tab(3).Control(5)= "Label13"
Tab(3).Control(5).Enabled= 0 'False
Tab(3).Control(6)= "Label1"
Tab(3).Control(6).Enabled= 0 'False
Tab(3).ControlCount= 7
Begin VB.CommandButton cmdStopPing
BackColor = &H00C0C0C0&
Caption = "Stop"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = -69885
Style = 1 'Graphical
TabIndex = 68
Top = 3450
Width = 930
End
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Port Listing"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 3510
Left = 4155
TabIndex = 65
Top = 480
Width = 3675
Begin VB.ListBox lstPorts
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 3000
Left = 120
TabIndex = 66
Top = 360
Width = 3525
End
End
Begin VB.TextBox txtIP_Port
BackColor = &H00FFFFFF&
Height = 360
Index = 3
Left = 3540
MaxLength = 3
TabIndex = 13
Top = 585
Width = 540
End
Begin VB.TextBox txtIP_Port
BackColor = &H00FFFFFF&
Height = 360
Index = 2
Left = 2985
MaxLength = 3
TabIndex = 12
Top = 585
Width = 540
End
Begin VB.TextBox txtIP_Port
BackColor = &H00FFFFFF&
Height = 360
Index = 0
Left = 1875
MaxLength = 3
TabIndex = 10
Top = 585
Width = 540
End
Begin VB.TextBox txtIP_Port
BackColor = &H00FFFFFF&
Height = 360
Index = 1
Left = 2430
MaxLength = 3
TabIndex = 11
Top = 585
Width = 540
End
Begin VB.TextBox txtEndPort
BackColor = &H00FFFFFF&
Height = 360
Left = 3180
TabIndex = 15
Text = "500"
Top = 975
Width = 900
End
Begin VB.TextBox txtBegPort
BackColor = &H00FFFFFF&
Height = 360
Left = 1875
TabIndex = 14
Text = "1"
Top = 975
Width = 900
End
Begin VB.ListBox lstOpenPorts
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1950
Left = 150
TabIndex = 47
Top = 1620
Width = 3930
End
Begin VB.CommandButton cmdStop
BackColor = &H00C0C0C0&
Caption = "Stop"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2190
Style = 1 'Graphical
TabIndex = 17
Top = 3630
Width = 930
End
Begin VB.CommandButton cmdScan
BackColor = &H00C0C0C0&
Caption = "Scan"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1230
Style = 1 'Graphical
TabIndex = 16
Top = 3630
Width = 930
End
Begin VB.CommandButton cmdClearList
BackColor = &H00C0C0C0&
Caption = "Clear"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 3150
Style = 1 'Graphical
TabIndex = 18
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -