VBScript Windows MediaPlayer

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

set bob= wscript.CreateObject("WMPlayer.OCX.7")                      
bob.settings.autoStart= True                                                     
bob.settings.volume= 100                      
bob.URL= ("C:Users09895Downloadstest.mid")
19
задан karel
04.01.2023 2:40 Количество просмотров материала 3335
Распечатать страницу

1 ответ

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

Wscript.Sleep 10000

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

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

MsgBox "Press OK to stop playback"

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

0
отвечен Syberdoor 2023-01-05 10:28

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх