Web Radio player mit Aufnahme Funktion (benötige dringend hilfe !!!)

  • VB.NET

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

    Web Radio player mit Aufnahme Funktion (benötige dringend hilfe !!!)

    hi, ich habe ein webradio player zusammen gebastellt. nun wollt ich gern wissen ob es möglich ist eine aufnahme funktion mit zu intigrieren.
    sodass ich das live programm des jeweiligen senders aufnehme.

    wäre echt nett wenn mir da jemand einen quellcode posten kann :)

    ja gut ok. sorry hatte ich vergessen. also dies ist der code:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. AxWindowsMediaPlayer1.URL = "http://www.hotmixradio.fr/stream/hotmixradio-192.asx"
    5. End Sub
    7. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    8. AxWindowsMediaPlayer1.URL = "mms://vipnrj.yacast.net/encodernrj"
    9. End Sub
    11. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    12. AxWindowsMediaPlayer1.URL = "mms://vipnrj.yacast.net/nrj_webradio11"
    14. End Sub
    16. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    17. AxWindowsMediaPlayer1.URL = "http://ufg.impek.tv:80/"
    19. End Sub
    21. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    22. AxWindowsMediaPlayer1.URL = "http://srv04.bigstreams.de/bigfm-mp3-96"
    23. End Sub
    25. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    26. AxWindowsMediaPlayer1.URL = "http://lsd.newmedia.tiscali-business.com/bb/redirect.lsc?adid=0&stream=plrchannels/djbeats.wma&content=live&media=ms&token=3cdd54bb27088490e4567f127ad04946"
    27. End Sub
    29. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    30. AxWindowsMediaPlayer1.URL = "http://lsd.newmedia.tiscali-business.com/bb/redirect.lsc?adid=0&stream=plrchannels/nightwax.wma&content=live&media=ms&token=106ed2eb7c612585ee69e9f3a4ce914d"
    31. End Sub
    33. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    34. AxWindowsMediaPlayer1.URL = "http://lsd.newmedia.tiscali-business.com/bb/redirect.lsc?adid=0&stream=plrchannels/blackbeats.wma&content=live&media=ms&token=4e02575469fe3b2e65fe81edf7edcfac"
    35. End Sub
    37. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    38. AxWindowsMediaPlayer1.URL = "http://www.89.0rtl.de/webradio/rtl-high.m3u"
    39. End Sub
    41. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    42. AxWindowsMediaPlayer1.URL = "http://metafiles.gl-systemhaus.de/hr/youfm_2.m3u "
    43. End Sub
    45. Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click, Button19.Click
    46. AxWindowsMediaPlayer1.URL = "http://www.deepinside.co.uk/deepinside.asx"
    47. End Sub
    49. Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
    50. AxWindowsMediaPlayer1.URL = "http://www.hotmixradio.fr/stream/hotmixradio80-192.asx"
    51. End Sub
    53. Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
    54. AxWindowsMediaPlayer1.URL = "http://www.hotmixradio.fr/stream/hotmixradio90-192.asx"
    55. End Sub
    57. Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
    58. AxWindowsMediaPlayer1.URL = "http://www.hotmixradio.fr/stream/funkyhotmix-192.asx"
    59. End Sub
    61. Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    62. AxWindowsMediaPlayer1.URL = "mms://vipnrj.yacast.net/nrj_webradio04"
    63. End Sub
    65. Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
    66. AxWindowsMediaPlayer1.URL = "http://tx.sharp-stream.com/tune.php?c=planetrock&.wax="
    67. End Sub
    69. Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
    70. AxWindowsMediaPlayer1.URL = "mms://vipnrj.yacast.net/nrj_webradio01"
    71. End Sub
    73. Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
    74. AxWindowsMediaPlayer1.URL = "http://www.pulsradio.com/pls/puls-wmp.asx"
    75. End Sub
    77. Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
    78. AxWindowsMediaPlayer1.URL = "http://www.liquid.fm/trance-high.asx"
    79. End Sub
    81. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    83. End Sub
    84. End Class


    das ist der quellcode. der webradio player funktioniert natürlich. ich brauch jetzt nur noch nen quellcode damit ich die live aufnahmen aufnehmen kann.

    und noch ein bild vom player:

Facebook