Option Explicit

Function action

Dim NewTag

NewTag=HMIRuntime.Tag("NewTag_1").Read

If NewTag > 100 Then

HMIRuntime.Tags("changya_start").Write 1

HMIRuntime.Tags("changya_stop").Write 0

Else

HMIRuntime.Tags("changya_start").Write 1

HMIRuntime.Tags("changya_stop").Write 0

End If

End Function

1、你的脚本：HMIRuntime.Tag应该是HMIRuntime.Tags，你写错了。把你的脚本改成我上面写的这个试试看

2、你原来的脚本可以直接在不同的位置插入msgbox函数显示不同的信息，运行后看最后一个提示信息是哪个，那么就是这个提示信息和下一个提示信息之间的脚本有问题，，然后才用二分法在它们的中间再插入msgbox，重复直到定位到有问题的地方。