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 函數