前面一篇博客介绍了使用c脚本对按钮动作进行操作记录，本篇使用vbs实现同样的功能。假设有一个按钮作用是启动油泵，我们先在报警记录-消息表格中建立一条消息，消息编号1101，消息等级“系统无确认”，消息类型“操作员输入消息”，消息文本“操作员启动油泵”，其他参数默认。在这个按钮的鼠标点击事件中添加以下VBS脚本

Sub OnClick(ByVal Item)         
Dim MyAlarm
Set MyAlarm=HMIRuntime.Alarms(1101)
MyAlarm.State = 1
MyAlarm.Create

End Sub

保存后运行，当点击按钮时，报警空间就会记录下这个操作。

脚本中MyAlarm.State 有好几种数值，数值为1，表示有报警到来；数值为2表示有报警离开；数值5表示有报警带来并伴有注释；数值6表示有报警离开并伴有注释。如果希望有注释文本，还需要对MyAlarm.Comment属性赋值，如果细心的话会发现MyAlarm后面有好几个属性可以设置/读取，在本例里面，我们只需要一个就够了。