[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.