6VB6.0开发WinCC的OPC客户机实例
通过OPC实现VB访问WINCC数据
通过OPC实现VB访问WINCC数据吴晓蕾，刘渤(天津电气传动设计研究所，天津 300180)摘要：首先简要分析了在CIPS中传统控制网和管理网的通讯复杂、稳定性差、管理软件功能受限等弊端，然后简要介绍了OPC技术的特点。
由此针对某露天煤矿原有的数据记录查询系统提出了改造方案，并重点介绍了OPC客户端的软件设计流程。
采用的方法简单有效，提高了通讯速度和稳定性。
关键词：WINCC系统；OPC服务器；VB；SQL数据库Through the OPC achieve VB access WINCC's dataWU Xiao-lei，Liu bo(Tianjin Design & Research Institute of Electric Drive,Tianjin 300180,China) Abstract :First ,a brief analysis of the CIPS traditional control network and management networks, the drawbacks is such as complex communications ,poor stability ,the limit function of management software ,and then briefly introduced the characteristics of OPC technology.Therefore design a scheme for an old data query system in the open-cut coal mine and focuses on the OPC client software design process .the method is simple and effective, to improve the communication speed and stability.Keywords : WINCC system；OPC server；VB；SQL1、引言在企业综合自动化系统(CIPS——Computer Integrated Process Control System)中，管理网需要从控制网上实时地获取工艺生产过程数据以满足管理的不同需求。
vb与欧姆龙OPC服务器编程实例(读取PLC100个内存的vb源代码)
Option ExplicitOption Base 1 ' All OPC Automation Arrays start with 1Dim MyOPCServer As OPCServer ' OPCServer ObjectDim MyGroups As OPCGroups ' OPCGroups Collection ObjectDim WithEvents MyGroup As OPCGroup ' OPCGroup ObjectDim MyItems As OPCItems ' OPCItems Collection ObjectDim MyItemServerHandles() As Long ' Server Handles for ItemsDim MyTID As Long ' Transaction ID for asynchronous calls Private Sub Command1_Click()Dim Errors() As LongCall MyItems.Remove(100, MyItemServerHandles, Errors)MyGroups.RemoveAllSet MyGroup = NothingSet MyGroups = NothingMyOPCServer.DisconnectSet MyOPCServer = NothingEnd SubPrivate Sub Command2_Click()PFAsyncWriteCommandEnd SubPrivate Sub Command3_Click()Form_LoadEnd SubPrivate Sub Form_Load()MyTID = 1Set MyOPCServer = New OPCServerCall MyOPCServer.Connect("OMRON.OPC.2")Set MyGroups = MyOPCServer.OPCGroupsMyGroups.DefaultGroupUpdateRate = 500MyGroups.DefaultGroupIsActive = TrueSet MyGroup = MyGroups.Add("Group1")MyGroup.IsSubscribed = TrueMyGroup.IsActive = TrueMyGroup.UpdateRate = 500Dim ErrorFlag As BooleanDim ItemObj As OPCItemDim ItemIDs(100) As StringDim ItemClientHandles(100) As LongDim Errors() As LongErrorFlag = FalseSet MyItems = MyGroup.OPCItemsDim m As IntegerFor m = 0 To 3Text1(m).ForeColor = vbRedText1(m).FontSize = 15Text2(m).ForeColor = vbRedText2(m).FontSize = 15NextFor m = 4 To 99Text1(m).ForeColor = vbBlueText1(m).FontSize = 15NextFor m = 1 To 100ItemIDs(m) = "Device.Group1.Tag" & CStr(m)ItemClientHandles(m) = mNextCall MyItems.AddItems(100, ItemIDs, ItemClientHandles, MyItemServerHandles, Errors)End SubPrivate Sub MyGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)On Error GoTo ErrorHandler '订阅方式回馈信息存储Dim i As LongFor i = 1 To NumItemsIf ClientHandles(i) > 0 And ClientHandles(i) < 101 ThenIf Qualities(i) = 192 Thendata1(ClientHandles(i)) = ItemValues(i)Else' MsgBox GetQualityText(Qualities(i))End IfElseMsgBox "DataChange Item " + Str$(i) + " has invalid Client Handle ", vbCriticalEnd IfNextExit SubErrorHandler:MsgBox Err.Description + Chr(13) + "OnDataChange", vbCritical, "ERROR"End SubPrivate Sub Timer1_Timer()Dim i As IntegerFor i = 1 To 100Text1(i - 1).Text = data1(i)Next iEnd SubPublic Sub PFAsyncWriteCommand() '异步写入命令On Error GoTo ErrorHandlerDim i, j As LongDim Values(4) As VariantDim Errors() As LongDim CID As LongDim AsyncHandles(4) As LongFor j = 1 To 4AsyncHandles(j) = MyItemServerHandles(j)Values(j) = Text2(j - 1).TextNextMyTID = MyTID + 1Call MyGroup.AsyncWrite(4, AsyncHandles, Values, Errors, MyTID, CID)For i = 1 To 4If Not Errors(i) = 0 Then MsgBox "Item " + Str$(i) + " FAILED. Error Code = " + Str$(Errors(i)), vbCritical NextExit SubErrorHandler:MsgBox Err.Description + Chr(13) + "Writing Items Asyncronous", vbCritical, "ERROR"End SubPrivate Sub MyGroup_AsyncWriteComplete(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, Errors() As Long)On Error GoTo ErrorHandler '异步写命令回馈信息Dim i As LongFor i = 1 To NumItemsIf Not Errors(i) = 0 Then MsgBox "AsyncWriteComplete Item Clienthandle = " + Str$(ClientHandles(i)) + " FAILED. Error Code = " + Str$(Errors(i)), vbCriticalNextExit SubErrorHandler:MsgBox Err.Description + Chr(13) + "Async Write Complete", vbCritical, "ERROR"End Sub。
VB6.0开发WinCC的OPC客户机实例
VB6.0开发WinCC的OPC客户机实例关键词：OPC VB6.0 WinCC上位机WinCC是西门子公司在自动化领域采用最先进的技术与微软公司在共同开发的居于世界领先地位的工控软件。
WinCC即WINDOWS CONTROL CENTER（视窗控制中心）。
WinCC 是一个功能强大的全面开放的监控系统，既可以用来完成小规模的简单的过程监控应用，也可以用来完成复杂的应用。
在任何情况下WinCC都可以生成漂亮而便捷的人机对话接口，使操作员能够清晰地管理和优化生产过程。
它集成的OPC(OLE for process control)服务器使得过程数据可由其它应用程序(OPC客户机)访问。
WinCC在安装时提供了OPC的客户端控件: Siemens OPC DAAutomation 2.0( SOPCDAAuto.dll), 在WINCC的帮助中，有Siemens OPC DAAutomation 2.0使用的简略帮助，但说得不很详细，我在使用VB6.0开发WinCC的OPC客户机中碰到不少问题，现一并写出来，与大家共享。
希望起到抛砖引玉，举一反三的作用。
一、开发实例背景：我厂包装机BE电气改造后，由原来了单片机、直流调试板、温度控制板等控制改为带有通讯端口PLC、变频器、温控仪等控制，上位机监控软件为WinCC。
在控制系统中，变频器、温控仪的控制信号通过串口、OPC客户机接入上位机WinCC，报警信号接入PLC。
其硬件组态结构如图一OPC开发要求：①通过WinCC建立内部变量Tag(1)，Tag(2)，Tag(3),Tag(4)……；在视图窗口建立相应了I/O输入输出域。
通过更改WinCC中I/O域的值，来设定或更改变频器、温控仪等的参数。
②通过VB开发了串口驱动程序，读取变频器、温控仪等的参数，通过OPC控件把值传递给WinCC中的I/O域。
二、VB6开发WinCC的OPC客户机具体步骤：1、打开VB6，建立如图二窗体：其中，文本框组Text4.text为写入WinCC内部变量名称；文本框组Text5.text为显示相应了WinCC内部变量值；文本框组Text8.text为写入期望了WinCC内部变量值。
VB6.0编程客户端访问组态王OPC服务器的实现方法
武 汉船舶 职业 技术 学 院学报
２１ ０ １年第 ３期
ＶＢ ． ６ ０编 程 客 户 端 访 问 组 态 王 ＯＰ 服 务 器 的 实 现 方 法 Ｃ
邹 治 军
（ 南京 化 工 职 业 技 术 学 院信 息 技 术 系 ， 苏 南 京 ２ ０ ４ ） 江 １ ０ ８
摘 要 本 文 介 绍 了 Ｏ Ｃ规 范 ， 过 实 例 介 绍 了基 于 ＶＢ ． Ｐ 通 ６ ０编 程 客 户 端 程 序 访 问组 态 王 ＯＰ Ｃ服 务 器 的 实 现 方 法 ， 有 具
１ ＯＰ 规 范 Ｃ
工业 控 制系 统包 含 大 量 的 现 场设 备 ， 些 设 这 备 通常包 括来 自不 同 厂 商 的各 种 类 型 的仪 器 、 仪 表、Ｌ Ｐ Ｃ和 其他智 能设 备 。不 同 的厂 商 提供 的协 议各 异 ， 因此要 与 这些设 备交 换数据 ， 要编 写不 需
程 序 ， 过组 态王 的 Ｏ Ｃ接 口来 访 问组态 王数 据 通 Ｐ
库 中的变 量和 变量 的域 。
Ｖｉ ａ Ｂ ｓｃ 一 种 可 视 化 的 、 向对 象 和 采 ｓ ｌ ａｉ 是 ｕ 面
用事 件驱 动方 式 的结 构 化 高 级 程 序设 计 语 言 ， 常 用 于开 发 Ｗ ｉｄ ｗｓ环 境 下 的各 类 应 用 程 序 。 ｎｏ ］
Ｋｉｇ ｉ 组 态 王 ） 北 京 亚控 公 司 特 别 为 ｎ ｖｅ ｗ（ 是
中小 型项 目推 出的用 于监 视与控 制 自动化 设备 和
生 产过 程 的组 态 软 件 。组 态 王 因其 易 学 易 用 、 功 能齐全 、 物美 价廉 的特 点 ， 目前 已广泛 应用 于 国 内
中 小 型 生 产 过 程 控 制 系 统 中 。 Ｋｉｇ ｉ ． ３的 ｎ ｖｅ ｗ６ ５
用VB开发OPC客户端程序的步骤与实现
用VB开发OPC客户端程序的步骤与实现(1)建立新工程或项目,在“工程”菜单下选择“引用”,如图5-3所示。
只有引用OPCDAAuoto.DLL后,在程序中才能创建服务器对象,然后进行一系列的操作。
(2)在弹出的引用窗口里单击“浏览(B)…”按钮,弹出添加引用窗口,选择OPCDAAuoto.DLL 文件。
(3)在引用窗口里的OPC Automation 2.0前面打钩,按“确定”按钮。
(4)定义全局变量,这样可以在窗体的任何方法的代码内应用。
变量类型应该指定为对象型。
这些对象最好在窗体的通用部分声明加上“Option Explicit”语句,表示模块里的所有变量都需要显式声明。
由于OPC自动化接口的数组的索引要求必须从1开始,而系统默认是从0开始,为了避免错误最好在代码的最初加上“Option Base 1”语句。
为了使对象可以处理事件,必须将objTestGrp和objServer的声明中加上“WithEvents”语句,表示声明的对象可以响应事件。
Option ExplicitOption Base 1Dim WithEvents objServer As OPCServerDim objGroups As OPCGroupsDim WithEvents objTestGrp As OPCGroupDim objItems As OPCItems(5)连接OPC服务器和建立OPC组考虑到代码的可反复使用性,采用子程序进行编程。
Sub Connect(strProgID As String, Optional strNode As String)If objServer Is Nothing Then' 建立一个OPC服务器对象Set objServer = New OPCServerEnd If服务器状态ServerState属性一共有OPCRunning、OPCFailed、OPCNoconfig、OPCSuspended、OPCTest和OPCDisconnected六个值,分别表示正在运行、失败、没有配置、暂停、测试和没有连接六种OPC服务器当前的状态。
用VB编写OPC
winccopc:用VB编写OPC客户端访问WINCC-vb教程疯狂代码 / ĵ:http://VisualBasic/Article15470.html用VB编写OPC客户端访问WINCCOPC是个工业标准它是由些世界上著名自动化系统和硬件、软件Software公司和Microsoft(微软)紧密合作而建立〔O代表OLE(对象链接和嵌入)P (process过程)C (control控制)OLE已从面向对象重新定义为基于对象并更名为Active X〕WinCC是西门子公司在自动化领域采用最先进技术和微软公司在共同开发居于世界领先地位工控软件SoftwareWinCC即WINDOWS CONTROL CENTER(视窗控制中心)WinCC是个功能强大全面开放监控系统既可以用来完成小规模简单过程监控应用也可以用来完成复杂应用在任何情况下WinCC都可以生成漂亮而便捷人机对话接口使操作员能够清晰地管理和优化生产过程它集成OPC(OLE for process control)服务器使得过程数据可由其它应用(OPC客户机)访问WinCC在安装时提供了OPC客户端Control控件: Siemens OPC DAAutomation 2.0( SOPCDAAuto.dll),这个Control控件就是我们在VB中要用到Control控件我们也可以使用通用OPC客户端Control控件: OPC Automation 2.0.在WINCC帮助中有Siemens OPC DAAutomation 2.0使用简略帮助但说得不很详细我在使用中碰到不少问题现并写出来和大家共享、OPC连接 先在“引用”将近 Siemens OPC DAAutomation 2.0加入然后开始定义全局变量在本中我使用了两个OPC组进行OPC访问所以定义了全局变量我们要首先定义OPC服务类型和计算机结点名定义OPC组和OPC标签组并定义OPC标签和值数注意值定要设为Variant´OPC处理:只对WINCCConst ServerName = \"OPCServer.WinCC\" ‘OPC类型Const NodeName = \"GUK\" ‘结点名即计算机名‘Dim NodeName As StringDim WithEvents MyOPCServer As OPCServer ‘OPC服务Dim MyOPCGroupColl As OPCGroups ‘Dim WithEvents MyOPCGroupOut As OPCGroup ‘OPC组本用两个组进行OPC连接Dim WithEvents MyOPCGroupIn As OPCGroupDim MyOPCItemCollIn As OPCItems ‘OPC标签组Dim MyOPCItemCollOut As OPCItemsDim ServerHandlesIn As Long ‘句柄Dim ServerHandlesOut As LongDim ErrorsIn As Long ‘句柄Dim ErrorsOut As LongDim WatchDataReadItem(100) As String ´记录OPC标签Dim WatchDataReadValue(100) As Variant ´存放OPC值Dim WatchDataWriteItem(100) As String ´记录OPC标签Dim WatchDataWriteValue(100) As Variant ´存放OPC值在定义所有变量后我们就要进行OPC连接了要进行OPC连接的前,先要配置要访问OPC标签名我们WatchDataReadItem、WatchDataWriteItem中加入相应标签名注意:这两个必须由1开始不能由0开始配置好标签后就要进行OPC连接了如下面子:1、 ClientHandles1先配置名柄索引这将在读取OPC标签值时可要用到2、 生成OPC对象3、 进行OPC标签连接至此:OPC连接就成功了我们可以对OPC进行读和写操作了´--------------------------------------------------------------------- ´ Sub StartClient´ 目:连接至OPC_server创建组和添加条目´--------------------------------------------------------------------- Private Sub StartClientDim ItemNum As IntegerDim TarnscationID As LongDim CanceID As LongDim ClientHandles1(100) As LongDim ii As IntegerOn Error GoTo HANDLEeRRORFor ii = 0 To 100ClientHandles1(ii) = ii 先配置名柄索引这将在读取OPC标签值时可要用到 Next iiTarnscationID = 1‘ NodeName = xProfile.GetValue(\"SYSTEM\", \"NodeName\")‘生成OPC对象Set MyOPCServer = New OPCServerMyOPCServer.Connect ServerName, NodeNameSet MyOPCGroupColl = MyOPCServer.OPCGroupsMyOPCGroupColl.DefaultGroupIsActive = TrueSet MyOPCGroupIn = MyOPCGroupColl.Add(\"MYGROUPIN\")Set MyOPCGroupOut = MyOPCGroupColl.Add(\"MYGROUPOUT\") Set MyOPCItemCollIn = MyOPCGroupIn.OPCItemsSet MyOPCItemCollOut = MyOPCGroupOut.OPCItems‘进行OPC标签连接If WriteItemIdex > 0 ThenMyOPCItemCollOut.AddItems WriteItemIdex, WatchDataWriteItem, ClientHandles1, ServerHandlesOut, ErrorsOut ´化OCP连接MyOPCGroupOut.IsSubscribed = TrueEnd IfIf ReadItemIdex > 0 ThenMyOPCItemCollIn.AddItems ReadItemIdex, WatchDataReadItem, ClientHandles1, ServerHandlesIn, ErrorsIn ´化OCP连接MyOPCGroupIn.IsSubscribed = TrueEnd IfExit SubHANDLEeRROR:needOPCRestart = TruexLog1.log \"OPCl连接发生\"End Sub2、OPC标签读写对OPC标签读可以通过MyOPCGroupIn组和MyOPCGroupOutDataChange事件来读取该事件有多个参数:其中NumItems是指标签改变值个数ClientHandles是改变值标签索引ItemValues为改变值数据具体意思是ClientHandles(1)值是其对应标签索引其所指OPC标签值在ItemValues(1)中般来说刚连接上时该事件会把全部所要求访问OPC标签值全部读取过来(顺序不要通过ClientHandles索引)此后只有数据发生变化时才会触发该事件也只会传输发生了变化数据没有变化数据不会出现在本事件ItemValues中Private Sub MyOPCGroupOut_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles As Long, ItemValues As Variant, Qualities As Long, TimeStamps As Date)´产生要通知下级数据变化根椐不再Control控件有区别处理For ii = 1 To NumItemsWatchDataWriteValue(ClientHandles(ii) - 1) = ItemValues(ii) ´对改变值读入本Next iiEnd Sub对OPC写可以有同步和异步的分对于大量数据传输异步是更佳选择但对少量数据传输同步表现得更好要进行数据传输先要将值数据进行赋值注意:值数据要由0开始也就是说值和标签数据不是、对应值要比标签前位这点在WINCC介绍说明中没有但在我实际使用中直要这样不然数据就产生错位看下面这是个拔号完毕后返回数据进行OPC传递包含解包过程Private Sub showSuccess(msg As String)Dim location As StringDim nowTime As StringDim logStr As StringDim Value As StringDim ii, temp As IntegerDim isPack As BooleanDim sHead, sDelimited, sTail As Stringlocation = xProfile.GetValue(WatchPo(nowRunID), \"LOCATION\")nowTime = NowlogStr = \"拔\" & location & \"取数成功\" & msgxLog1.log logStrlogStr = \" \" & msgxLog2.log logStr ´记录数据´数据上传´如果有包结构,则显示包结构,isPack = xProfile.GetValue(WatchPo(nowRunID), \"ISRECHEAD\")If WatchPoRBegin(nowRunID) < 0 Then Exit SubIf isPack ThensHead = xProfile.GetValue(WatchPo(nowRunID), \"RECHEAD\")sDelimited = xProfile.GetValue(WatchPo(nowRunID), \"RECDELIMITER\") sTail = xProfile.GetValue(WatchPo(nowRunID), \"RECEND\")Value = Split(msg, sDelimited)For ii = 0 To UBound(Value) - 1temp = WatchPoRBegin(nowRunID) + iiIf temp > WatchPoREnd(nowRunID) Then Exit ForWatchDataReadValue(temp - 1) = Value(ii + 1) ´VALUE要从0开始比ITEM少1,所以减 有包头,占去位,向后延Next iiElseWatchDataReadValue(WatchPoREnd(nowRunID) - 1) = msgEnd IfMyOPCGroupIn.SyncWrite ReadItemIdex, ServerHandlesIn, WatchDataReadValue, ErrorsIn ´数据上传 ´记录上次成功执行时间xProfile.SetValue WatchPo(nowRunID), \"LASTTIME\", nowTimeEnd Sub3、OPC连接断开OPC客户端连接后要占用服务器资源所以如果不需要使用OPC时必须进行OPC连接断开断开相当简单释放资源即可如下Sub StopClient_disibledevent=>´----------- 释放组和服务器对象MyOPCGroupColl.RemoveAll´----------- 和服务器断开连接并且清除 MyOPCServer.DisconnectSet MyOPCItemCollIn = NothingSet MyOPCItemCollOut = NothingSet MyOPCGroupIn = NothingSet MyOPCGroupOut = NothingSet MyOPCGroupColl = NothingSet MyOPCServer = NothingEnd Sub但在实际使用中发现频繁连接和断开将使服务器资源被大量消耗最终让服务器出错所以尽量减少无谓OPC连接和断开结语: OPC使用是作为个DCOM在使用所以OPC客户端可以网络上任计算机运行但你必须配置DCOM访问权限如果你不想费神把服务器和客户端都用相同用户名和密码登录就成了如果想配置DCOM请参看DCOM配置参考资料:WinCC在线帮助作者介绍:顾恺高级员湖南大学毕业曾从事过LINUX内核研究从事过企业信息化平台开发当前从事SCADA开发主要将各种区别类型远程设备通过同手段进行数据采集并集成到企业信息化平台中去喜欢将工作中些积累形成文字2009-2-12 4:19:20疯狂代码 /。
用VB编写OPC客户端访问WinCC的实现
用VB编写OPC客户端访问WinCC的实现
秦胜利;王锬
【期刊名称】《安徽冶金》
【年(卷),期】2011(000)004
【摘要】介绍了OPC自动化接口在VB中的使用,并详细描述如何利用WinCC提供的OPC服务器接口编写客户应用程序的步骤。
【总页数】3页(P33-35)
【作者】秦胜利;王锬
【作者单位】马鞍山钢铁股份有限公司
【正文语种】中文
【中图分类】TP3
【相关文献】
1.VB6.0编程客户端访问组态王OPC服务器的实现方法 [J], 邹治军
2.VB中利用OPC访问WinCC实现下位机实时报警 [J], 叶海涛;苏建元
3.通过OPC实现VB访问WINCC数据 [J], 吴晓蕾;李逸;胡国军;刘渤;张细兰
4.用VB编写OPC客户端程序实现数据共享的方法 [J], 李晓诗;赵志峰
5.VB环境下通过OPC接口访问WinCC数据的实现 [J], 李新军
因版权原因，仅展示原文概要，查看原文内容请购买。
使用VB或VBS访问WINCC6
使用VB或VBS访问WINCC6.0历史数据库从WINCC6.0开始,就开始采用SQL3000SP3做为WINCC的后台数据了.而这个SQL2000SP3是由SIEMENS为WINCC做了二次开发的,采用了一些独有的技术,一些是我们知道的,一些是我们所不知道的.所以当我们打开SQL管理器和用高级语言访问时,和常规的SQL访问的方法是有一些出入的.即使我们能够很轻易的访问ACCESS,普通的SQL2000的数据库,不见的你就能顺利的访问到WINCC的历史数据.官方的资料显示:1:WINCC的数据有设计时数据库和运行时数据库,分别放在相关的目录,对于数据使用者而言,我们知道就可以了.设计时数据库我们了解没有什么意义.但运行时数据库至少我们要知道它的名.他的名一般是"CC_工程名_年_月_日_时_分_秒R"的名,这个对于我们使用者而言,是很重要的的,无论你准备以DSN或OLEDB的方式访问数据库,你都需要它.如果你实在不知道它的名,你可以将WINCC激活,然后在'ODBC管理器"或"SQL企业管理器下的"DATABASE"可以看到它,它就蹲在那里.....2:运行时库的表的问题.其实,这个是很多的用户很关心的问题,包括我自己在内.常规的使用过高级语言访问SQL的技术人员都知道,很多的SQL语句,如SELECT ,INSERT INTO等等,都需要指明在某一库的表中对它进行操作.因此,这个表的问题可能就是你访问SQL的拦路虎.先告诉大家:WINCC6.0的SQL库操作是不需要表名的,因为他有自己定义的SQL语句.细节一会儿在描述.其实,WINCC在运行时,根据WINCC的设置,数据归档是以一定时间做为基准,形成数据片段. 大体上有三个用户需要了解的表.在数据片段下,有三个表是我们所关心的1:ARCHIVE(用户归档记录)2:TAGPRESSED(TAGUNPRESSED)(压缩/非压缩变量归档记录)3:MSARCLONG(报警记录)事实上,我们在操作数据时,还是并不能直接使用常规的SQL来操作这些表,甚至不允许修改它,MSARCLONG情况好一些,允许插入/修改等.TAGPRESSED的数据和WINCC内设置的变量管理下的归档是对应的,MSARCLONG的数据和WINCC内设置的报警记录下的设置是对应的.ARCHIVE的数据和WINCC内的用户归档数据是对应的.一般的,当我们使用WINCC制作在线表格和在线趋势使用的都是变量管理器下的归档.因此,我们打开TAGPRESSED的表,可以看到的一些都是变量记录的内容,通常也是在这里归档了用户的生产数据.因此,我们访问WINCC历史数据库,实际上是访问这里的变量记录3:访问历史数据库的方法/连接字符/SQL语句访问数据库的方法:A:WINCCOLEDB访问压缩归档,也可以访问非压缩归档B:MS ADO/OLEDB只能访问非压缩归档对于这种说法,我只严正了WINCCOLEDB的方法,后者没有测试.连接字符:WINCCOLEDB的连接字符为(本地):provider=winccoledbprovider.1,catalog=.\wincc，data source=数据库名，user id=DBA,password=SQL对于远程连接，因为没有条件测试，所以就不说了，希望有哪位朋友日后通过了测试，到这里告诉一下现在开始讲访问用户归档,过程值归档和消息归档的方法和语法:1:查询过程值归档和消息归档的连接字符串SET CON=Createobject("adodb.connection")con.openProvider=winccoledbprovider.1;catalog=cc_工程名_年_月_日_时_分_秒R,data source=.\wincc,user id=DBA,password=SQL说明：按照ＷＩＮＣＣ规定的连接字符串，创建到数据库的连接，并且打开这个连接．其中，我们经常需要修改的是Catalog的值，这个值根据不同的工程和创建的时间不同，我们可以在ＯＤＢＣ管理器下或ＳＱＬ的库中看到．查询过程值归档和用户归档的ＳＱＬ语句TAG:R,'变量名１','起始时间','终止时间' where条件说明：ＷＨＥＲＥ子句只对用户归档有效，对过程值归档无效．变量名：这个变量名要和ＷＩＮＣＣ下的变量管理器的过程值归档名要一致．其格式为：归档名／变量名．起始时间和终止时间可以用相对时间和绝对时间，一般绝对时间比较容易理解，就是从开始时间到终止时间就好了．例如，查询从2006/3/12 12:20:20秒到2006/3/13/ 12:20:20秒的数据，则应该写成'2006-3-12 12:20:20' '2006-3-13 12:20:20'就好了．当然拉，也可以用相对时间格式，就是比目前时间的相对值，有个前移后移的问题，很简单的．这里特别需要注意的是：记录到ＳＱＬ数据库的时间都是格林威治时间，和中国的东８区有８个小时的时间差，也就是说记录的时间比本机ＰＣ时区晚８小时，这一点我们在测试是尤其重要．因为你是时间不正确，可能数据就没有显示，而导致你怀疑连接／命令／记录的有效性访问SQL数据库的方法过程描述.这和访问普通的数据库的方法大致上是相同,唯一的就是由于WINCC的数据是经过了压缩的.1:定义连接字符串,就是前面所讲到的.2:创建ADODB的CONNECTION对象,在VB中直接用CREATEOBJECT(ADODB.CONNECTION)函数,在ASP的VB脚本中,需要使用内置SERVER 对象创建CONNECTIONG对象.3:打开到数据库的连接,使用CONNECTION的OPEN函数4:创建COMMAND对象,并定义COMMAND对象采用用CMDTEXT方法,表明将要使用命令文本的方式来获取数据记录.5:创建RECORDSET对象,并用COMMAND对象的返回记录集填充这个记录集.6:RECORDSET对象的数据就可以被你任意的使用了查询过程值归档和用户归档的ＳＱＬ语句TAG:R,'变量名１','起始时间','终止时间' where条件-----------------------------------------------这就是怪怪的SQL语句，在ADO下，会出错！解决了肯定设法要给200分的，关键有没有双料精英呀，这年头“计算机”与“工控”都会的不好找呀。
VB6.0 OPC server
为了方便用户使用组态王OPC SERVER的功能，对组态王的实时数据进行访问，组态王提供了KINGVEWCLIEN.dll供用户进行使用，方便了用户的编程。
此接口可以支持VB、VC、DELPHI（未进行测试）访问。
提供的接口如下：int StartCliend(char* node);//与组态王OPC SERVER建立连接//返回错误码int ReadItemNo();//得到组态王OPC中列出的项目总数//返回组态王OPC中列出的项目总数int GetItemNames(char* sName,WORD Index);//得到某个项目的名称//返回错误码，sName 将返回组态王的项目的名称，wItemId为用户写入的其要取的变量的索引号//其为ReadItemNo返回的范围内的某个数（0<Index<=ReadItemNo()) int AddTag(BSTR sRegName,WORD *TagId,WORD *TagDataType);//将某个项目添加如采集列中//返回错误码,sRegName是要加入采集的项目名称，TagId项目采集的标识号，TagDataType项目的数据类型int WriteTag(WORD TagId,BOOL bVal,long lVal,float fVal,char* sVal);//返回错误码,TagId为要采集项目的标识号，其他为设定的数值，用户将根据变量的类型设定数值int ReadTag(WORD TagId,BOOL *bVal,long *lVal,float *fVal,char* sVal);//返回错误码，TagId为要采集的变量的表示号，其他为返回的数值，用户将根据变量的类型读取int StopCliend();//断开与组态王OPC的连接//返回错误码//////////////////////////////////////////////////////////////////////////////////// 错误码列表// 0 成功// -1 OPC SERVER已经被非法关闭// -2 找不道OPC SERVER的PROGID// -3 连接OPC SERVER不成功// -4 枚举ITEMS错误// -5 OPC SERVER没有定义ITEMS// -6 内存分配错误// -7 在向GROUP中加入ITEMS时出现错误// -8 未使用// -9 读ITEMS时出现错误// -10 不能识别的数据类型// -11 读ITEMS的质量戳时出现错误// -12 想ITEMS中写入数据时出现错误// -13 用户添加变量的变量名错误// -14 用户读取的变量序号越界使用方法：以上提供的函数，在整个的调用的过程中有相应的次序和功能，用户需要先调用STARTCLIEND 函数，启动与组态王的连接，用户可以通过此函数的NODE 参数，来控制与哪台计算机的组态王进行连接。
VB6.0 OPC server
为了方便用户使用组态王OPC SERVER的功能，对组态王的实时数据进行访问，组态王提供了KINGVEWCLIEN.dll供用户进行使用，方便了用户的编程。
此接口可以支持VB、VC、DELPHI（未进行测试）访问。
提供的接口如下：int StartCliend(char* node);//与组态王OPC SERVER建立连接//返回错误码int ReadItemNo();//得到组态王OPC中列出的项目总数//返回组态王OPC中列出的项目总数int GetItemNames(char* sName,WORD Index);//得到某个项目的名称//返回错误码，sName 将返回组态王的项目的名称，wItemId为用户写入的其要取的变量的索引号//其为ReadItemNo返回的范围内的某个数（0<Index<=ReadItemNo()) int AddTag(BSTR sRegName,WORD *TagId,WORD *TagDataType);//将某个项目添加如采集列中//返回错误码,sRegName是要加入采集的项目名称，TagId项目采集的标识号，TagDataType项目的数据类型int WriteTag(WORD TagId,BOOL bVal,long lVal,float fVal,char* sVal);//返回错误码,TagId为要采集项目的标识号，其他为设定的数值，用户将根据变量的类型设定数值int ReadTag(WORD TagId,BOOL *bVal,long *lVal,float *fVal,char* sVal);//返回错误码，TagId为要采集的变量的表示号，其他为返回的数值，用户将根据变量的类型读取int StopCliend();//断开与组态王OPC的连接//返回错误码//////////////////////////////////////////////////////////////////////////////////// 错误码列表// 0 成功// -1 OPC SERVER已经被非法关闭// -2 找不道OPC SERVER的PROGID// -3 连接OPC SERVER不成功// -4 枚举ITEMS错误// -5 OPC SERVER没有定义ITEMS// -6 内存分配错误// -7 在向GROUP中加入ITEMS时出现错误// -8 未使用// -9 读ITEMS时出现错误// -10 不能识别的数据类型// -11 读ITEMS的质量戳时出现错误// -12 想ITEMS中写入数据时出现错误// -13 用户添加变量的变量名错误// -14 用户读取的变量序号越界使用方法：以上提供的函数，在整个的调用的过程中有相应的次序和功能，用户需要先调用STARTCLIEND 函数，启动与组态王的连接，用户可以通过此函数的NODE 参数，来控制与哪台计算机的组态王进行连接。
VC和VB开发OPC客户端程序开发步骤
VC和VB开发OPC客户端程序开发步骤VC++和VB开发OPC客户端程序开发步骤双击自动滚屏发布者：admin发布时间：2009-11-18阅读：168次OPC客户端程序就是一种COM客户端程序，实现COM客户端程序编程模型需要六个基本步骤。
根据所在的程序设计环境或应用框架，有些步骤也许可以由编译程序自动实现。
在C++中，接口是通过指针引用的,而在Visual Basic中使用的默认接口。
（1）初始化COM库。
在C++中完成此功能的是调用COM库API（应用程序编程接口）函数CoInitialize或CoInitialzeEx。
Visual Basic中可以自动进行初始化。
（2）获得初始接口的指针。
在C++中，可以通过调用CoCreateInstance（用于本地）或CoCreateInstanceEx（用于远程）来获得接口指针。
在Visual Basic中，可以使用操作符New或CreateObject来获得接口引用。
（3）通过接口指针可以调用该接口的方法。
（4）如果要调用其它接口的方法，可以执行QueryInterface。
在C++中，通过接口指针调用QueryInterface。
在Visual Basic 6.0中，可以通过执行一个Set操作实现。
（5）在C++中，当不再使用接口指针时，要调用Release将其释放。
在Visual Basic 中，引用在其作用域外会自动释放，也可以显式地把它设置为“Nothing”。
（6）当用完COM时，你要调用CoUninitialize来取消COM初始化。
Visual Basic可以自动实现这一步。
通过这六个基本步骤的比较，就比较清楚地知道采用Visual Basic 开发环境是比较容易和方便的。
就开发语言本身而言，Visual Basic也比Visual C++语言容易掌握。
而且组态软件一般就有类似的Visual Basic脚本语言，对于本来就使用组态软件开发监控软件的用户来说，也是比较容易掌握Visual Basic开发OPC客户端程序。
VB通过OPC访问WinCC变量
'读取变量值放入text控件中
Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)
MyOPCServer.OPCGroups.DefaultGroupUpdateRate = 0
Set MyOPCGroup = MyOPCServer.OPCGroups.Add(Groupname)
MyOPCGroup.IsSubscribed = True
End Sub
如上的代码是在VB中编写的，在wincc中定义了tag1,tag2两个要访问的变量
ItemIDs(1) = "tag1tag2"
SNode = TXT_Node.Text
Call Connect("OPCServer.WinCC", SNode)
Call Add_Group("Internal tags")
应网友的要求本人做了一个VB通过OPC访问WinCC变量的例子，如下是源代码，
在windows2000+（wincc5.1或者wincc6.0sp1）上运行通过！！！
我有源程序，但我不能上传，斑竹可否帮我上传！
Option Explicit
Option Base 1
Dim WithEvents MyOPCServer As OPCServer
Erase ClientHandles()
用VB编写OPC客户端程序的方法
用VB编写OPC客户端程序的方法
刘莉
【期刊名称】《工业控制计算机》
【年(卷),期】2005(18)5
【摘要】OPC为工业现场设备通信提供了标准,本文介绍了OPC技术的原理,简要介绍了如何用Visual Basic开发OPC客户端程序.
【总页数】2页(P5-6)
【作者】刘莉
【作者单位】淮安信息职业技术学院电气系,223001
【正文语种】中文
【中图分类】TP31
【相关文献】
1.OPC客户端程序开发 [J], 陈胜
2.基于VB的OPC客户端程序设计与应用 [J], 郭建明;隋永强;黄珍
3.用VB编写OPC客户端访问WinCC的实现 [J], 秦胜利;王锬
4.监控系统中OPC客户端程序设计与实现 [J], 赵宴辉;聂亚杰;刘二平;朱春来
5.用VB编写OPC客户端程序实现数据共享的方法 [J], 李晓诗;赵志峰
因版权原因，仅展示原文概要，查看原文内容请购买。
WinCC上可以很方便的编写VB脚本和C脚本
WinCC上可以很方便的编写VB脚本和C脚本,但是调试起来还是比较费劲的;下面介绍一下个人的应用体会; 1,VB,最好安装VB6,先在VB6里面编写程序,然后再放到WinCC的脚本中,事半功倍,毕竟VB的调试非常方便;a,插入引用注意选择OLE Automation 和WinCC ；b,可以直接在VB里面调用WinCC的全部变量,内部,外部全可以：如下：c,在VB里面监视WinCC的变量：d,调试完毕,程序拷贝到WinCC 的脚本中;2,C语言系统提供了一个应用程序窗口,如下,只要把他拖到画面窗口即可：2,使用Printf函数,把需要调试的内容打印出来；3,效果如下：希望对大家有点用处;下面内容来自网络,感谢原文作者;Vbs 操作wincc画面脚本总结一：不使用变量单纯的操作界面1.操作某个画面中控件的属性如总窗体下的画面窗口2画面窗口Sub OnClickByVal ItemDim objCircleDim screennameDim pwnameSet objCircle= ScreenItems"圆1"= 60Set screenname="Home1" creenItems"画面窗口2"Set value=2.更改画面窗口的对象Sub OnClickByval ItemDim opObjectSet opObject= "Home1".ScreenItems"画面窗口2"=""End Sub3.设置文本Set titleTxt= "Home1".ScreenItems"静态文本2"=+"EF" //获取文本的值并追加字符字符串函数VB的字符串截取函数有Left字符串,n,返回字符串前N个字符；Mid字符串,p,n,从第p个字符开始,向后截取N个字符；right字符串,n,返回字符串的最后n个字符;用WinCC读取VB的数据的方法一DDE中的步骤：1、新建一个“标准EXE”工程2、设置窗体Form1的LinkMode属性为1 - Source, 一定要设定为13、在Form1上添加一个文本框控件Text1,将其Text属性设为text14、保存工程：工程名为5、生成WinCC的步骤：1、新建一单用户项目2、在变量管理器中添加Windows DDE驱动3、在DDE下新建连接NewConnection,在其属性对话框中：Computer Name：不设置Application：VBDDETopic：Form1VB中窗体名其它不作改动4、在此连接下新建一有符号16位整型变量Tag1,在其地址选择框中：条目名称：Text1 窗体控件名称数据类型Data Type：SWORD要与变量类型一致5、新建一个画面：6、在画面中添加一个IO域：与Tag1动态连接,更新周期为：根据变化,输出格式为s99997、保存画面联机调试：1、先运行或者在VB设计器中运行工程2、后激活WinCC项目3、此时IO域值与Text1值总是保持一致无论你在哪一方改动用WinCC读取VB的数据的方法二OLEVB文本框的代码：private sub text1_changeDim wincc As Object '定义wincc为对象Dim Var As Integer '定义wincc变量Set wincc = CreateObject"WinCC-Runtime-Project" '创建wincc运行对象Call "Var", '将VB变量值写入WINCC变量,变量名称要与WINCC变量名称完全一致,要区分大小写end sub在WINCC中建立内部变量var,类型要与VB一致,在画面中加入IO显示即可; WinCC脚本应用脚本的应用给WinCC项目带来了极大的灵活性和开放性;通过使用脚本可以完成一些WinCC 基本组态无法实现的功能;从版本V6起,WinCC同时提供了C 和VB 两套脚本系统,使脚本功能更加丰富、易用;首先C脚本功能实在是太强大了,除了系统提供的标准函数和系统函数外,还可以直接调用API函数,再加上可以直接使用ODK函数,,就连VBS中的Method调用也可以通过特别的办法实现,可谓是无所不能;当然缺点也是有的,不支持自动列出函数或者方法,编写程序多有不便;自版本V6起又增加了VB脚本,它使用起来较为简单,而且入门很快;VBS自身的功能并不强,除了一些基本的函数和WinCC自身的对象比如,剩下的功能全部都得通过COM组件进行扩展,比如我们很熟悉的Excel、fso、ws 等等,通过这些组件使得WinCC访问Windows的接口得以增加,但是访问WinCC底层东西却没有比如用户登陆、报表打印等,这是VBS美中不足的地方,希望下一版本能够改进,^_^;VBS的另外一个弱点就是无法直接调用API函数,只能通过其他的方法解决;网上常见的方法应该是通过先注册再调用,比如：Dim UserWrapSet UserWrap = CreateObject"DynamicWrapper"' Call MessageBoxA, first register the API function"", "MessageBoxA", "I=HsSu", _"f=s", "R=l"' now call the functionNull, "MessageBox ANSI", _"From DynaWrap Object", 3dynwrap的下载地址我已经找不到了,大家可以上网搜索;另外安装DriveMonitor 后就会有这个文件,详细用法在DriveMonitor帮助信息中也可以找到;另外我试过利用Excel代为声明,VBS调用Excel的宏来实现,这是一篇我写的关于VBS结合EXCEL调用API函数的心得总结,内容太长我就不贴了,直接见附件,附件DOC附有本文档用到的Excel文件、VBS文件以及C函数;全局Ｃ脚本里面对ＰＬＣ的值进行读取和更新,有对数据库的操作,但有的时候发现设备不动作,点击按钮进入状态界面用于显示PLC的状态,观察PLC的值;此时设备就会继续动作,按钮中未写任何脚本,只是用直接连接来给一个内部变量赋值以用于切换画面怀疑是全局脚本中对数据库的操作阻塞了脚本的运行,不知道是不是原因啊为什么点击按钮后又能解除呢恳请高人帮忙啊/quote不知道您使用的是全局脚本项目函数,还是全局动作呢如果在画面中调用的是全局项目函数,应该属于画面的脚本线程,切换画面的时候,重新启动新的画面周期,执行该画面中的脚本,前一画面中未执行的脚本队列被释放;如果您怀疑是数据库的操作阻塞了进程,您可以在脚本中屏蔽掉操作数据库的代码,观察是否还出现阻塞的现象；也可以在您的全局脚本中加入printf函数,输出到GSC诊断窗口中,判断是否发生阻塞;一般来说,如果您在一个项目中组态的动作包括全局动作或画面中周期调用的动作不能被正确或及时地处理,例如,动作的触发周期为2秒钟,但是执行该脚本所需要的时间为5秒钟,这样大量动作累积起来,不能处理的动作被输入队列;如果在脚本队列中的任务数目达到了5000,那么路径“:\Siemens\WinCC\Diagnose”下的WinCC“ ”的诊断文件可能会显示错误消息“s cript: More than 5000 actions in work”;详细信息请参见如下链接：或者;另外,关于WinCC对C脚本的诊断方法有很多,以下几种仅供参考,在WinCC的帮助文档中可以找到更多详细的内容：运行系统：提供关于所有全局脚本动作的动态特性信息;诊断：按调用的顺序输出printf 指令,可以将变量的数值和错误信息等输出到诊断窗口;工具：WinCC 自带的诊断工具“” 对故障和性能问题进行了详细的分析,关于如何使用诊断工具“APDiag”来调试C脚本,请参见如下链接：;全局Ｃ脚本里面对ＰＬＣ的值进行读取和更新,有对数据库的操作,但有的时候发现设备不动作,点击按钮进入状态界面用于显示PLC的状态,观察PLC的值;此时设备就会继续动作,按钮中未写任何脚本,只是用直接连接来给一个内部变量赋值以用于切换画面怀疑是全局脚本中对数据库的操作阻塞了脚本的运行,不知道是不是原因啊为什么点击按钮后又能解除呢恳请高人帮忙啊请问高人一个问题：两个全局C脚本,其中一个被阻塞了,另一个会怎样,是不是也会被阻塞多个全局脚本是独立的单线程吗/quote虽然WinCC的全局脚本对应于进程- Global s cript Runtime与画面中的脚本分别运行在不同的进程,但是全局脚本的各个动作同时运行在同一个线程中,其中一个动作发生阻塞,会影响另外一个动作;可以设计两个全局脚本动作,进行如下的测试：动作1：每隔2秒钟执行一次,变量1加1;动作2：每隔2秒钟执行一次,变量2加1,使用Sleep函数延迟5秒钟;结论：使用输入\输出域显示两个变量,两个变量都是大约每隔5秒钟加1如果没有Sleep函数,两个变量都是大约每隔2秒钟加1;因此,全局脚本的多个动作是互相影响的;。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB6.0开发WinCC的OPC客户机实例[ 来源：机电论文| 类别：技术| 时间：2009-4-8 9:42:34 ] [字体：大中小]关键词：OPC VB6.0 WinCC上位机WinCC是西门子公司在自动化领域采用最先进的技术与微软公司在共同开发的居于世界领先地位的工控软件。
WinCC即WINDOWS CONTROL CENTER （视窗控制中心）。
WinCC是一个功能强大的全面开放的监控系统，既可以用来完成小规模的简单的过程监控应用，也可以用来完成复杂的应用。
在任何情况下WinCC都可以生成漂亮而便捷的人机对话接口，使操作员能够清晰地管理和优化生产过程。
它集成的OPC(OLE for process control)服务器使得过程数据可由其它应用程序(OPC客户机)访问。
WinCC在安装时提供了OPC的客户端控件: Siemens OPC DAAutomation 2.0( SOPCDAAuto.dll), 在WINCC的帮助中，有Siemens OPC DAAutomation 2.0使用的简略帮助，但说得不很详细，我在使用VB6.0开发WinCC的OPC客户机中碰到不少问题，现一并写出来，与大家共享。
希望起到抛砖引玉，举一反三的作用。
一、开发实例背景：我厂包装机BE电气改造后，由原来了单片机、直流调试板、温度控制板等控制改为带有通讯端口PLC、变频器、温控仪等控制，上位机监控软件为WinCC。
在控制系统中，变频器、温控仪的控制信号通过串口、OPC客户机接入上位机WinCC，报警信号接入PLC。
其硬件组态结构如图一OPC开发要求：①通过WinCC建立内部变量Tag(1)，Tag(2)，Tag(3),Tag(4)……；在视图窗口建立相应了I/O输入输出域。
通过更改WinCC中I/O域的值，来设定或更改变频器、温控仪等的参数。
②通过VB开发了串口驱动程序，读取变频器、温控仪等的参数，通过OPC控件把值传递给WinCC中的I/O域。
二、VB6开发WinCC的OPC客户机具体步骤：1、打开VB6，建立如图二窗体：其中，文本框组Text4.text为写入WinCC内部变量名称；文本框组Text5.text 为显示相应了WinCC内部变量值；文本框组Text8.text为写入期望了WinCC内部变量值。
单选框为OPC连接成功标志。
3个命令按钮分别为“连接”，“断开”，“退出”。
2、OPC的连接先在工具栏中“工程\引用”将近Siemens OPC DAAutomation 2.0加入，然后开始定义全局变量。
在本程序中，我使用了一个OPC组进行OPC访问，所以定义了全局变量。
我们要首先定义OPC服务类型与计算机结点名。
定义OPC组与OPC标签组。
并定义OPC的标签数组与值数，注意，值数组一定要设为Variant。
Option ExplicitOption Base 1 ‘这数组必须由1开始，不能由0开始Const ServerName = "OPCServer.WinCC" OPC的类型Dim NodeName As String 结点名，即计算机名Dim WithEvents MyOPCServer As OPCServer OPC服务Dim WithEvents MyOPCGroup As OPCGroup OPC组Dim MyOPCGroupColl As OPCGroupsDim MyOPCItemColl As OPCItems OPC标签组Dim MyOPCItems As OPCItemsDim MyOPCItem As OPCItemDim ClientHandles(1) As Long 句柄Dim ServerHandles() As LongDim Errors() As LongDim ItemIDs(4) As String 记录OPC的标签Dim ItemIDsValue(4) As Variant 存放OPC的值Dim GroupName As Variant在定义所有变量后，我们就要进行OPC连接了，要进行OPC连接之前,先要配置要访问的OPC标签名（即WinCC内部变量名），我们ItemIDs中加入相应的标签名，注意：这数组必须由1开始，不能由0开始。
配置好标签后就要进行OPC连接了。
如下面子程序：①ClientHandles1先配置名柄索引，这将在读取OPC标签的值时可要用到。
②生成OPC对象，③进行OPC标签连接此,OPC连接就成功了，我们可以对OPC进行读与写的操作了。
Private Sub Command1_Click()Dim ii As IntegerDim ClientHandles1(4) As LongFor ii = 1 To 4ClientHandles1(ii) = iiItemIDs(ii) = Text4(ii).Text 指明WinCC内部变量名称Next iiOn Error GoTo ErrorHandlerGroupName = "MyGroup"NodeName = Text1.Text 结点名，即计算机名Set MyOPCServer = New OPCServerMyOPCServer.Connect ServerName, NodeNameSet MyOPCGroupColl = MyOPCServer.OPCGroupsMyOPCGroupColl.DefaultGroupIsActive = TrueSet MyOPCGroup = MyOPCGroupColl.Add(GroupName)Set MyOPCItemColl = MyOPCGroup.OPCItemsFor ii = 1 To 4ClientHandles1(ii) = iiItemIDs(ii) = Text4(ii).TextMyOPCItemColl.AddItems 4, ItemIDs, ClientHandles1, ServerHandles, Errors 初始化OCP连接Next iiMyOPCGroup.IsSubscribed = TrueOption1.Value = True 连接成功标志Exit SubErrorHandler:MsgBox "Error: " & Err.Description, vbCritical, "ERROR" 连接发生错误End Sub3、OPC的标签读写对OPC标签的读可以通过ItemIDsValue(4)组的DataChange事件来读取。
该事件有多个参数：其中NumItems是指标签改变值的个数，ClientHandles是改变值的标签索引，ItemValues为改变值的数据，具体的意思是ClientHandles（ii）的值是其对应的标签数组的索引，其所指的OPC标签的值在ItemValues(ii)中。
一般来说，刚连接上时，该事件会把全部所要求访问的OPC标签值全部读取过来（顺序不一，要通过ClientHandles索引），此后只有数据发生变化时才会触发该事件。
也只会传输发生了变化的数据，没有变化的数据不会出现在本事件的ItemValues中。
读取Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)Dim ii As LongFor ii = 1 To 4ItemIDsValue(ClientHandles(ii)) = ItemValues(ii) 对改变的值读入本数组Text5(ClientHandles(ii)).Text = ItemIDsValue(ClientHandles(ii))Next iiEnd Sub写入Private Sub Text8_Change(Index As Integer)Dim valuess(4) As VariantDim ii As LongFor ii = 1 To 4valuess(ii) = Text8(ii).TextMyOPCGroup.SyncWrite 4, ServerHandles, valuess, ErrorsNextEnd Sub对OPC的写可以有同步与异步之分，对于大量的数据传输，异步是更佳的选择，但对少量的数据传输，同步表现得更好。
4、OPC连接断开。
OPC客户端连接后要占用服务器资源，所以如果不需要使用OPC时，必须进行OPC连接断开。
断开的程序相当简单，释放资源即可。
如下：Private Sub Command2_Click()On Error Resume NextMyOPCGroupColl.RemoveAll ----------- 释放组和服务器对象MyOPCServer.Disconnect----------- 与服务器断开连接并且清除Set MyOPCItemColl = NothingSet MyOPCGroup = NothingSet MyOPCGroupColl = NothingSet MyOPCServer = NothingOption1.Value = False 连接成功标志End Sub至此,用VB 6.0开发WinCC的OPC客户机开发完毕。
三、测试运行在使用中，通过串口读取过来了值（例如温控器的实际温度）可以赋给VB 的变量（例如Text8(0).text）。
通过Private Sub Text8_Change(Index As Integer)函数，当串口读取了值有变化时，在WinCC组态界面中实际值I/O域中，就可以看到其实际值了（Tag(1)）。
也可通过WinCC的组态界面对设定值I/O域中进行参数设定，通过上述程序的Private Sub MyOPCGroup_DataChange (ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)函数，把WinCC 的设定值(Tag(2))赋给VB的变量（例如Text8(1). text），再通过串口通讯把值写入（例如温控器的设定值）。