vbRichClient是个十分强大的库，支持VB多线程，图形，摄像头，音频，甚至3D建模物理引擎等等 这个打包例程主要是图形处理相关的

很少有的vbRichClient案例教程 包括了reports、　rpc-demos(远程直接操作active dll)、　sqlite操作、 cTCPServer cTCPClient、cThreading(vb多线程)、cXML

说明: 1此程序由ecz00程序优化而来 地址 http://download.csdn.net/download/ecz00/9403630 因此程序可以说是网上唯一的tcpclient使用的中文案例，提供了我思路，在此感谢 ；为什么用这个插件，vb自带的插件winsock 这么有用的插件 居然不是微软自带的插件， 最要命的是 直接注册ocx控件 win7 win10上可能因为序列号无法注册，那么vb下如何开发ip客户端,变得很麻烦，尝试过APi方法的，但是过于复杂，程序量太大，比较麻烦，因此用 此方案比较可行，在原版的基础上花了5天时间摸索和优化， 此版本使用方法 1 把vbRichClient5.dll放进C:\Windows\SysWOW64 (64位系统) 2 在vb6中点击 工程->引用 把上面的dll引用进来就可以额，不需要注册 3:使用sscom5.12.1 或其他tcp调试软件软件启动tcpserver 地址是127,0,0,1 5676 4:直接运行本软件即可使用。点击连接，显示成功，说明连接成功，可以相互发送数据了 服务端的程序在原版上未做修改，请自行优化 此软件改进了原版 1:无法显示连接状态和错误信息 2：只能发送不能接收 3：使用主机名的连接方式，无法直接使用,一开始 4：无法显示byte值 5：界面修改 6：连接的时候，不断开以前的连接，造成重复连接 提示 vbRichClient5的手册找遍了都找不到，估计作者都没写，更别想有中文版了，所以只能 在vb6中点击视图-》对象窗口，可显示vbRichClient5.dll 所有的类和方法 QQ175891641 2018-2-15优化

发现网上关于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

vbRichClient源码，几十个示例，本人已将所有示例翻译成中文，适合VB6爱好者参考学习。功能：多线程、函数指针调用、数组列表、高级集合类\内存数据库、子类化、公式计算、SGDI封装、各种加密和压缩算法、文件处理、网络Socket、简单下载、JSON、JPG压缩解码、物理引擎、Webkit浏览器、QLite数据库、基于Cairo的2D绘图、打印、RPC

vbRichClient精选案例 里面涉及了作图 动画 等很多高级功能 解压后必须找到RC5文件夹，进去运行vbs文件注册组件，然后各个案例才能正常运行。 功能很高级，大家可以开开眼界！看看外国人怎么玩vb的！

excel模块里演示了不少VBA的例子,方便无法注册dll的环境下使用vbrichclient5里面定义的类。方便有需要的人使用和套用参考。几个代码例子包含了： 1.剪切板操作 2.集合collection的简单使用 3.fso文件的简单操作 4.不使用驱动直接读取SQLIT3数据库写入单元格 5.替代scriptcontrol实现脚本操作 6.字典的简单演示 7.简单解析xml