📄 frmmain.frm
字号:
Begin VB.TextBox receivetext1
Height = 4935
Left = -74520
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 37
Top = 960
Width = 4455
End
Begin MSWinsockLib.Winsock Winsock2
Index = 0
Left = -65520
Top = 5760
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.CommandButton listening1
Caption = "开始监听"
Height = 375
Left = -67800
TabIndex = 35
Top = 360
Width = 1095
End
Begin VB.TextBox localport1
Height = 270
Left = -69480
TabIndex = 34
Text = "1110"
Top = 360
Width = 615
End
Begin VB.TextBox porttext2
Height = 270
Left = -71400
TabIndex = 32
Text = "1111"
Top = 360
Width = 615
End
Begin VB.TextBox iptext1
Height = 270
Left = -73800
TabIndex = 30
Text = "127.0.0.1"
Top = 360
Width = 1455
End
Begin VB.CommandButton Command2
Caption = "分隔符"
Height = 255
Left = 2880
TabIndex = 28
Top = 5880
Width = 855
End
Begin VB.CommandButton openbtn
Caption = "打开"
Height = 300
Left = 4680
TabIndex = 26
Top = 5880
Width = 855
End
Begin VB.CommandButton clearbtn1
Caption = "清空"
Height = 255
Left = 3840
TabIndex = 25
Top = 5880
Width = 735
End
Begin VB.CheckBox Check2
Caption = "直接保存到文件"
Height = 255
Left = 5760
TabIndex = 24
Top = 5880
Width = 1575
End
Begin VB.CommandButton clearbtn
Caption = "清空"
Height = 255
Left = 8040
TabIndex = 23
Top = 5880
Width = 855
End
Begin VB.CommandButton savebtn
Caption = "保存"
Height = 300
Left = 9000
TabIndex = 22
Top = 5880
Width = 855
End
Begin VB.Timer Timer1
Interval = 200
Left = 9600
Top = 0
End
Begin VB.CheckBox Check1
Caption = "将消息绑定到端口"
Height = 300
Left = 2760
TabIndex = 16
Top = 780
Value = 1 'Checked
Width = 1900
End
Begin VB.CommandButton sendbtn1
Caption = "发送"
Height = 255
Left = 4680
TabIndex = 15
Top = 800
Width = 615
End
Begin VB.TextBox senttext
ForeColor = &H80000007&
Height = 4695
Left = 480
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 13
Top = 1080
Width = 4575
End
Begin VB.TextBox receivetext
Height = 4695
Left = 5040
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 12
TabStop = 0 'False
Top = 1080
Width = 4815
End
Begin VB.CommandButton break
Caption = "断开连接"
Height = 375
Left = 8640
TabIndex = 11
Top = 360
Width = 1095
End
Begin VB.CommandButton listen
Caption = "侦听"
Height = 375
Left = 7680
TabIndex = 10
Top = 360
Width = 855
End
Begin VB.TextBox localport
Height = 375
Left = 5400
MaxLength = 5
TabIndex = 8
Text = "1110"
Top = 360
Width = 735
End
Begin VB.CommandButton lianjie
Caption = "连接"
Height = 375
Left = 6600
TabIndex = 7
Top = 360
Width = 975
End
Begin VB.TextBox porttext
Height = 375
Left = 3600
MaxLength = 5
TabIndex = 5
Text = "1111"
Top = 360
Width = 735
End
Begin MSWinsockLib.Winsock Winsock1
Left = 9600
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.TextBox iptext
Height = 375
Left = 1440
MaxLength = 15
TabIndex = 3
Text = "127.0.0.1"
Top = 360
Width = 1575
End
Begin VB.Label Label27
Caption = "状态:"
Height = 255
Left = -74520
TabIndex = 61
Top = 5760
Width = 8415
End
Begin VB.Label Label19
Caption = "监听状态:断开"
Height = 255
Left = -71640
TabIndex = 48
Top = 105
Width = 2895
End
Begin VB.Label Label18
Caption = "消息传输状态：无"
Height = 255
Left = -74520
TabIndex = 44
Top = 5930
Width = 2895
End
Begin VB.Label Label17
Caption = "客户IP：无"
Height = 255
Left = -68520
TabIndex = 43
Top = 105
Width = 2655
End
Begin VB.Label Label16
Caption = "转向状态:断开"
Height = 255
Left = -74640
TabIndex = 42
Top = 105
Width = 2655
End
Begin VB.Label Label15
Caption = "从本地端口接收的信息："
Height = 255
Left = -70080
TabIndex = 38
Top = 720
Width = 2055
End
Begin VB.Label Label14
Caption = "从转向监听端口接收的信息:"
Height = 255
Left = -74520
TabIndex = 36
Top = 720
Width = 2295
End
Begin VB.Label Label13
Caption = "本地监听端口:"
Height = 255
Left = -70680
TabIndex = 33
Top = 360
Width = 1215
End
Begin VB.Label Label12
Caption = "转向端口:"
Height = 255
Left = -72240
TabIndex = 31
Top = 360
Width = 855
End
Begin VB.Label Label11
Caption = "转向IP:"
Height = 255
Left = -74505
TabIndex = 29
Top = 360
Width = 735
End
Begin VB.Label Label4
Caption = $"Frmmain.frx":0D2B
Height = 255
Left = 5640
TabIndex = 27
Top = 840
Width = 1695
End
Begin VB.Label Label6
Caption = "消息传输状态：无"
Height = 255
Left = 360
TabIndex = 21
Top = 5880
Width = 2055
End
Begin VB.Label Label10
Caption = "对方IP: 无"
Height = 255
Left = 6360
TabIndex = 20
Top = 120
Width = 2655
End
Begin VB.Label Label9
Caption = "本地IP:"
Height = 255
Left = 3600
TabIndex = 19
Top = 120
Width = 2295
End
Begin VB.Label Label8
Caption = "断开"
Height = 255
Left = 1320
TabIndex = 18
Top = 120
Width = 2415
End
Begin VB.Label Label7
Caption = "端口状态:"
Height = 255
Left = 360
TabIndex = 17
Top = 120
Width = 855
End
Begin VB.Label Label5
Caption = "请输入你要发送的信息："
Height = 375
Left = 480
TabIndex = 14
Top = 840
Width = 3015
End
Begin VB.Label Label3
Caption = "本地端口："
Height = 255
Left = 4440
TabIndex = 9
Top = 465
Width = 975
End
Begin VB.Label Label2
Caption = "端口:"
Height = 255
Left = 3120
TabIndex = 6
Top = 465
Width = 495
End
Begin VB.Label Label1
Caption = "对方IP:"
Height = 255
Left = 720
TabIndex = 4
Top = 460
Width = 735
End
End
Begin VB.CommandButton Command1
Caption = "关闭"
Height = 375
Left = 8640
TabIndex = 2
Top = 6840
Width = 1335
End
Begin VB.Line Line4
Visible = 0 'False
X1 = 24
X2 = 24
Y1 = 32
Y2 = 488
End
Begin VB.Line Line3
Visible = 0 'False
X1 = 664
X2 = 0
Y1 = 480
Y2 = 480
End
Begin VB.Line Line2
Visible = 0 'False
X1 = 664
X2 = 664
Y1 = 32
Y2 = 504
End
Begin VB.Line Line1
Visible = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -