简介面向工业自动化及OPC UA协议学习者的VB客户端示例包内含Visual Basic编写的OPC UA客户端源码与OPC Helper 2.02连接工具可直接对接OPC服务器执行数据读写适合快速理解客户端开发流程与协议机制。压缩包共181个文件大小15.26MB主体为122个dll运行时库辅助包括vb源码文件、xml配置、exe可执行程序及pdb调试文件便于直接运行并跟踪学习。已有480人学习浏览包中演示了连接认证、节点浏览、数据订阅、读写操作、多线程异步通信及异常恢复等关键编码思路配合OPC Helper可直观验证服务器交互效果。通过研读工程结构与调试信息开发者能快速掌握OPC UA SDK调用方法为自研工业通信客户端打下扎实基础。1. OPC UA 客户端用 VB 写这个工程包到底解决什么问题现场工程师收到一个 OpcUaClient_VB.zip 时通常正卡在两件事中间老上位机是 VB 写的新设备却只愿意说 OPC UA。OPC UA 不是给 OPC DA 套一层壳它换了传输、加了证书、连数据模型都重写了这意味着 VB6 里那套直接调 OPC DLL 的老路子基本作废。这个 zip 说的是用 VB多数场景下是 VB.NET写一个合格的 OPC UA 客户端让旧程序在新协议下读回实时数据。下面按我从这类包里拆出来的方案讲一遍怎么选型、怎么最小连上、怎么对参数、坑在哪以及怎么把单点读取升级成订阅和断线重连。2. 方案选型VB6 还是 VB.NET为什么这种包压的几乎都是 VB.NET 工程打开 zip 先别急着解压运行先回答一个问题这个 VB 到底是 VB6 还是 VB.NET这两个东西在 OPC UA 面前的难度差了十倍。2.1 OPC UA 与 OPC DA 的本质差别证书、加密、信息模型不是旧协议加了一层壳很多从 VB6 过渡过来的老工程师第一反应是OPC UA 不就是 OPC DA 换了个端口嘛。不对。OPC DA 走 DCOM靠 Windows 域内权限和注册表来找服务器局域网能通就完事OPC UA 是彻底重写的协议传输层变成了 TCP 4840 或 HTTPS安全层引入了 X.509 证书、签名和加密数据模型从ItemID 类型变成了带命名空间的 NodeId 和 Address Space。这意味着你在 VB 里写的那套New OPCAutomation.OPCServerConnect 到机器名的老代码在 UA 面前连握手都完成不了。对比项OPC DA 老路子OPC UA 新路子传输DCOM / RPC动态端口opc.tcp 固定 4840 / HTTPS安全Windows 身份证书信任 签名/加密认节点ItemID 字符串NodeId如 ns2;sDemo.Simulation.H发现OPCEnum 注册表GetEndpoints 端点发现跨平台能力基本绑定 WindowsLinux 也能跑 .NET 客户端这个表不是科普它直接决定你对 zip 里的代码怎么改连接字符串不再是一台机器名而是一个端点地址读取前要先决定安全策略VB6 里 OnEvent 那套订阅回调在 UA 里变成了 MonitoredItem 的 Notification 事件。如果你之前维护的是 VB6 的工业上位机现在要接的设备又只支持 UA那第一件事就是接受这套新概念而不是找兼容层。2.2 拿 UA-.NETStandard 还是 OPCFoundation 正式 SDK两种引用方式与适用场景OPC UA 的官方参考实现是 UA-.NETStandardNuGet 上有对应的 OPCFoundation.NetStandard 系列包。这个库是 .NET 类库所以想省事就选 VB.NET工程里直接引用 DLL 或者走 NuGet。常见做法是# 在 NuGet 包管理控制台或 CLI 里还原依赖 nuget restore OpcUaClientExample.sln # 如果是 .NET 6 工程 dotnet restore OpcUaClientExample.vbproj如果你拿到的 zip 里已经带了 DLL那多半是依赖已经打进去了如果只有源码第一件事就是还原。我的习惯是解压后先用 grep 看一眼工程目标框架确认是 .NET Framework 还是现代 .NET# 看 VB 工程的目标框架决定能不能用当前开发环境直接跑 grep -E TargetFramework|TargetFrameworkVersion *.vbproj输出里如果看到 TargetFrameworkVersion v4.7.2 这类说明是 .NET Framework 工程Visual Studio 2019 或 2022 都能开如果看到 TargetFramework net6.0 或 net8.0那就是跨平台工程dotnet CLI 就能跑。这个判断直接影响后面的运行成本和证书存储位置值得先花两分钟确认。UA-.NETStandard 和 OPC Foundation 商业 SDK 的区别在于前者开源免费版本迭代快但 API 命名在不同 minor 版本之间有差异你抄代码时要以自己引用的版本为准后者 API 稳定有技术支持但闭源收费。对于 VB 客户端这种相对简单的一次性数据采集工具我的选择永远是前者省事踩坑也踩得明白。至于 zip 里放的是哪一种看引用目录里有没有 Opc.Ua 开头的 DLL 就知道。2.3 工程包里那三个核心 DLL 是什么Opc.Ua.Core、Opc.Ua.Client 与 Opc.Ua.Configuration 的职责UA-.NETStandard 的依赖拆得很清晰zip 的引用目录里一般能看到三个关键程序集。Opc.Ua.Core 是协议栈底层负责编码、传输、安全通道你自己几乎不会直接调用它但 Session 对象底层全靠它撑着。Opc.Ua.Client 是真正面向业务的一层Session、Subscription、MonitoredItem 都在这里。Opc.Ua.Configuration 负责 ApplicationConfiguration 的加载、证书的创建和信任区管理这一层最容易被人忽略可证书报错十有八九要回来找它。理解这三个 DLL 的分工对排错很有用。报 BadCertificateUntrusted 别去 Opc.Ua.Client 里找那是 Configuration 层管的事。报 subscription 没回调则是 Client 层 MonitoredItem 的配置问题。顺着职责找问题比对着错误码瞎试快得多。提示别一上来就把 OPC UA 的证书机制当安全检查绕过。现场环境可以临时信任测试证书但生产环境一定要把服务器证书纳入可信区否则哪天换一台服务器或重启证书服务你连排查方向都没有。3. 从 zip 解压到首次连上 OPC UA Server最小 VB.NET 代码路径这一章是抄作业章。我按先有测试端点、再写最小连接、最后填参数的顺序来新手可以整套搬熟手可以直接跳到 3.3 看参数边界。3.1 先搭一个本地测试端点UA Demo Server 与端点地址的三种写法写客户端之前先要有服务器。常见做法是装一个 OPC Foundation 示例里的 UA Demo Server它默认监听 4840里面带了现成的模拟节点和订阅服务专门用来干这事。你不需要连真实 PLC 也能把客户端链路先跑通。端点地址有三种写法看起来差不多实际作用范围不同写法适用场景坑opc.tcp://127.0.0.1:4840本机调试换机器就要改opc.tcp://localhost:4840本机调试解析到 IPv6 ::1 时偶发连不上opc.tcp://PLC-01:4840现场真实设备依赖 DNS建议改用 IP第三种写法在现场最容易出事。主机名解析失败很常见运行库里没有数据时先 ping 一下设备名。另外同一个服务器可以监听多个端点每个端点安全策略不同找端点的标准动作是发 GetEndpoints 请求下面是最小的发现代码Dim endpointUrl As String opc.tcp://127.0.0.1:4840 Dim endpoints As EndpointDescriptionCollection CoreClientUtils.GetEndpoints( endpointUrl, timeout:10000) For Each ep As EndpointDescription In endpoints Console.WriteLine($url{ep.EndpointUrl}, policy{ep.SecurityPolicyUri}, mode{ep.SecurityMode}) NextGetEndpoints 返回的 EndpointDescription 里带了完整的端点信息包括安全策略 URI 和安全模式。这一步是后面所有参数翻译的源头先跑通它比直接盲目 Session.Create 靠谱得多。3.2 建立最小会话从 Connect 到 Read 一个点的 VB 代码有了端点列表下面这段就是最小客户端。它创建 ApplicationConfiguration、选择端点、建立 Session再读一个 NodeId 对应的值Imports Opc.Ua Imports Opc.Ua.Client Public Function ReadFloat(endpointUrl As String, nodeId As String) As Double 1. 默认配置证书、信任区、超时都走默认 Dim appConfig As New ApplicationConfiguration() appConfig.ApplicationName VBClient appConfig.ApplicationUri urn:localhost:VBClient appConfig.ApplicationType ApplicationType.Client appConfig ApplicationConfiguration.Load(appConfig, False) 2. 选端点useSecurityTrue 表示要加密和证书False 表示走 None Dim selected As EndpointDescription CoreClientUtils.SelectEndpoint( endpointUrl, useSecurity:True, discoverTimeout:15000) 3. 建会话最后一个参数是用户身份Nothing 表示匿名 Dim session As Session Session.Create( appConfig, selected, updateBeforeRead:False, sessionName:VBClientSession, sessionTimeout:60000, identity:Nothing, preferredLocales:Nothing).Result 4. 读节点ReadValueId 指定要读哪个属性 Dim valueId As New ReadValueId With { .NodeId New NodeId(nodeId), .AttributeId Attributes.Value } Dim value As DataValue session.ReadValue(valueId) Return Convert.ToDouble(value.Value) End Function逐段说明。第一步的 ApplicationConfiguration 是所有 UA .NET 客户端的地基证书、信任区、超时都在这里开发期可以全默认上了现场再逐个调。第二步 CoreClientUtils.SelectEndpoint 会自动从端点列表里挑一个符合安全策略的useSecurity 参数决定它挑加密端点还是 None 端点这是后续很多连接问题的来源。第三步 Session.Create 里 sessionTimeout 是服务端判定会话失活的时间默认 60 秒够用。第四步 New NodeId(nodeId) 直接吃字符串这种ns2;sxxx的写法是 UAExpert 复制节点地址后的原样格式不用再手工拆命名空间。3.3 几个要命的参数EndpointUrl、SecurityPolicy、UserIdentity 怎么填参数怎么填直接决定你能不能连上。这个表建议存一份排查时照着对参数写错时的典型现象推荐做法EndpointUrlSocket 通但 UA 握手失败从 UAExpert 端点列表复制别手打useSecurityBadSecurityModeRejected和服务器端策略保持一致SecurityPolicy URIBadSecurityPolicyRejectedNone 就是空Basic256Sha256 有固定 URIsessionTimeout长时间空闲后第一次读超时60000 起步UserIdentity用户名密码错误被拒匿名不行就换 Basic256Sha256 账号UserIdentity 是 VB 客户端最容易轻视的地方。现场 PLC 多半开了匿名但很多边缘网关强制账号密码。用户名密码方式要让 Session.Create 走加密端点否则密码在传输层直接暴露。换成代码就是New UserIdentity(admin, password)前提是前面的 useSecurity 为 True。这个坑很隐蔽账密填了、服务器也接受会话了抓包才发现密码是明文。开发期先匿名跑通生产环境必须加密身份。提示开发阶段先用 UA Demo Server 和匿名身份跑通最小链路再叠加账户与证书。一次只改一个变量报错才分得清是安全策略的事还是身份认证的事。4. 把 UAExpert 抓到的参数翻译成 VB 代码端点发现与证书信任实战UAExpert 是 OPC UA 调试里最常用的工具免费、能浏览地址空间、能看端点、能直接订阅节点。这里的关键动作是把 UAExpert 里看到的东西翻译成 VB 代码里的参数。4.1 用 UAExpert 的 Discover 结果反推 EndpointUrl 和证书策略UAExpert 打开后填服务器地址点连接会弹出一个列表里面每一条就是服务器发布的一个端点。列表里有 EndpointUrl、SecurityPolicy、SecurityMode。翻译成 VB 代码就是UAExpert 列表里看到VB 代码里对应的写法opc.tcp://192.168.1.10:4840endpointUrl 字符串原样抄SecurityPolicy: Basic256Sha256useSecurity:TrueSelectEndpoint 自动挑SecurityMode: SignAndEncrypt连接时加密客户端要能拿到服务器证书UserIdentityToken: Anonymousidentity:Nothing 或 New UserIdentity()UAExpert 还有一个功能比连接更重要在 Address Space 树里找到你要的节点右键复制 NodeId。它复制出来通常是 ns2;i10001 或 ns2;sDemo.Simulation.H 这种字符串可以直接填进New NodeId(nodeId)。很多 VB 新手在这个环节自己组装 NodeId分隔符多写一个冒号就是 BadNodeIdInvalid半天起步。把 UAExpert 当参照物比你对着 PDF 文档猜符号靠谱得多。拿到端点列表后客户端侧最该盯的是 SecurityPolicy 那一列。如果列表里有多个端点且策略不同优先选 Basic256Sha256这是新版协议栈的默认强加密策略没有就选 None 或设备强制要求的策略。选型原则是服务器有什么你就用什么不要在一个只开了 SignAndEncrypt 的服务器上硬写 useSecurity:False那必然被拒。4.2 证书信任与 BadCertificateUntrusted 的处理顺序开发期最常见的报错是 BadCertificateUntrusted。现象是 UAExpert 首连会弹窗问是否信任服务器证书但你的 VB 程序没有弹窗这个交互直接抛异常。原因客户端在建立安全通道时收到了服务端证书但客户端的可信证书列表里没有它于是拒绝握手。UA-.NETStandard 客户端把信任证书放在本机的 pki 目录或 Windows 证书存储里具体看 ApplicationConfiguration 里 SecurityConfiguration 的配置。处理顺序是先拿到服务端证书把它导出成 CER 文件放进客户端的 TrustedPeerCertificates 存储路径然后重连。为了快速打通链路我经常在代码里给证书验证事件挂一个临时处理器AddHandler appConfig.CertificateValidator.CertificateValidation, Sub(validator As CertificateValidator, e As CertificateValidationEventArgs) e.Accept True 仅用于联调和内网测试 End Sub这段代码把证书验证结果直接置为接受效果立竿见影BadCertificateUntrusted 立刻消失。但它只适合开发环境等于不校验对方身份中间人攻击发生时毫无感知。我的做法是联调期用它快速验证业务逻辑代码稳定后删掉这个处理器老老实实把服务器证书放进信任区。处理顺序记成口诀先拿证书再信任证书最后重连。别一上来改 EndpointUrl改了也没用。4.3 无证书也能连None 安全策略下读 PLC 数据的取舍如果你对接的是十年前的 PLC固件里只有 None 策略那也有办法。None 的意思是安全通道不加密不签名SelectEndpoint 传 useSecurity:False 就能挑到它。连接代码和加密策略完全一样区别只在握手阶段没有证书校验BadCertificateUntrusted 不会出现。要分清None 策略和证书没配置是两码事。前者是协议层协商出的明文通道后者是加密通道上证书不被信任。很多人混淆这两个概念遇到 None 也去导证书白折腾。取值逻辑很简单物理隔离的内网、测试环境、临时读取用 None 可以生产环境只要设备支持 Basic256Sha256一律走加密。明文通道读出来的数据被篡改现场追溯起来很麻烦。我在接入数采平台时如果供应商坚持只开 None我会要求交换机侧做端口隔离把 4840 限定在可信任主机范围内这是最后一道防线。5. OpcUaClient 的常见故障排查连接失败、读取超时与订阅不回调这一章是血泪经验集。我把最常见的五个坑按现象到解决写成清单现场遇到时直接对着查。5.1 BadCertificateUntrusted能发现服务器但握手失败现象GetEndpoints 正常端口也通但 Session.Create 报 BadCertificateUntrusted。原因服务端证书不在客户端信任区。解决按 4.2 的证书信任流程走一遍。这里补一个现场细节服务器证书过期或被重置后即使以前信任过也会复现这个错因为指纹对不上。换 PLC 或边缘网关经常踩这个旧证书文件还躺在 pki 目录里新证书指纹变了客户端就罢工。处理办法是把旧证书从信任区删掉重新导入新的。5.2 BadSecurityModeRejectedUAExpert 能连VB 客户端却被拒现象UAExpert 连同一台服务器秒连VB 客户端报 BadSecurityModeRejected。原因UAExpert 会自动选择服务器支持的端点策略并弹窗让你确认而 VB 代码里要么硬编码了 SecurityPolicy 为 None要么 useSecurity 传了 False和服务器唯一启用的 SignAndEncrypt 不符。解决先 GetEndpoints 把服务器实际发布的策略打印出来再让 SelectEndpoint 用同样的策略去选。别问我为什么不自动协商UA 的端点协商本来就有很多玄学打印真实端点是唯一靠谱的排查路径。5.3 32/64 位进程与 DLL 冲突加载程序集失败和隐藏的互操作坑现象引用没问题编译没问题运行时在某个 DLL 上抛 BadImageFormatException或者连接时毫无理由超时。原因如果工程是 VB6 调 .NET 程序集或者目标平台选了 x86 而运行环境是 64 位互操作层很容易出问题。UA-.NETStandard 本身是托管程序集不依赖原生组件但 VB6 通过 COM 互操作调用时注册的 COM DLL 位数必须和调用进程匹配。解决把整个链路的目标平台统一选 x64 就全 x64选 x86 就全 x86不要用 AnyCPU 混过去。现场机上 64 位 Office 和 32 位采集程序并存的场面很常见这一条能省不少时间。5.4 Read 超时与 BadTimeoutSessionTimeout、OperationTimeout 全是默认值现象首次 Read 偶发超时同一个节点读 100 次偶尔挂一次报表上出现数据缺口。原因客户端和服务端的超时参数不匹配或者 Session.Create 里 sessionTimeout 太小服务器判了会话失活把后续请求直接拒绝。解决把 sessionTimeout 提到 60000读请求的 OperationTimeout 设到 5000 毫秒以上同时看服务器端最大会话超时是否有上限。这个坑在重载 PLC 上特别明显服务器忙时处理请求超过客户端超时窗口就报 BadTimeout。先调超时再看抓包别一上来怀疑网线。5.5 订阅不回调MonitoredItem 采样间隔与发布间隔打架现象读是通的订阅也建了但 Notification 事件就是不来或者半天才来一次。原因MonitoredItem 的 SamplingInterval 设成 100 毫秒而服务端发布间隔 PublishingInterval 是 2000 毫秒中间的数据变化被积压在队列里等发布窗口。解决先把 PublishingInterval 和 SamplingInterval 对齐都用 1000 毫秒验证链路确认正常再往下调同时检查订阅对象的 PublishingEnabled 是否为 True创建订阅后必须 ApplyChanges()。这个 ApplyChanges 是新手翻车重灾区Subscription 建完不应用变更MonitoredItem 根本没进服务端事件自然不触发。6. 把单点读取升级成批量订阅MonitoredItem、KeepAlive 与断线重连的收尾技巧写给已经能稳定读到数据的读者。把单点读取升级成批量订阅是 VB 客户端从能用变成好用的分水岭。订阅比轮询好在于两点数据变化即推送网络占用小服务端按采样周期打包适合几十个点同时监控。看最小订阅代码 1. 创建并激活订阅 Dim sub As New Subscription(session) With { .PublishingInterval 1000, .PublishingEnabled True } session.AddSubscription(sub) sub.Create() 2. 把要监控的节点加进去 Dim item As New MonitoredItem(sub.DefaultItem) With { .StartNodeId New NodeId(ns2;sDemo.Simulation.H, 2), .AttributeId Attributes.Value, .SamplingInterval 1000 } AddHandler item.Notification, AddressOf OnDataChange sub.AddItem(item) sub.ApplyChanges() 忘了这一步前面全白写OnDataChange 里取新值即可第一个参数是 MonitoredItem第二个事件参数里的 NotificationValue 就是 DataValue。参数上的关键点是三步一致发布间隔、采样间隔、事件回调都按秒级起调别一上来压 50 毫秒Demo Server 扛得住现场老设备不一定。调订阅的同时建议顺手做 KeepAlive 保护。Session.KeepAlive 事件会在客户端与服务器失联时触发判断事件参数里的 ServiceResult 为 BadTimeout 就调用 session.Reconnect() 发起重连。这一个小动作能让 VB 程序在 PLC 重启后自己恢复采集不用人肉去点重新运行。我在几个项目里都靠它在凌晨 PLC 固件升级后自动续上现场反馈是第二天看到数据连续才知道夜里断过。这个习惯现在还在坚持凡是面向现场的设备采集程序必须留出重连路径当成和读取数据本身一样重要。希望这些参数、代码和踩过的坑能帮到你至少让你少熬一次没有头绪的现场夜班。本文还有配套的精品资源点击获取