WINCC6.2

windows XP系统 WINCC6.2 用VBS脚本实现：
报警触发后报警列表中 报警优先级为0 则触发声音

以下是一个可能的实现方式：

[code]
\' 获取报警列表中所有处于活动状态的报警对象
Set allActiveAlarms = HMIRuntime.ActiveScreen.ScreenItems(\"AlarmList\").GetFilteredItems(\"ActiveAlarms\")

\' 遍历报警列表里的所有报警对象
For Each alarm In allActiveAlarms
  \' 判断报警的优先级是否为0
  If alarm.Priority = 0 Then
    \' 发送声音信号
    HMIRuntime.SoundAlarm \"Alarm\"
    \' 退出循环，只触发一次声音
    Exit For
  End If
Next
[/code]

需要在报警事件响应函数中加入以上代码，具体实现方法可以参考WINCC6.2官方文档。

报警事件响应函数是哪个
如何对应计算机内的声音文件

报警事件响应函数可以在WinCC的Tag中设置，一般使用VBScript实现。可以将以下代码复制到事件响应函数中：

[code]
Sub Alarm_OnEvent(ByVal AlarmObject)
  If (AlarmObject.Priority = 0) Then
    HMIRuntime.SoundAlarm \"Alarm\"
  End If
End Sub
[/code]

其中，`AlarmObject`是当前的报警对象。

至于计算机内的声音文件，可以将声音文件保存在WinCC的项目文件夹中，然后在WinCC中设置声音文件路径。具体操作步骤如下：

1. 在WinCC项目文件夹中创建一个名为`Sounds`的文件夹；
2. 将要使用的声音文件拷贝到`Sounds`文件夹中；
3. 在WinCC开发环境中打开声音配置对话框：`Options -> Sounds...`；
4. 点击`Browse`按钮选择声音文件，点击`OK`按钮保存设置。

此时，就可以在脚本中使用`HMIRuntime.SoundAlarm`方法播放声音文件了。注意，如果声音文件名称包含空格或其他特殊字符，需要使用引号将其括起来。例如：

[code]
HMIRuntime.SoundAlarm \"Alarm sound.mp3\"
[/code]