VBS播放声音没有对话

有没有办法在VBS中打开声音而没有对话？VBS播放声音没有对话

这是我的代码...

intAnswer = _ 
    Msgbox("Do you want to play welcome.mp3?", _ 
     vbYesNo, "Play Song?") 

If intAnswer = vbYes Then 
    Msgbox "Opening..." 
    `play %userprofile%/directory/welcome.mp3 with no dialogue` 
Else 
    Msgbox "Not opening..." 
End If

来源

2014-03-13 Carl479

您可以在VBScript中使用Windows Media Player的脚本对象，WMPlayer.OCX播放MP3文件。

Dim oPlayer 
Set oPlayer = CreateObject("WMPlayer.OCX") 

' Play audio 
oPlayer.URL = "C:\welcome.mp3" 
oPlayer.controls.play 
While oPlayer.playState <> 1 ' 1 = Stopped 
    WScript.Sleep 100 
Wend 

' Release the audio file 
oPlayer.close

来源

2014-03-13 13:18:18 Helen

+1已经测试过。很酷。 – Rich

对于迟到的回复很抱歉，但是如果MP3与程序位于同一目录下会发生什么情况？ – Carl479

@ Carl479：不知道我理解你的问题。你的意思是如果有可能放弃文件夹路径？是的：'oPlayer.URL =“welcome.mp3”' – Helen

VBS播放声音没有对话

回答

相关问题