int xxx1;
xxx1=MessageBox(NULL,"sdgsdgsdgdsgsdg","tishi",MB_OKCANCEL);
SetTagDWord("xxxxxx",xxx1); //Return-Type: BOOL




Sub OnClick(ByVal Item)
Dim xxx1
Dim objTag
xxx1=MsgBox("SHUTDOWN",vbOKCancel,"VbOKCancel")
'VBS129
Set objTag = HMIRuntime.Tags("xxxxxx")
objTag.Write xxx1
End Sub


但我还是想用WINCC的窗口，那样可以定制信息或数据，请大家帮忙！