EXCEL VBA 调用vbRichClient5 实现TCP服务端与客户端双向通信

最新推荐文章于 2024-05-31 09:23:12 发布
最新推荐文章于 2024-05-31 09:23:12 发布
阅读量3.5k 收藏 10
点赞数 1
文章标签： VB vbRichClient5 TCP 服务端 客户端
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_24968317/article/details/98787212
版权
本文介绍了如何使用Excel VBA调用vbRichClient5库，实现TCP服务端与客户端的双向通信。内容包括客户端设置、库文件的部署、dll注册以及服务端和客户端的连接操作。提供代码下载链接。
摘要由CSDN通过智能技术生成

这里写自定义目录标题

EXCEL VBA 调用vbRichClient5 实现TCP服务端与客户端双向通信

客户端文件打开，启用宏：

这是客户端

这是客户端
这是服务端

说明：

1、复制 vbRichClient5.dll 及vb_cairo_sqlite.dll到系统文件夹
2、regsvr32 注册 vbRichClient5.dll
3、打开tcpServer，打开tcpClient连接（注意，服务端和客户端不能同一台主机）

代码下载链接：
https://download.csdn.net/download/qq_24968317/11495383

qq_24968317
关注
VB TCP通信示例（服务端＋客户端）
02-14
本文将深入探讨如何使用Visual Basic (VB) 开发TCP通信的示例，涵盖服务端和客户端的实现。 首先，TCP是一种基于连接的协议，它在数据传输前先建立连接，确保数据能够按照顺序、无丢失地传递。VB中的Winsock控件是...
EXCEL_VBA聊天程序
03-04
excel2003vba写的一个小型聊天程序，主要应用了winsock控件，需要用到mswinsck.ocx，并且卸载KB960715补丁
vbRichClient5_Tcp_ServerAndClient.rar
08-07
vbRichClient5_Tcp_ServerAndClient，EXCEL VBA 调用vbRichClient5实现服务端与客户端 双向通信
超牛的VB库 vbRichClient5 最新版
01-18
最新的5.00.10 世上竟然还有如此牛人为VB开发了如此牛的扩展库！ 功能：多线程、函数指针调用、数组列表、高级集合类\内存数据库、子类化、公式计算、SGDI封装、各种加密和压缩算法、文件处理、网络Socket、简单下载、JSON、JPG压缩解码、物理引擎、Webkit浏览器、QLite数据库、基于Cairo的2D绘图、打印、RPC
用VB5 Winsock控件创建TCP/IP客户机 服务器程序
zxlkxy的专栏
08-18 972
随着Windows 95中文版和Windows NT Server 4.0中文版的流行， Microsoft公司推出了相应平台上的开发软件: Visual Basic 5.0 中文企业 版。它为Windows环境下的网络开发提供了强大的工具，Winsock控件就是其中之一。 　　Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户，使用该
使用 VBRichClient 库
bangrulu3140的博客
12-24 791
使用 VBRichClient 库====================　　世上竟然还有如此牛人(Olaf Schmidt)为VB开发了如此牛的扩展库！它还有一个伟大的目标：摆脱 Microsoft COM 的依赖，更容易实现平台移植性（基于新的经典VB编译器），现在的VBRichClient正是为达到该目标的一个去耦框架。 它能做什么？简单说能提供以下VB没有或很难实现的功能：...
使用vbRichClient代替winsock，实现局网多客户端非gui数据收发
01-14
发现网上关于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_源码已翻译成中文_CairoTutorial
06-02
vbRichClient源码，几十个示例，本人已将所有示例翻译成中文，适合VB6爱好者参考学习。功能：多线程、函数指针调用、数组列表、高级集合类\内存数据库、子类化、公式计算、SGDI封装、各种加密和压缩算法、文件处理、...
免注册方式使用vbrichclient5
07-18
excel模块里演示了不少VBA的例子,方便无法注册dll的环境下使用vbrichclient5里面定义的类。方便有需要的人使用和套用参考。几个代码例子包含了： 1.剪切板操作 2.集合collection的简单使用 3.fso文件的简单操作 4.不使用驱动直接读取SQLIT3数据库写入单元格 5.替代scriptcontrol实现脚本操作 6.字典的简单演示 7.简单解析xml
vbRichClient控件cTCPClient使用例程 (让vb的winsock.ocx滚蛋)
02-15
说明: 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例程,包括多线程，sqlite，cRPCconnection
01-20
很少有的vbRichClient案例教程 包括了reports、　rpc-demos(远程直接操作active dll)、　sqlite操作、 cTCPServer cTCPClient、cThreading(vb多线程)、cXML
VB6用vbRichClient操作sqlite，支持解密
01-12
vbrichclient的中文例程比较少，网上搜了点文字资料，并简单测了一下 应该说用vbRichClient操作sqlite是个不错的选择， 首先它支持加解密 其次它的版本比其他VB sqlite支持库更新快，像目前已经是sqlite3.9支持Json了 另外它操作也比ado简单，具体看附件的例
VB语言实现tcpip数据通讯
08-11
软件实现了服务器端采用指定端口号，客户端根据指定的端口号实现与服务器建立TCPIP连路，然后实现完整的数据发送和接收过程！
vb6引用vbRichClient5 下载对象 cDownloads 简单示例
qq574221329的博客
04-25 1894
Option Explicit 'vb6引用vbRichClient5.dll '下载简单示例 '小噤 QQ574221329 Dim WithEvents 下载类 As cDownloads Dim WithEvents 浏览器引擎 As cWebKit Dim 下载列表() As String Dim 全局字典 As Object, Fso As Object Private Sub Co...
VB TCP/IP 通信
最新发布
zhangyy57的博客
05-31 605
在Visual Basic (VB)中实现TCP/IP通信，可以通过使用Winsock控件来完成。Winsock控件允许你创建客户端和服务器程序，通过TCP/IP协议进行通信
TCP通信
风火一回，一生不毁
09-03 723
Socket（套接字）：
使用 vbRichClient 代替winsock.ocx
jia175891641的博客
02-15 2692
说明:1此程序由ecz00程序优化而来 地址 http://download.csdn.net/download/ecz00/9403630因此程序可以说是网上唯一的tcpclient使用的中文案例，提供了我思路，在此感谢；为什么用这个插件，vb自带的插件winsock 这么有用的插件 居然不是微软自带的插件，最要命的是 直接注册ocx控件 win7 win10上可能因为序列号无法注册，那么vb下...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值