[Problem] StreamRadio (Unerwartet Störung)

[Naji]

Hallo,

ich habe ein großes Problem ich habe mir ein StreamRadio gecoded (mein erstes tool) und hab es halt verteilt bei mir geht es aber bei keinem andren überall kommt eine unerwartet störung und dan halt dies mit Bericht Senden oder halt nicht. Biite um Hilfe:

Falls es einer am Source sieht wenn nicht unten ist das kompeltte Projekt

hier der Source

Public Class Form1


    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        AxWindowsMediaPlayer1.URL = ("http://dsl.technobase.eu/listen-dsl.asx")
        Label1.Text = "Playing: Technobase"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        AxWindowsMediaPlayer1.URL = ("http://mp3.hardbase.fm/listen.asx")
        Label1.Text = "Playing: HardBase"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxWindowsMediaPlayer1.URL = ("http://blackbeats.fm/listen.asx")
        Label1.Text = "Playing: BlackBeats"
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        AxWindowsMediaPlayer1.Ctlcontrols.play()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        AxWindowsMediaPlayer1.Ctlcontrols.pause()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Application.Exit()

    End Sub


    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value

        Label2.Text = Label3.Text & TrackBar1.Value


    End Sub


    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then

            AxWindowsMediaPlayer1.settings.mute = True

        Else

            AxWindowsMediaPlayer1.settings.mute = False

        End If
    End Sub
End Class

Projekt Download: http://ul.to/ma5owy


MFG TYD

[Kaspersky]

Spiel mal mit wmp.network.bufferingtime
(wobei wmp dein media control ist)

Hab auch solche probleme das der stream aufeinmal stoppt oder so.
Liegt wohl am puffern.