vbs脚本弹窗语音提醒

① 怎样用wincc VBS全局脚本做弹出窗口

用切换变量前缀的方式来做，画面窗口的变量前缀用VBS来变换，脚本如下：
Dim pic

Set pic=ScreenItems("画面窗口1") '获取当前画面里的对象"画面窗口1"
pic.CaptionText="标题文本"
pic.TagPrefix="变量前缀"
pic.ScreenName ="画面名"
pic.Visible=True '设置显示

② vbs脚本播放音乐并弹出对话框按确定停止音乐

请看代码:

OnErrorResumeNext
DimWS,C,Player,File
SetWS=WScript.CreateObject("WScript.Shell")
C=Chr(34)
File="C:xxx.mp3"
'请在双引号中输入音乐文件的路径.
Player=WS.ExpandEnvironmentStrings("%ProgramFiles%")&"WindowsMediaPlayerwmplayer.exe"
WS.RunC+Player+C+""+C+File+C,0
MsgBox"音乐正在播放...",64,"注意"
WS.Run"taskkill/f/imwmplayer.exe",0

③ VBS脚本如何弹出带选择的窗口。

MyVar=MsgBox ("您是否真的希望……",vbYesNo + vbExclamation,"请选择")
If MyVar=vbYes Then
WScript.Echo "选择是"
ElseIf MyVar=vbNo Then
WScript.Echo "选择否"
End if

'参考Script56.chm MsgBox 函数