Kleiner Webradioplayer

    Hi,
    Lange ists her, aber endllich kann ich mal wieder ein Script vorstellen. Es ist nichts besonderes, aber tut was es soll, und lässt sich komplett über das Traymenü steuern. Es ist ein kleiner Webradioplayer, dem ich mal Harderbase TechnoBase und 1Live in die Senderliste gepackt habe... Sehts euch an, und staunt^^

    Spoiler anzeigen
    [autoit]


    ;Copyright by Jonathan Möwe
    ;~ #RequireAdmin
    #include <Misc.au3>
    #include <IE.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    if _Singleton("Skript",1) = 0 Then Exit
    Opt("TrayAutoPause",0)
    Opt("TrayMenuMode",1)

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

    $sendermenue = TrayCreateMenu("Sender")
    $harderbase = TrayCreateItem("HardeBase",$sendermenue)
    $technobase = TrayCreateItem("TechnoBase",$sendermenue)
    $1live = TrayCreateItem("1 Live",$sendermenue)
    TrayCreateItem("")
    $ueber = TrayCreateItem("Über")
    TrayCreateItem("")
    $exit = TrayCreateItem("Exit")

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

    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()
    $gui = GUICreate("EmbeddedWebControl-Test", 10, 10, 10,10)
    $GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 600, 360)
    GUISetState(@SW_HIDE,$gui)

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

    ;Adressen
    $harderbaseurl = "http://www.hardbase.fm/wmplayer.php"
    $technobaseurl = "http://www.technobase.fm/wmplayer.php"
    $1liveurl = "http://www.einslive.de/multimedia/livestream_popup/player_stream_mp3.html"

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

    TraySetToolTip("WebRadio 1.0" & @LF & "by Alexander Imka" & @LF & "Have Fun")
    While 1
    $nMsg = TrayGetMsg()
    Switch $nMsg
    Case $exit
    Exit
    Case $harderbase
    TraySetToolTip("WebRadio 1.0" & @LF & "Radio Sender wird geladen...")
    _IENavigate($oIE,$harderbaseurl,1)
    TraySetToolTip("WebRadio 1.0" & @LF & "Sender Geladen!" & @LF & "HarderBase" & @LF & "www.harderbase.fm")
    Case $technobase
    TraySetToolTip("WebRadio 1.0" & @LF & "Radio Sender wird geladen...")
    _IENavigate($oIE,$technobaseurl,1)
    TraySetToolTip("WebRadio 1.0" & @LF & "Sender Geladen!" & @LF & "TechnoBase" & @LF & "www.technobase.fm")
    Case $1live
    TraySetToolTip("WebRadio 1.0" & @LF & "Radio Sender wird geladen...")
    _IENavigate($oIE,$1liveurl,1)
    TraySetToolTip("WebRadio 1.0" & @LF & "Sender Geladen!" & @LF & "1 Live" & @LF & "www.einslive.de")
    Case $ueber
    MsgBox(64,"Copyright","Copyright by Jonathan")

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

    EndSwitch
    WEnd

    [/autoit]