直接調(diào)用WINCC的組件進(jìn)行標(biāo)簽的讀寫操作.這樣可以省去很多事，不用使用OPC了，自己想把什么寫到組態(tài)里，從組態(tài)里讀出來數(shù)據(jù)都非常的方便

讀寫函數(shù)如下

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)
    '先寫入一個值，再讀回它,判斷有沒有寫進(jìn)去,由此來判斷WINCC是不是在運(yùn)行之中
    prtrun = WinCC.GetValue("NewTag_1")

    If prtrun = 111 Then
        MsgBox ("與WinCC通訊成功！")
        Set WinCC = Nothing
    Else
        MsgBox ("與WinCC通訊失??！請將WinCC設(shè)置為運(yùn)行狀態(tài)！")
        Set WinCC = Nothing
    End If
End Sub