Sound von Windows Media Player aufnehmen / Systemsound aufnehmen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Gather.

    Sound von Windows Media Player aufnehmen / Systemsound aufnehmen

    Hallo liebes VB-Paradise.

    Ich suche schon seit ein paar Tagen nach einem Code und einer erklärung wie man den Sound von Windows Media Player aufnehmen kann. (bzw. den Sytemsound, schätz ich ma)

    Leider habe ich nichts passendes gefunden.

    Ich hoffe ihr könnt mir weiterhelfen.
    Also, bitte auch eine Erklärung zu dem Code (wenn möglich) damit ich mich weiterbilden kann. :)

    Danke im Vorraus.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Hi

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, _
    3. ByVal ReturnString As String, ByVal ReturnLength As Integer, ByVal Callback As Integer) As Integer
    4. Dim Path As String = "Test.wav"
    5. Dim rs As String
    6. Dim cb As Integer
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. If Button1.Text = "Record" Then
    10. Button1.Text = "Stop"
    11. Button2.Enabled = False
    12. rs = New String(" ", 128)
    13. Call mciSendString("Open New Type waveaudio Alias capture", rs, 128, cb)
    14. Call mciSendString("record capture", rs, 128, cb)
    15. Else
    16. Button1.Text = "Record"
    17. Button2.Enabled = True
    18. Call mciSendString("Stop capture", rs, 128, cb)
    19. Call mciSendString("save capture " & Path, rs, 128, cb)
    20. Call mciSendString("Close capture", rs, 128, cb)
    21. End If
    22. End Sub
    24. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    25. Button1.Text = "Record"
    26. Button2.Text = "Play"
    27. Button2.Enabled = False
    28. End Sub
    30. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    31. My.Computer.Audio.Play(Path, AudioPlayMode.Background)
    32. Button1.Enabled = True
    33. End Sub
    34. End Class



    Hätst du aber auch mit der Sufu finden können, der Code ist auch ohne Erklärung ganz verständlich.



    Grüße

    @ThuCommix habe ich benutz auch gefunden, funktioniert aber nicht.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

Facebook