Синхронное воспроизведение через mciSendString

play Music wait

'Стать сервером
 Public Sub becomeServer()
     Call reg_class
     dummy = CreateWindowEx(0, WINDOW_CLASS, vbNullString, 0, 0, 0, 0, 0, 0, 0, 0, ByVal 0)
 End Sub
 
'Обработка сообщений 
Private Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   If uMsg = WM_COPYDATA Then
         Dim cds As COPYDATASTRUCT, str As String
         Call CopyMemory(cds, ByVal lParam, Len(cds))
         ReDim buf(cds.cbData - 1) As Byte
         Call CopyMemory(buf(0), ByVal cds.lpData, cds.cbData)
         str = buf 'StrConv(buf, vbUnicode)
         Call gotMessageFromClient(str, wParam)
   End If
   WindowProc = DefWindowProc(hwnd, uMsg, wParam, lParam)
 End Function
 
 Public Sub gotMessageFromClient(ByVal str As String, Optional hwnd As Long)
     debug.print str
 End Sub

Public Function myMciPlayFile(aFile As String) As Long
    Dim mAlias As String
    
    mAlias = CStr(Int(Rnd * 100000))
    
    Debug.Print mciSendString("open " & Chr$(34) & aFile & Chr$(34) & " alias " & mAlias, 0&, 0&, 0&)
    mciSendString "play " & mAlias & " wait", 0&, 0&, 0&
    mciSendString "close " & mAlias, 0&, 0&, 0&
End Function

lDevID = mciGetDeviceID("waveaudio")
'затем 
rc = mciSendCommand(lDevID, MCI_SET, MCI_WAVE_OUTPUT, parms)

 Dim mAlias As String
 Dim parms As MCI_WAVE_SET_PARMS
 Dim rc As Long
 ' Specify the soundcard. This specifies the soundcard with a deviceID
 ' of 0. If you have a single soundcard, then this will open it. If you
 ' have multiple soundcards, the deviceIDs will be 0, 1, 2, etc.
 parms.wOutput = 1
 
 mAlias = CStr(Int(Rnd * 100000))
 mciSendString "open " & Chr$(34) & aFile & Chr$(34) & " alias " & mAlias, 0&, 0&, 0&
 lDevID = mciGetDeviceID(mAlias)
 rc = mciSendCommand(lDevID, MCI_SET, MCI_WAVE_OUTPUT, parms)
 If rc <> MMSYSERR_NOERROR Then Debug.Print "The command failed."
 mciSendString "play " & mAlias & " wait", 0&, 0&, 0&
 mciSendString "close " & mAlias, 0&, 0&, 0&