Firefighter
Mitglied
Hi ich hab wieder ein problem. ich will mal ein bisschen was über die Funktion "mciSendString" lernen. das wollte ich anhand eines programmes ausprobieren, das mir alle möglichen sounds aufzeichnet. das mit dem micro funktioniert ja ganz gut, aber was muss ich ändern, damit es mir den sound direkt von der soundkarte aufzeichnet?:-|:-|:-|
Hier der Code fürs micro:
PS: Ja ich weiß, der ist direkt aus dem internet kopiert aber ich arbeite mich jetzt langsam durch die befehle
Hier der Code fürs micro:
Code:
Public Class Form1
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, _
ByVal ReturnString As String, ByVal ReturnLength As Integer, ByVal Callback As Integer) As Integer
Dim Path As String = "Test.wav"
Dim rs As String
Dim cb As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Record" Then
Button1.Text = "Stop"
Button2.Enabled = False
rs = New String(" ", 128)
Call mciSendString("Open New Type waveaudio Alias capture", rs, 128, cb)
Call mciSendString("record capture", rs, 128, cb)
Else
Button1.Text = "Record"
Button2.Enabled = True
Call mciSendString("Stop capture", rs, 128, cb)
Call mciSendString("save capture " & Path, rs, 128, cb)
Call mciSendString("Close capture", rs, 128, cb)
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Record"
Button2.Text = "Play"
Button2.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
My.Computer.Audio.Play(Path, AudioPlayMode.Background)
Button1.Enabled = True
End Sub
End Class
PS: Ja ich weiß, der ist direkt aus dem internet kopiert aber ich arbeite mich jetzt langsam durch die befehle