VBScript Windows MediaPlayer

Question

Я пытаюсь изучить VBScript и не могу понять, что не так с этим кодом. Он должен воспроизводить MIDI-файл и установить громкость на 100 на компьютере. Это в Windows 7 VBScript на Блокнот. Проблема в том, что файл запускается и не выдает сообщение об ошибке, но не меняет громкость и не воспроизводит миди.

set bob= wscript.CreateObject("WMPlayer.OCX.7")                      
bob.settings.autoStart= True                                                     
bob.settings.volume= 100                      
bob.URL= ("C:\Users\9009895\Downloads\test.mid")

Answer 1

COM-объект WMPlayer, который должен воспроизводить MIDI-файл, уничтожается, как только сценарий завершается. Так что вам нужно либо подождать, пока файл midi находится с:

Wscript.Sleep 10000

где вместо 10000 вы положили (<3 секунды для инициализации> +) * 1000 (для миллисекунд)

Или, если вы хотите дать пользователю контроль над тем, когда его остановить:

MsgBox "Press OK to stop playback"

Что касается громкости, я думаю, что это просто установит громкость приложения WMPlayer на 100%, а не системное. Если вы хотите изменить системный том, вам, вероятно, понадобится дополнительный инструмент, например, nircmd (подробнее см. Здесь)