Конкретный звук на запуск конкретной программы - CMD/BAT - Ответ 5742841

@if (true == false) @end /*
@echo off
 
:begin
cscript //nologo /e:jscript "%~f0" mcisend play %SystemRoot%\Media\tada.wav
echo PAUSE END     ‘Ґ©з*б %time:~0,-3%
echo  ```````````````````````````````````````````````
goto :begin
 
:: Конец CMD-части
goto :EOF */
 
 
 
 
 
WScript.mcisend(WScript.Arguments(0))
 
 
 
Option Explicit
Option Compare Text
 
Public Declare Function mciSendString& Lib "winmm.dll" Alias "mciSendStringA" _
    (ByVal lpstrCommand$, _
    ByVal lpstrReturnString$, _
    ByVal uReturnLength&, _
    ByVal hwndCallback&)
 
Private Const MCI_ALIAS As String = "Media_1" '// Любой псевдоним
 
Private myFSO   As Object
Private stdIn   As Object
Private stdOut  As Object
Private stdErr  As Object
 
 
Sub Main()
    On Error GoTo errH
    Dim strFileName$, arrCMD, ASync As Boolean
    
    Set myFSO = CreateObject("Scripting.FileSystemObject")
    Set stdIn = myFSO.GetStandardStream(0&) '// Устанавливаем связь с потоками
    Set stdOut = myFSO.GetStandardStream(1&)
    Set stdErr = myFSO.GetStandardStream(2&)
 
    arrCMD = ParseCMD() '// Получаем аргументы ком. строки
    
    '// Using Block
    If Not IsArray(arrCMD) Then Using: UnloadStream: Exit Sub '// Нет аргументов
    
    If arrCMD(0) = "stop" Then StopSnd '// Остановить (достаточно 1 аргумента)
    
    If UBound(arrCMD) = 0 Then Using: UnloadStream: Exit Sub '// Только 1 аргумент
    
    '// ASync Flag
    ASync = True
    If UBound(arrCMD) >= 2 Then If arrCMD(2) = "wait" Then ASync = False
    
    '// Check FileName for existence
    strFileName = arrCMD(1)
    If Dir$(strFileName) = vbNullString Then
        strFileName = App.Path & "\" & strFileName
        If Dir$(strFileName) = vbNullString Then '// Пытаемся найти в рабочем каталоге
            stdOut.writeline "WARNING: specified file does not exists!"
            stdOut.writeline "Anywhere, this command was sended to MCISendString API :)"
        End If
    End If
 
    Select Case arrCMD(0) '// main command
        Case "play"
            PlaySnd Chr(34) & strFileName & Chr(34), ASync '// Воспроизвести
        'Case "stop"
        '    StopSnd '// Остановить
        Case Else '// Another command
            MCISend Command()
    End Select
    
    UnloadStream
    Exit Sub
errH:
    stdOut.writeline "CRITICAL ERROR: " & Err.Number & ". " & Err.Description
    Err.Clear
End Sub
 
Sub StopSnd()
    MCISend "Stop " & MCI_ALIAS '// Останавливаем воспроизведение
    MCISend "Close " & MCI_ALIAS '// Закрываем файл
End Sub
 
Sub PlaySnd(strFileName$, Optional ASync As Boolean = True)
        '// Закрываем файл.
        '// Если он не закрыт, воспроизведение будет продолжено с предыдущей позиции
        '// Seek не использую. Приводит к искажениям в начале воспроизведения на некоторых дорожках.
    MCISend "Close " & MCI_ALIAS
    MCISend "Open " & strFileName & " alias " & MCI_ALIAS '// Присваиваем алиас
    MCISend "Play " & MCI_ALIAS & IIf(ASync, "", " wait")
End Sub
 
Sub MCISend(lpstrCommand$)
    mciSendString lpstrCommand, vbNullString, 0&, 0&
End Sub
 
Function ParseCMD(Optional comm$) '// Парсер командной строки
    On Error GoTo errH
    Dim st, argv, arg, n&, a&
    
    If Len(comm) = 0 Then comm = Command()
    If Len(comm) = 0 Then Exit Function
 
    comm = Replace(comm, " " & Chr(34), Chr(34)) '// ( ")->(")
    comm = Replace(comm, Chr(34) & " ", Chr(34)) '// (" )->(")
    
    st = Split(comm, Chr(34))
    ReDim argv(0 To UBound(Split(Replace(comm, Chr(34), " "))))
    For n = 0 To UBound(st)
        If n Mod 2 = 0 Then '// Не в кавычках
            For Each arg In Split(st(n))
                argv(a) = arg
                a = a + 1
            Next
          Else '// в кавычках - не разбивать по пробелам
            argv(a) = st(n)
            a = a + 1
        End If
    Next
    ReDim Preserve argv(0 To a - 1)
    ParseCMD = argv
    Exit Function
errH:
    stdOut.writeline "CRITICAL ERROR: " & Err.Number & ". " & Err.Description
    Err.Clear
End Function
 
Sub Using()
    With stdOut
        .writeline ""
        .writeline "MCISendString. Console Sound Player."
        .writeline ""
        .writeline "Using:"
        .writeline App.EXEName & ".exe [play|pause|resume|stop] [FileName] {wait}"
    End With
End Sub
 
Sub UnloadStream()
    Set stdIn = Nothing
    Set stdOut = Nothing
    Set stdErr = Nothing
    Set myFSO = Nothing
End Sub