VB6网络通信软件开发，上位机开发，TCP网络通信，读写数据并处理，完整源码下载
完整源码XZ网口四进四出主动上传版_VB源代码.rar
下载链接：http://xzios.cn:86/WJGL/DownLoadDetial?Id=20
在自动化、物联网以及工业控制行业中，网络通信技术非常重要，上位机开发是一项重要的技能。本文主要介绍使用VB6进行网络上位机开发客户端程序。
1.在VB6项目中，引入winsock控件，并添加到项目界面
2.连接服务端，需要指定目标IP地址和端口号。
Me.Winsock1.RemoteHost = TextIP.Text
Me.Winsock1.RemotePort = Format(TextPort.Text)
Me.Winsock1.Connect
3.用winsock控件的Winsock1.SendData 方法进行数据发送，
例
If Me.Winsock1.State = 7 Then
Winsock1.SendData "123"
Else
MsgBox "请连接模块."
End If
4.数据接收，当数据到达时，会触发Winsock1_DataArrival事件
例
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim bytInput() As Byte
Dim intInputLen As Integer
intInputLen = Winsock1.BytesReceived
ReDim bytInput(intInputLen)
Winsock1.GetData bytInput()
'处理收到的数据
End Sub
其中 Winsock1.BytesReceived，读取数据的长度
Winsock1.GetData读取数据
在处理完数据后，通常需要将其展示在上位机界面上。
完整源码XZ网口四进四出主动上传版_VB源代码.rar
下载链接：http://xzios.cn:86/WJGL/DownLoadDetial?Id=20
该代码实现了通过TCP发送和接收16进制数据，可以用于学习用VB开发网络程序。
————————————————
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
原文链接：https://blog.csdn.net/luckyext/article/details/146018561
