使用 vbscript 播放声音文件 (MP3)

Question

有没有办法用 Visual Basic 脚本播放声音文件 (MP3)？

Set obj = CreateObject("WScript.Shell")
obj.run "C:/test.mp3"

还有一些其他方法也试过但没有用。

当脚本运行时，一个没有显示声音但没有错误。

Answer 1

With CreateObject("WMPlayer.OCX")
    .url = "C:\Test\test.mp3"
    .controls.play
    Do
            WScript.Sleep 100
    Loop Until .playState = 1
End With

Answer 2

正如@omegastripes 回答您的那样，只需检查您的 .mp3 所在的路径！

您也可以在线播放流:

With CreateObject("WMPlayer.OCX")
    .url = "http://94.23.221.158:9197/stream"
    .controls.play
    .settings.volume = 100
    Do
        WScript.Sleep 100
    Loop Until .playState = 1
End With

因此，如果您确定您的 mp3 文件位于此路径 C:\Test.mp3 中，只需将此行 .url="http://94.23.221.158:9197/stream" 替换为：.url="C:\Test.mp3" 你的代码可以这样写：

With CreateObject("WMPlayer.OCX")
    .url = "C:\Test.mp3"
    .controls.play
    .settings.volume = 100
    Do
        WScript.Sleep 100
    Loop Until .playState = 1
End With

Answer 3

您甚至可以这样做：

Dim oWmp : Set oWmp = CreateObject("Wmplayer.OCX")
oWmp.Url = "C:\test.mp3"
oWmp.OpenPlayer(oWmp.Url)

使用 vbscript 播放声音文件 (MP3)

Playing a sound file (MP3) with vbscript

vbscript

mp3