用VB编写OPC客户端访问WINCC
g ''记录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 StartClient()
Dim ItemNum As Integer
Dim TarnscationID As Long
Dim CanceID As Long
Dim ClientHandles1(100) As Long
Dim ii As Integer
On Error GoTo HANDLEeRROR
For ii = 0 To 100
ClientHandles1(ii) = ii 先配置名柄索引，这将在读取OPC标签的值时可要用到
Next ii
TarnscationID = 1
‘ NodeName = xProfile.GetValue("SYSTEM", "NodeName")
‘生成OPC对象，
Set MyOPCServer = New OPCServer
MyOPCServer.Connect ServerName, NodeName
Set MyOPCGroupColl = MyOPCServer.OPCGroups
MyOPCGroupColl.DefaultGroupIsActive = True
Set MyOPCGroupIn = MyOPCGroupColl.Add("MYGROUPIN")
Set MyOPCGroupOut = MyOPCGroupColl.Add("MYGROUPOUT")
Set MyOPCItemCollIn = MyOPCGroupIn.OPCItems
Set MyOPCItemCollOut = MyOPCGroupOut.OPCItems
‘进行OPC标签连接
If WriteItemIdex > 0 Then
MyOPCItemCollOut.AddItems WriteItemIdex, WatchDataWriteItem, ClientHandles1, ServerHandlesOut, ErrorsOut ''初始化OCP连接
MyOPCGroupOut.IsSubscribed = True
End If
If ReadItemIdex > 0 Then
MyOPCItemCollIn.AddItems Rea
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 StartClient()
Dim ItemNum As Integer
Dim TarnscationID As Long
Dim CanceID As Long
Dim ClientHandles1(100) As Long
Dim ii As Integer
On Error GoTo HANDLEeRROR
For ii = 0 To 100
ClientHandles1(ii) = ii 先配置名柄索引，这将在读取OPC标签的值时可要用到
Next ii
TarnscationID = 1
‘ NodeName = xProfile.GetValue("SYSTEM", "NodeName")
‘生成OPC对象，
Set MyOPCServer = New OPCServer
MyOPCServer.Connect ServerName, NodeName
Set MyOPCGroupColl = MyOPCServer.OPCGroups
MyOPCGroupColl.DefaultGroupIsActive = True
Set MyOPCGroupIn = MyOPCGroupColl.Add("MYGROUPIN")
Set MyOPCGroupOut = MyOPCGroupColl.Add("MYGROUPOUT")
Set MyOPCItemCollIn = MyOPCGroupIn.OPCItems
Set MyOPCItemCollOut = MyOPCGroupOut.OPCItems
‘进行OPC标签连接
If WriteItemIdex > 0 Then
MyOPCItemCollOut.AddItems WriteItemIdex, WatchDataWriteItem, ClientHandles1, ServerHandlesOut, ErrorsOut ''初始化OCP连接
MyOPCGroupOut.IsSubscribed = True
End If
If ReadItemIdex > 0 Then
MyOPCItemCollIn.AddItems Rea