Серый форум — VBS: запустить звуковой файл без окна

Re: VBS: запустить звуковой файл без окна

null@example.com (alexii) — Tue, 01 Jan 2013 13:33:41 +0000

Karam пишет:

в ветке по ссылке новичку трудно разобраться, т.к. не хватает пояснений:

Спрашивайте.

Re: VBS: запустить звуковой файл без окна

null@example.com (Karam) — Tue, 01 Jan 2013 05:31:02 +0000

YMP, teadrinker, спасибо за помощь!
Вариант с "WScript.Sleep 5000" работает, но чувствуется задержка. Т.е. нужно подбирать оптимальное значение.
В варианте с

Do
   WScript.Sleep 100
Loop Until WMP.playState = 1

срабатывает лучше.
Спасибо за пояснения.

alexii, спасибо за ссылку. Извините, что не нашёл.
И всё-таки в ветке по ссылке новичку трудно разобраться, т.к. не хватает пояснений: как из длинного кода, который выполняет ряд действий, взять и оформить часть, которая нужна в конкретном маленьком случае.
В этом плане хочу поблагодарить YMP, его разъяснения, как правило, достаточно подробны.

Re: VBS: запустить звуковой файл без окна

null@example.com (alexii) — Mon, 31 Dec 2012 17:00:42 +0000

Karam, а местные разработки: VBScript: воспроизведение аудио (Страница 1) — Windows Script Host, HTA (VBScript, JScript) — Серый форум смотрели?

Re: VBS: запустить звуковой файл без окна

null@example.com (teadrinker) — Mon, 31 Dec 2012 15:11:02 +0000

Скрипт должен ожидать остановки воспроизведения:

Set WMP = WScript.CreateObject("MediaPlayer.MediaPlayer","WMP_")
WMP.Open "C:\WINDOWS\Media\Chimes.wav"
WMP.Play
Do
   WScript.Sleep 100
Loop Until WMP.playState = 1

Re: VBS: запустить звуковой файл без окна

null@example.com (YMP) — Mon, 31 Dec 2012 14:50:38 +0000

У меня так работает:


Set WMP = WScript.CreateObject("MediaPlayer.MediaPlayer","WMP_")
WMP.Open "C:\WINDOWS\Media\Chimes.wav"
WMP.Play
WScript.Sleep 5000

Не знаю, что именно делает свойство AutoStart, поэтому убрал его.

VBS: запустить звуковой файл без окна

null@example.com (Karam) — Mon, 31 Dec 2012 14:36:56 +0000

Прошу помочь с созданием скрипта.
Задача: создать скрипт, который запускает в фоновом режиме звуковой файл.
В инете нашёл такой код:

Set WMP = WScript.CreateObject("MediaPlayer.MediaPlayer","WMP_")
WMP.Open "C:\WINDOWS\Media\Chimes.wav"
WMP.AutoStart = true
WMP.Play
msgbox "текст"

Но в нём обязательна последняя строчка.
Без "Msgbox" этот скрипт не работает.
Но мне это не нужно.
Скрипт мне нужен для программы синхронизации ViceVersa. Там после синхронизации можно запустить скрипт - что синхронизация прошла будет подан звук (авторы программы этого не предусмотрели).
Если запускать вышеуказанный скрипт, то программа останавливается на этапе выполнения этого msgbox "текст". Видимо ждёт реакции пользователя, чтобы он нажал на кнопку "ОК". Хотя и окно в этом случае не появляется.
А если скрипт запустить просто через Enter, то окно появляется.