Audio: Grabar lo que escucho y lo que digo

[pkj]

Puedes usar el Microsoft Multimedia Control 6.0
Este graba todo lo que tengas seleccionado como entrada en las propiedades de grabación de windows.

Un pequeño ejemplo.

Código vb:

Private Sub Form_Load()
  MMControl1.DeviceType = "waveaudio"
End Sub
 
Private Sub MMControl1_Done(NotifyCode As Integer)
  MMControl1.FileName = "c:\grabado.wav"
  MMControl1.Command = "Save"
  MMControl1.Command = "Close"
End Sub
 
Private Sub CmdGrabar_Click()
  MMControl1.FileName = "c:\grabado.wav"
  MMControl1.Command = "Open"
  MMControl1.Wait = False
  MMControl1.Notify = True
  MMControl1.Command = "Record"
End Sub
 
Private Sub CmdParar_Click()
  MMControl1.Command = "Stop"
End Sub
 

Feliz 2010