Question

是否可以使用可视化的基本脚本来播放声音文件（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）

3 个答案: