WinCC vbs脚本小结

① 结构变量共用画面
obj.TagPrefix = “XXXn”

② 报警筛选
obj.MsgFilterSQL = “Text2 LIKE ‘设备N报警’”

③趋势图
TrendControl.TrendIndex = 0/1/2
TrendControl.TrendTagName = “Parameterxx”

④报警
目的：只显示已进入的红色字体的报警，报警离开后控件上不显示。
方法：双击控件，如下
⑤ WinSock控件使用方法
功能：接收TCP/IP服务器发送的数据包。
代码：
1)连接按钮中：
Dim ObjSockClient
Dim cnvt

'获得当前窗口中的WinSock对象 
Set ObjSockClient = ScreenItems(“控件1”)
'Set cnvt = Createobject(“ADS.Arrayconvert”)

ObjSockClient.RemoteHost = “192.168.1.10”
ObjSockClient.RemotePort = 5000
If(ObjSockClient.State = 0)Or(ObjSockClient.State = 9)Or(ObjSockClient.State = 8)Then
HMIRuntime.Trace ObjSockClient.State&“连接失败,尝试重连！”&vbNewline
ObjSockClient.Close
ObjSockClient.Connect
Else
HMIRuntime.Trace “连接状态：”&ObjSockClient.State&vbNewline
End If

Dim a
HMIRuntime.Trace ObjSockClient.GetData(a)

Msgbox a

2）DataArrival事件
'接收到数据后会出发WinSock的DataArrival事件
HMIRuntime.Trace “触发接收数据事件！”&vbnewline
Dim ObjSockClient
'Dim cnvt
'Dim strreceive
'Dim strformrec
’
''获得当前窗口中的WinSock对象 
Set ObjSockClient = ScreenItems(“控件1”)
Dim a,b
a = “”
b = “”
ObjSockClient.GetData a
ObjSockClient.GetData b,vbString,100

HMIRuntime.Trace “a=”&a&vbNewline
HMIRuntime.Trace “b=”&b&vbNewline