La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  1020 - COMO ACCESAR LA TARGETA DE SONIDO
Autor:  Sergio Salinas
quiero graficar en VB5 el sonido que entra a la tarjeta de sonido, con que instrucciones lo hago
De antemano gracias...
  Respuesta:  Gabriel Ruiz Saco
Lo que deseas hacer lo puedes implementar con la llamada a la declaración de la API de sndPlaySound Function
sndPlaySound reproduce cualquier archivo .WAV.

´ sección Declaraciones de un módulo o formulario, si es en formulario ponle delante Private.

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

ARGUMENTOS

lpszSoundName
La ubicación del archivo a reproducir.

uFlags
Según se espcifique, ocurrirá una u tora cosa:

SND_ASYNC = &H1
Reproducción asíncrona del archivo, se toca y continúa ejecutando mientras se olle.

SND_LOOP = &H8
Toca y toca y toca... y toca... y toca... hasta que le mandemos un cero

SND_NODEFAULT = &H2
Colocando esto no aparece sonido predeterminado de Windows al cerra

SND_NOSTOP = &H10
No deteniene ningún archivo para ejecutar el tuyo.

SND_NOWAIT = &H2000
N espera a que la tarjeta de sonido esté libre

SND_SYNC = &H0
Aquí el programa se esperá hasta que acaba el sonido

Ejemplo:

´ toca un archivo y se espera hasta que acaba

Dim x as Long
x = sndPlaySound("C:\Hola.waw", SND_SYNC)

´ combiene en el evento de cierre descargar la llamada, para ello

x=sndPlaySound("",SND_NODEFAULT) ´ no devuelve el sonido predeterminado al no encontrar el archivo ""