Воспроизведение звукового файла (MP3) с помощью VBScript

Question

Есть ли способ воспроизвести звуковой файл (MP3) с помощью сценария visual basi c?

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

Есть и другие способы, которые, если попытаться, но они не сработали.

Один не отображал звук, но не имел ошибок при запуске скрипта.

Answer 1

Когда @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 2

With CreateObject("WMPlayer.OCX")
    .url = "C:\Test\test.mp3"
    .controls.play
    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)