Bablosoft

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

Moved Делитесь приложениями
  • _

    Поместив данный скрипт в кубик "Запустить процесс", можно легко воспроизводить все звуковые форматы для которых в системе есть кодек.
    Переменные БАСа:
    [[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. Разместил в разделе поддержка, т.к. здесь проще найти встроенным поиском ("лайфхаки БАС" так разросся, что там это не сразу найдешь).

    aliverA 1 Reply
    8
  • kingsizeK

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

    https://youtu.be/pPfKri_29lY

    _ 1 Reply
    1
  • _

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

    kingsizeK 1 Reply
    0
  • kingsizeK

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

    0
  • Q

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

    0
  • ?

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

    _ 1 Reply
    0
  • _

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

    FoxF 1 Reply
    0
  • FoxF

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

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

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

    0
  • aliverA

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

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

    „Уж лучше совсем не помышлять об отыскании каких бы то ни было истин, чем делать это без всякого метода.“ — Рене Декарт

    0
  • _

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

    @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 %)

    0