Habe einen kleinen Radio Streamer geschrieben.
Möchte gerne eure Meinung , Kritik und Lob hören!
Ggf auch Verbesserungs - und Erweiterungsvorschläge!
Vorschau:
[Blockierte Grafik: http://img3.imagebanana.com/img/2vc1yixb/streamer.JPG]
Download:
Link
Habe einen kleinen Radio Streamer geschrieben.
Möchte gerne eure Meinung , Kritik und Lob hören!
Ggf auch Verbesserungs - und Erweiterungsvorschläge!
Vorschau:
[Blockierte Grafik: http://img3.imagebanana.com/img/2vc1yixb/streamer.JPG]
Download:
Link
Sourcecode?
up sc plz
Habe die Background Farbe geändert und 2 Trayitems erstellt!
Würde mich freuen , wenn jemand so nett wäre und mir jemand 4 Buttons erstellt!
Sollten möglichst zu der GUI passen :-). Bekommst natürlich auch einen extra Platz in den Credits!
Warum wollt ihr den Sourcecode haben?
Aber gerne..hier:
#include <GUIConstants.au3>
#include <IE.au3>
#NoTrayIcon
Opt("TrayMenuMode", 1)
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Radio Streamer", 422, 112, 195, 125)
$zeigen = TrayCreateItem("Zeigen")
$hidden = TrayCreateItem("Verstecken")
GUISetBkColor(0xC0C0C0)
$List1 = GUICtrlCreateList("", 0, 14, 125, 97)
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
GUICtrlSetData(-1, "HardBase.fm|HouseTime.fm|TechnoBase.fm|TranceBase.fm")
$Label1 = GUICtrlCreateLabel("Wähle ein Radio aus.", 10, 0, 106, 13)
$Group1 = GUICtrlCreateObj($oIE, 126, 0, 297, 65)
$Home = GUICtrlCreateButton("Home", 130, 84, 47, 21, 0)
$Spielen = GUICtrlCreateButton("Spielen", 184, 84, 47, 21, 0)
$Stop = GUICtrlCreateButton("Save", 238, 84, 47, 21, 0)
$Save = GUICtrlCreateButton("Credits", 292, 84, 47, 21, 0)
_IENavigate($oIE, "http://www.autoit.de")
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=
TraySetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Home
_IENavigate($oIE, "http://www.autoit.de")
Case $Spielen
$seite = GUICtrlRead($List1)
If $seite = "TechnoBase.fm" Then
_IENavigate($oIE, "http://www.technobase.fm/wmplayer.php?Stream=http://DSL.TechnoBase.eu/listen-dsl.asx")
ElseIf $seite = "HardBase.fm" Then
_IENavigate($oIE, "http://www.hardbase.fm/wmplayer.php?Stream=http://mp3.hardbase.fm/listen.asx")
ElseIf $seite = "HouseTime.fm" Then
_IENavigate($oIE, "http://www.surfmusik.de/radio/housetime-fm,10832.html")
ElseIf $seite = "TranceBase.fm" Then
_IENavigate($oIE, "http://www.trancebase.fm/wmplayer.php?Stream=http://mp3.TranceBase.fm/listen.asx")
EndIf
Case $Stop
GUISetState(@SW_HIDE)
$msgbox = MsgBox(52, "Achtung", "Diese Datei kann man meines Wissens nur mit dem VLC Media Player öffnen!" & @CRLF & "Möchtest du fortfahren?")
If $msgbox = 6 Then
_IEAction($oIE, "saveas")
GUISetState(@SW_SHOW)
Else
GUISetState(@SW_SHOW)
EndIf
Case $Save
GUISetState(@SW_HIDE)
MsgBox(48, "Credits", "Credits gehen an r1fLeX von Autoit.de")
GUISetState(@SW_SHOW)
EndSwitch
$msg = TrayGetMsg()
Switch $msg
Case $zeigen
WinSetState("Radio Streamer", "", @SW_SHOW)
Case $hidden
WinSetState("Radio Streamer", "", @SW_HIDE)
EndSwitch
WEnd
GUIDelete()
Exit
Hallo,
sieht schon ganz gut aus, aber soweit ich das gesehen habe kann man später bei der fertigen .exe keine anderen Sender mehr hinzufügen oder? Das könntest du ja vllt noch mit einbauen ;).
Ok , werde ich machen!
Danke. Das überarbeitete Script werd ich gleich hochladen!
Also ich würde das nicht mit dem _IE machen ;), da würde das doch lieber direkt mit dem WindowsMediaPlayer - Objekt machen, denn das kann man wunderbar fernsteuern und man kann optisch seine eigenes Design erstellen ( eigene GUI etc. ), denn den WMP finde ich ziemlich hässlich
greetz DJ
Wie mache ich das den? =)
(bin grad etwas im Stress)