📄 frmmain.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain
BorderStyle = 0 'None
ClientHeight = 7530
ClientLeft = -90
ClientTop = -435
ClientWidth = 10320
Icon = "Frmmain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 502
ScaleMode = 3 'Pixel
ScaleWidth = 688
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog CDialog
Left = 9720
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DialogTitle = "另存为"
FileName = "receive.txt"
Filter = "文本文件|*.txt|所有文件|*.*"
InitDir = "c:\"
End
Begin TabDlg.SSTab SSTab1
Height = 6255
Left = 120
TabIndex = 1
Top = 480
Width = 9975
_ExtentX = 17595
_ExtentY = 11033
_Version = 393216
TabOrientation = 2
Tab = 2
TabHeight = 520
TabCaption(0) = "扫描器"
TabPicture(0) = "Frmmain.frx":0CCA
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Timer2"
Tab(0).Control(1)= "ping"
Tab(0).Control(2)= "Frame2"
Tab(0).Control(3)= "scanbtn"
Tab(0).Control(4)= "Command6"
Tab(0).Control(5)= "clearbtn4"
Tab(0).Control(6)= "stopbtn"
Tab(0).Control(7)= "ProBar"
Tab(0).Control(8)= "Winsock3"
Tab(0).Control(9)= "result"
Tab(0).Control(10)= "Ping1"
Tab(0).Control(11)= "Label27"
Tab(0).ControlCount= 12
TabCaption(1) = "端口转发"
TabPicture(1) = "Frmmain.frx":0CE6
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Check3"
Tab(1).Control(1)= "clearbtn3"
Tab(1).Control(2)= "clearbtn2"
Tab(1).Control(3)= "break1"
Tab(1).Control(4)= "savebtn2"
Tab(1).Control(5)= "savebtn1"
Tab(1).Control(6)= "receivetext2"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "receivetext1"
Tab(1).Control(8)= "Winsock2(0)"
Tab(1).Control(9)= "listening1"
Tab(1).Control(10)= "localport1"
Tab(1).Control(11)= "porttext2"
Tab(1).Control(12)= "iptext1"
Tab(1).Control(13)= "Label19"
Tab(1).Control(14)= "Label18"
Tab(1).Control(15)= "Label17"
Tab(1).Control(16)= "Label16"
Tab(1).Control(17)= "Label15"
Tab(1).Control(18)= "Label14"
Tab(1).Control(19)= "Label13"
Tab(1).Control(20)= "Label12"
Tab(1).Control(21)= "Label11"
Tab(1).ControlCount= 22
TabCaption(2) = "NC"
TabPicture(2) = "Frmmain.frx":0D02
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "Label1"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Label2"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Label3"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Label5"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "Label7"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "Label8"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).Control(6)= "Label9"
Tab(2).Control(6).Enabled= 0 'False
Tab(2).Control(7)= "Label10"
Tab(2).Control(7).Enabled= 0 'False
Tab(2).Control(8)= "Label6"
Tab(2).Control(8).Enabled= 0 'False
Tab(2).Control(9)= "Label4"
Tab(2).Control(9).Enabled= 0 'False
Tab(2).Control(10)= "iptext"
Tab(2).Control(10).Enabled= 0 'False
Tab(2).Control(11)= "Winsock1"
Tab(2).Control(11).Enabled= 0 'False
Tab(2).Control(12)= "porttext"
Tab(2).Control(12).Enabled= 0 'False
Tab(2).Control(13)= "lianjie"
Tab(2).Control(13).Enabled= 0 'False
Tab(2).Control(14)= "localport"
Tab(2).Control(14).Enabled= 0 'False
Tab(2).Control(15)= "listen"
Tab(2).Control(15).Enabled= 0 'False
Tab(2).Control(16)= "break"
Tab(2).Control(16).Enabled= 0 'False
Tab(2).Control(17)= "receivetext"
Tab(2).Control(17).Enabled= 0 'False
Tab(2).Control(18)= "senttext"
Tab(2).Control(18).Enabled= 0 'False
Tab(2).Control(19)= "sendbtn1"
Tab(2).Control(19).Enabled= 0 'False
Tab(2).Control(20)= "Check1"
Tab(2).Control(20).Enabled= 0 'False
Tab(2).Control(21)= "Timer1"
Tab(2).Control(21).Enabled= 0 'False
Tab(2).Control(22)= "savebtn"
Tab(2).Control(22).Enabled= 0 'False
Tab(2).Control(23)= "clearbtn"
Tab(2).Control(23).Enabled= 0 'False
Tab(2).Control(24)= "Check2"
Tab(2).Control(24).Enabled= 0 'False
Tab(2).Control(25)= "clearbtn1"
Tab(2).Control(25).Enabled= 0 'False
Tab(2).Control(26)= "openbtn"
Tab(2).Control(26).Enabled= 0 'False
Tab(2).Control(27)= "Command2"
Tab(2).Control(27).Enabled= 0 'False
Tab(2).ControlCount= 28
Begin VB.Timer Timer2
Interval = 10
Left = -65640
Top = 960
End
Begin VB.Frame ping
Caption = "Ping"
Height = 1215
Left = -69720
TabIndex = 62
Top = 120
Width = 3855
Begin VB.CommandButton pingbtn
Caption = "ping"
Height = 780
Left = 3120
TabIndex = 67
Top = 240
Width = 615
End
Begin VB.TextBox hostip
Enabled = 0 'False
Height = 270
Left = 840
TabIndex = 66
Top = 600
Width = 2175
End
Begin VB.TextBox hostname
Height = 270
Left = 840
TabIndex = 64
Top = 240
Width = 2175
End
Begin VB.Label Label21
Caption = "IP地址:"
Height = 255
Left = 120
TabIndex = 65
Top = 600
Width = 735
End
Begin VB.Label Label20
Caption = "主机名:"
Height = 255
Left = 120
TabIndex = 63
Top = 280
Width = 735
End
End
Begin VB.Frame Frame2
Caption = "扫描"
Height = 1215
Left = -74520
TabIndex = 55
Top = 120
Width = 4695
Begin VB.TextBox timelong
Height = 270
Left = 3480
TabIndex = 68
Text = "50"
Top = 240
Width = 855
End
Begin VB.TextBox portlisttext
Height = 270
Left = 960
TabIndex = 59
Text = "1-139,443,445,1080,1433,2049,3128,3389,5000,7000-7010,8010,8080,8181"
Top = 600
Width = 3420
End
Begin VB.TextBox ipaddtext
Height = 270
Left = 840
MaxLength = 15
TabIndex = 57
Text = "127.0.0.1"
Top = 240
Width = 1455
End
Begin VB.Label Label22
Caption = "超时(ms):"
Height = 255
Index = 1
Left = 2640
TabIndex = 60
Top = 255
Width = 855
End
Begin VB.Label Label26
Caption = "端口列表:"
Height = 255
Left = 120
TabIndex = 58
Top = 600
Width = 855
End
Begin VB.Label Label23
Caption = "IP地址:"
Height = 255
Left = 120
TabIndex = 56
Top = 250
Width = 735
End
End
Begin VB.CommandButton scanbtn
Caption = "开始扫描"
Height = 375
Left = -66000
TabIndex = 54
Top = 4200
Width = 855
End
Begin VB.CommandButton Command6
Caption = "保存"
Height = 375
Left = -66000
TabIndex = 53
Top = 5640
Width = 855
End
Begin VB.CommandButton clearbtn4
Caption = "清空"
Height = 375
Left = -66000
TabIndex = 52
Top = 5160
Width = 855
End
Begin VB.CommandButton stopbtn
Caption = "停止"
Height = 375
Left = -66000
TabIndex = 51
Top = 4680
Width = 855
End
Begin VB.PictureBox ProBar
Height = 255
Left = -74520
ScaleHeight = 195
ScaleWidth = 8355
TabIndex = 69
Top = 1440
Width = 8415
End
Begin MSWinsockLib.Winsock Winsock3
Left = -65760
Top = 480
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.TextBox result
BeginProperty DataFormat
Type = 0
Format = "yyyy/M/d"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
Height = 3855
Left = -74520
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 50
Text = "Frmmain.frx":0D1E
Top = 1800
Width = 8415
End
Begin VB.PictureBox Ping1
Height = 480
Left = -65640
ScaleHeight = 420
ScaleWidth = 1140
TabIndex = 70
Top = 120
Width = 1200
End
Begin VB.CheckBox Check3
Caption = "将信息中的本地IP换成转向IP"
Height = 255
Left = -69960
TabIndex = 49
Top = 5930
Width = 2655
End
Begin VB.CommandButton clearbtn3
Caption = "清空"
Height = 255
Left = -66840
TabIndex = 47
Top = 5920
Width = 615
End
Begin VB.CommandButton clearbtn2
Caption = "清空"
Height = 255
Left = -72000
TabIndex = 46
Top = 5920
Width = 615
End
Begin VB.CommandButton break1
Caption = "断开"
Height = 375
Left = -66600
TabIndex = 45
Top = 360
Width = 855
End
Begin VB.CommandButton savebtn2
Caption = "保存"
Height = 255
Left = -66120
TabIndex = 41
Top = 5920
Width = 735
End
Begin VB.CommandButton savebtn1
Caption = "保存"
Height = 255
Left = -71280
TabIndex = 40
Top = 5920
Width = 735
End
Begin VB.TextBox receivetext2
Height = 4935
Left = -70080
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 39
TabStop = 0 'False
Top = 960
Width = 4935
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -