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
;Copyright by Jonathan Möwe
;~ #RequireAdmin
#include <Misc.au3>
#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
if _Singleton("Skript",1) = 0 Then Exit
Opt("TrayAutoPause",0)
Opt("TrayMenuMode",1)
$sendermenue = TrayCreateMenu("Sender")
$harderbase = TrayCreateItem("HardeBase",$sendermenue)
$technobase = TrayCreateItem("TechnoBase",$sendermenue)
$1live = TrayCreateItem("1 Live",$sendermenue)
TrayCreateItem("")
$ueber = TrayCreateItem("Über")
TrayCreateItem("")
$exit = TrayCreateItem("Exit")
_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)
;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"
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")
EndSwitch
WEnd