Wincc8.1 vbs脚本

通过 VBS 脚本获取当前画面名称时，如果直接使用 @SCREEN 只能获取到默认的屏幕对象名称，而不是实际的画面名称。要获取实际的画面名称，可以试试这样操作：使用 HmiRuntime.BaseScreenName 函数；HmiRuntime.BaseScreenName 是一个预定义的 VB 函数，可以返回当前画面的名称，示例代码如下：
Sub OnClick(ByVal Item)
    Dim screenName
    screenName = HmiRuntime.BaseScreenName
    MsgBox "当前画面名称是：" & screenName
End Sub；
如果需要获取当前画面窗口的父画面名称，可以通过 Parent 属性逐级向上查找。例如：
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
    Dim Mycircle
    Set Mycircle = ScreenItems("圆1")
    MsgBox Mycircle.Parent.Parent.Parent.Parent.Parent.Parent.Parent.ObjectName
End Sub；
这个方法适用于多层嵌套的画面结构，通过逐级访问父对象来获取更上层的画面名称。有一点需要注意：如果使用 Parent 属性，需要根据实际的画面嵌套层级调整代码。