[Problem] StreamRadio (Unerwartet Störung)
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
Code:
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
