最近在网上查找关于wincc用VBS脚本调用第三方视频播放器的方法时看到一个帖子——http://wap.siemens.com.cn/service/answer/solved/201679.html

按照最佳答案的脚本运行了一下，还是不成功。最佳答案脚本如下：

Dim wsh
Set wsh = CreateObject("Ws cript.Shell")
player = "E:\Program Files\Tencent\QQPlayer\QQPlayer.exe"  '为我电脑上播放器程序的地址
video = "D:\abc.mp4"  '为要打开的视频文件的地址
path = player & " " & video
wsh.Exec path

在脚本诊断窗口可以看到原因是“player没有定义”。按照这个说法，video和path也没有定义。我尝试直接定义一下再运行，成功了。具体代码如下：

Dim wsh

Dim player

Dim video

Dim path

Set wsh = CreateObject("Wscript.Shell")

player = "C:\Program Files (x86)\Tencent\QQPlayer\QQPlayer.exe"

video = "C:\Windows\media\Alarm01.wav"

path = player & " " & video

wsh.Exec path

我使用的是QQ影音播放器，具体在实际项目中可能遇到一个文件播放完后自动播放后面文件的问题，或者播放完成后不自动关闭播放器。这个都可以在QQ影音软件里面设置。特分享一下。

另外在看西门子官方视频“WINCC跟我做”WinCC 7.4 SP1中实现声音报警的方法时——

 http://www.ad.siemens.com.cn/service/elearning/Course/1791.html

根据视频中的脚本运行出现一个问题：win10自带的媒体播放器成功弹出了，但是没有播放指定的文件。

具体脚本如下：

Dim sound

Dim objWshShell

sound = "C:\Windows\media\Alarm01.wav"

Set objWshShell=CreateObject("Wscript.Shell")

objWshShell.Run "wmplayer.exe /play /close" & sound,4

有没高手解释一下原因，我使用的是WinCC 7.3版本。