Простое воспроизведение звука

[_User_]

Поместив данный скрипт в кубик "Запустить процесс", можно легко воспроизводить все звуковые форматы для которых в системе есть кодек.
Переменные БАСа:
[[FULL_PATH_PLAY_FILE]] - полный путь к аудио файлу
[[PLAY_VOLUME_LEVEL]] - громкость воспроизведения (0 - 100 %)

@echo off
cscript //nologo "%~f0?.wsf" //job:VBS
exit /b %errorlevel%
----END OF BATCH CODE---
<package>
    <job id="VBS">
        <script language="VBScript">
            With CreateObject("WMPlayer.OCX")
                .url = "[[FULL_PATH_PLAY_FILE]]"
                .controls.play
                .settings.volume = [[PLAY_VOLUME_LEVEL]]
                Do
                    WScript.Sleep 100
                Loop Until .playState = 1
            End With
        </script>
    </job>
</package>

P.S. Разместил в разделе поддержка, т.к. здесь проще найти встроенным поиском ("лайфхаки БАС" так разросся, что там это не сразу найдешь).

[kingsize]

это для этого ?

https://youtu.be/pPfKri_29lY

[_User_]

@kingsize
Вот же надо было потрудиться ради поиска этого фрагмента.

[kingsize]

@_User_ В нашем деле это самое главное - потрудиться поискать :)

[Q_Q]

Лучше в делитесь скриптами перенести

[Νικήτας]

Думаю в лайфхаках ему более уместно

[_User_]

@Νικήτας
Модератор уже сказал свое слово :) (переместил тему). Думаю ему виднее где удобнее.

[Fox]

@_User_ said in Простое воспроизведение звука:

@Νικήτας
Модератор уже сказал свое слово :) (переместил тему). Думаю ему виднее где удобнее.

В лайфхаках вы можете разместить ссылку на эту тему. Это дополнит лайфхаки без дублирования содержания

[aliver]

@_User_ спасибо за данный метод, то что нужно

При прогонах возникла потребность в этом, чтобы подловить проблемный момент. И чтобы не сидеть пыриться в монитор часами, возникла идея просто поставить какой-то звук. Сработало супер)

[_User_]

Этим скриптом в кубике "Запустить процесс" можно воспроизводить любое количество файлов подряд, БЕЗ пауз:

@echo off
cscript //nologo "%~f0?.wsf" //job:VBS
exit /b %errorlevel%
----END OF BATCH CODE---
<package>
    <job id="VBS">
        <script language="VBScript">
            mp3Array = Array([[PLAY_LIST]]) 'плейлист
            With CreateObject("WMPlayer.OCX")
                For i = Lbound(mp3Array) to Ubound(mp3Array)
                    .url = mp3Array(i)
                    .controls.play
                    .settings.volume = [[PLAY_VOLUME_LEVEL]] 'громкость
                    Do
                        WScript.Sleep 100
                    Loop Until .playState = 1
                    WScript.Sleep 500 'пауза между файлами плей-листа
                Next
            End With
        </script>
    </job>
</package>

Переменные БАСа:
[[PLAY_LIST]] - плей лист. Строка формата: "файл1","файл2","файл3",... (файлы с полным путем, в кавычках).
[[PLAY_VOLUME_LEVEL]] - громкость воспроизведения (0 - 100 %)