Radio Streamer

1. offizieller Beitrag

    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:

    [autoit]


    #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

    [/autoit][autoit][/autoit][autoit]

    GUIDelete()
    Exit

    [/autoit]

    Einmal editiert, zuletzt von r1fLeX (19. November 2008 um 16:17)

    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 ;).

    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 :D

    greetz DJ