WinCC 读写WINCC变量VB6.0

 

直接调用WINCC的组件进行标签的读写操作.这样可以省去很多事，不用使用OPC了，自己想把什么写到组态里，从组态里读出来数据都非常的方便   读写函数如下 Private Sub Command1_Click()     Dim prtrun     Dim tag0     Dim WinCC As Object '定义wincc为对象     Set WinCC = CreateObject("WinCC-Runtime-Project")     prtrun = WinCC.SetValue("NewTag_1", Text1(0).Text)     prtrun = WinCC.SetValue("NewTag_2", Text1(1).Text)     prtrun = WinCC.SetValue("NewTag_3", Text1(2).Text)     prtrun = WinCC.SetValue("NewTag_4", Text1(3).Text)     prtrun = WinCC.SetValue("NewTag_5", Text1(4).Text)     prtrun = WinCC.SetValue("NewTag_6", Text1(5).Text)     prtrun = WinCC.SetValue("NewTag_7", Text1(6).Text)     prtrun = WinCC.SetValue("NewTag_8", Text1(7).Text)     '先写入一个值，再读回它,判断有没有写进去,由此来判断WINCC是不是在运行之中     prtrun = WinCC.GetValue("NewTag_1")     If prtrun = 111 Then         MsgBox ("与WinCC通讯成功！")         Set WinCC = Nothing     Else         MsgBox ("与WinCC通讯失败！请将WinCC设置为运行状态！")         Set WinCC = Nothing     End If End Sub