1 Тема от Karam

  • Karam
  • Участник
  • Неактивен

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

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

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

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

2 Ответ от YMP

  • YMP
  • Разработчик
  • Неактивен

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

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


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

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

DynamicWrapperX

3 Ответ от teadrinker

  • teadrinker
  • Администратор
  • Неактивен

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

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

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
Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

4 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

5 Ответ от Karam

  • Karam
  • Участник
  • Неактивен

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

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

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

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

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

6 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

Karam пишет:

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

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