📄 form1.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmMain
Caption = "TCPIP的客户端"
ClientHeight = 8070
ClientLeft = 165
ClientTop = 855
ClientWidth = 10320
LinkTopic = "Form1"
ScaleHeight = 8070
ScaleWidth = 10320
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Interval = 500
Left = 240
Top = 4320
End
Begin VB.TextBox txtSend
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 630
Left = 720
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 9
Text = "Form1.frx":0000
Top = 3555
Width = 2130
End
Begin VB.CommandButton Command3
Caption = "联机"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 3960
TabIndex = 8
Top = 480
Width = 1185
End
Begin VB.TextBox txtReceive
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 885
Left = 765
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 6
Text = "Form1.frx":0006
Top = 1575
Width = 1350
End
Begin VB.TextBox txtPort
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1485
TabIndex = 5
Text = "1024"
Top = 840
Width = 960
End
Begin VB.TextBox txtIP
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1530
TabIndex = 3
Text = "10.30.85.21"
Top = 315
Width = 2310
End
Begin MSWinsockLib.Winsock Winsock1
Left = 2880
Top = 720
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.CommandButton cmdSend
Caption = "输出"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 3720
TabIndex = 1
Top = 3720
Width = 1185
End
Begin VB.CommandButton Command2
Caption = "结束系统"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 3960
TabIndex = 0
Top = 1440
Width = 1185
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "传输信息区"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Index = 0
Left = 765
TabIndex = 10
Top = 3195
Width = 1200
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "信息区"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 240
Index = 4
Left = 765
TabIndex = 7
Top = 1260
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "传输端口"
BeginProperty Font
Name = "MS Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Index = 3
Left = 480
TabIndex = 4
Top = 840
Width = 960
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "传输地址"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Index = 2
Left = 450
TabIndex = 2
Top = 360
Width = 960
End
Begin VB.Menu sys_menu
Caption = "系统(&S)"
Begin VB.Menu login_menu
Caption = "登录(&L)"
End
Begin VB.Menu out_menu
Caption = "退出(&O)"
End
End
Begin VB.Menu config_menu
Caption = "设置(&C)"
Begin VB.Menu mnuSetPassWord
Caption = "设置密码(&K)"
End
Begin VB.Menu menuckset
Caption = "设置参数(&C)"
End
End
Begin VB.Menu tool_menu
Caption = "工具(&T)"
Begin VB.Menu clock_menu
Caption = "时钟(&C)"
End
Begin VB.Menu calendar_menu
Caption = "日历(&R)"
End
Begin VB.Menu a
Caption = "-"
End
Begin VB.Menu ziliao_menu
Caption = "资料(&Z)"
End
Begin VB.Menu futu_menu
Caption = "附图(&F)"
End
End
Begin VB.Menu menuhelp
Caption = "帮助(&H)"
Begin VB.Menu about_menu
Caption = "关于(&A)..."
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'简单地执行传输命令
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cmdSend_Click()
If Winsock1.State <> sckConnected Then Exit Sub
'Dim sendData As String
'sendData = BinToHex(txtSend.Text)
'Winsock1.sendData "&H" & sendData '& vbCr ''（chr(&ff))，
Dim a(0 To 0) As Byte
a(0) = &HA6
'a(1) = &HA1
Winsock1.SendData a
'Winsock1.SendData txtSend.Text & vbCr
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'关闭联机并结束程序
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command2_Click()
Winsock1.Close '关闭联机
End '结束程序
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'设置连接参数
'执行连接的动作
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command3_Click()
Dim i%
'检查状态，若不是关闭，则执行关闭
If Winsock1.State <> 0 Then Winsock1.Close
'设置远程的地址及通信端口号码
Winsock1.RemoteHost = txtIP.Text
Winsock1.RemotePort = txtPort.Text
Winsock1.Connect '执行联机
TimeDelay 100
'下面循环等待联机成功
Do
DoEvents
Loop Until Winsock1.State = sckConnected
Me.Caption = "已联机"
cmdSend.Enabled = True
End Sub
'Private Sub Timer1_Timer()
' If Winsock1.State = sckConnected Then
' ' StatusBar1.SimpleText = " 网络连接完毕" '状态栏显示
'Else
' Winsock1.Close
' StatusBar1.SimpleText = " 正在进行网络连接..."
'Me.Caption = "正在进行网络连接..."
'设置远程的地址及通信端口号码
'Winsock1.RemoteHost = txtIP.Text
'Winsock1.RemotePort = txtPort.Text
'Winsock1.Connect '执行联机
'Me.Caption = "正在进行网络连接2..."
'TimeDelay 100
'下面循环等待联机成功
'Do
'DoEvents
'Loop Until Winsock1.State = sckConnected
'StatusBar1.SimpleText = " 网络连接完毕"
'Me.Caption = "网络连接完毕"
' End If
'End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'当联机一端中止联机时，便会引发以下的事件。
'我们将联机关闭，并作适当处理
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Private Sub Winsock1_Close()
' Dim i%
'txtReceive.Text = txtReceive.Text & " 对方要求中断。" & vbCr
'Winsock1.Close '中断联机
'cmdSend.Enabled = False
'End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'控件收到对方送来的数据时，会引发以下的事件。
'将数据接收到后，显示在文本框中
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData '接收数据
ResponseData = strData
txtReceive.Text = txtReceive.Text & ResponseData '显示数据
txtReceive.SelLength = Len(txtReceive.Text)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -