发现网上关于vbrichclient的教程比较少，但这个实在是好东西，实用性，稳定性都比VB自带的winsock好的多，多客户端不用winsock控件数组。　也不用在各窗体上放winsock，直接在模块中就能实现收发 下面直接上代码，窗体和文本钮、按钮大家自行拖放。要用到VB自带隐藏函数varptr()取内存指针(VbMsdn中没有这个函数，实际上很简单^^)。 VbRichClient5.0.38中包含sqlite3.9支持 上面共享中也包含VbRichClient5.0.38支持库 VbRichClient代替winsock 主要使用 cTCPServer cTCPClient cUDP '--------------------------------------------------------------------- '服务器端，代码最简化，要实现多客户端只要用数组存hsocket就可以 Option Explicit Dim WithEvents sv As cTCPServer Dim WithEvents udp1 As cUDP Dim cHsocket& Private Sub Form_Load() Set sv = New cTCPServer sv.Listen sv.GetHost("127.0.0.1"), 35912 Debug.Print sv.GetHost("") Set udp1 = New cUDP udp1.Bind "127.0.0.1", 5616 End Sub Private Sub sv_DataArrival(ByVal hSocket As Long, ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) sv.GetData hSocket, VarPtr(d(0)), BytesTotal '★★关键代码 s = d Text2.Text = Text2.Text & s & vbCrLf Debug.Print "收到：" & BytesTotal End Sub Private Sub sv_TCPAccepted(ByVal hSocket As Long) cHsocket = hSocket Text1.Text = Text1.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub sv_TCPDisConnect(ByVal hSocket As Long) Text3.Text = Text3.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub udp1_NewDatagram(ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) udp1.GetData VarPtr(d(0)), BytesTotal s = d Text2.Text = Text2.Text & s & vbCrLf End Sub '------------------------------------------------------- '客户端 Option Explicit Dim WithEvents cl As cTCPClient Dim WithEvents udp1 As cUDP Dim cid& Private Sub Command1_Click() cid = cl.Connect("QgB1", 35912) End Sub Private Sub Command2_Click() cl.Disconnect cid End Sub Private Sub Command3_Click() Dim b() As Byte b = Text1.Text cl.SendData cid, VarPtr(b(0)), UBound(b) + 1 End Sub Private Sub Command4_Click() Dim d() As Byte, s$ s = "yessss" d = s udp1.RemoteIP = "127.0.0.1" udp1.RemotePort = 5616 u

局域网内多人聊天室，，VB源码，winsock应用实例

该程序利用winsock实现PC与PLC进行以太网通信，通信稳定，传输速度快，传输效率高，传输数据量大

此资源传上来供大家学习使用，请勿用于经济目的。

用WINSOCK实现聊天室的VC++程序设计code.zip

该是程序是由VC6.0写的winsock聊天室，是WSAAsyncSelect基于Windows消息机制异步I/O模型。可以多人聊天，也可以和私人聊天，希望对需要winsockWSAAsyncSelect的人有用。

winsock设置注册表文件，此文件中包含两个文件，分别为：sock2.reg、sock.reg

注册VB6.REG，注册之后，运行VB6，打开工程——部件——选择Microsoft winsock control 6.0 （SP5），然后就可以调用winsock编写，里面获取配置config.ini是以前写的其他程序，有些没用信息，自行修改即可，可以学习用。

针对误删注册表winsock和winsock2导致youIP地址可以ping外网却无法打开网页 wsock初始化失败等问题的解决方案支持 WIN10 WIN8.1 WIN XP 详细参考 压缩包使用说明。（网上有重装TCP/IP4 6协议的方法也可以解决该问题）。

winsock 注册表 备份 win10