参考文章

https://www.sohu.com/a/572624139_120720030

实现思路

报警触发→触发动作→C脚本→语音播报=1→VB脚本

以下是远程开发的曲折过程

（

C读到变量，但是始终触发不了全局脚本VB。

据说全局脚本是单线程的，这种方式容易阻塞，只适合特小工程。

想了下，还不如通过云连接传给其他设备播放了。

放弃这种方式。

到现场一下调试就通了。

  MSG_CSDATA_STRUCT sM; // holds alarm info

  MSG_TEXT_STRUCT tMeld; // holds message text info

  CMN_ERROR pError;

if(mRT.dwMsgState == MSG_STATE_COME)
{

MSRTGetMsgCSData(mRT.dwMsgNr, &sM, &pError);

MSRTGetMsgText(0, sM.dwTextID[0], &tMeld, &pError);

SetTagBit("alarmComing",TRUE); //置位VBS脚本触发器

SetTagChar("alarmText",tMeld.szText); //报警消息文本

}

原文的VB代码有点问题，也重贴一下

Option Explicit
Function action

Dim speaker, alarmText

Dim alarmComing

alarmComing=HMIRuntime.Tags("alarmComing").Read

alarmText=HMIRuntime.Tags("alarmText").Read

If alarmComing = 1 Then

Set speaker = CreateObject("SAPI.SpVoice")

speaker.rate = 0 '语速

speaker.volume = 100 '音量

speaker.Speak alarmText

HMIRuntime.Tags("alarmComing").write 0

End If

End Function

windowsServer2019开启文本朗读

excel回车朗读