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播放聲音沒有對話

回答

相關問題