Option Explicit

Function action

Dim changya_start

Set changya_start=HMIRuntime.Tag("changya_start")

Dim changya_stop

Set changya_start=HMIRuntime.Tag("changya_stop")

Dim NewTag_1

Set NewTag_1=HMIRuntime.Tag("NewTag_1")

NewTag_1.Read

If NewTag_1.Value > 100 Then

changya_start.Read

changya_start.Write 1

changya_stop.Read

changya_stop.Write 0

Else

changya_stop.Read

changya_stop.Write 1

changya_start.Read

changya_start.Write 0

End If

End Function

 帮忙看下这段代码有问题吗？觉得挺简单的，但就是全局脚本不执行。这个是借鉴《WinCC通过VBS脚本实现自动变量记录》网址：http://www.docin.com/p-1244538858.html。wincc中计算机---启动，已经勾选，脚本已做触发。changya_start，changya_stop是wincc的内部变量，NewTag_1对应的是输入输出域。NewTag_1的值大于100，给changya_start赋值1，changya_stop赋值0；小于等于100，给changya_start赋值0，changya_stop赋值1。用内部变量changya_start，changya_stop的值作为wincc  online table表格记录的起始，终止条件