Hey Community,
habe folgendes Script geschrieben
Spoiler anzeigen
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Eigene Dateien\Downloads\Windows-media-player.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <IE.au3>
Opt("TrayMenuMode", 1)
#region ### START Koda GUI section ### Form=
If WinExists ( "Radio Streamer") Then
MsgBox (48,"Achtung","Radio Streamer läuft bereits!")
Exit
Else
$Form1 = GUICreate("Radio Streamer", 424, 112, @DesktopHeight / 2 - 100, @DesktopWidth / 2 - 250)
$zeigen = TrayCreateItem("Zeigen")
$hidden = TrayCreateItem("Verstecken")
TrayCreateItem("")
$exit = TrayCreateItem("Exit")
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("Hinz.", 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)
$slider = GUICtrlCreateSlider (350,84,70,20)
GUICtrlSetLimit(-1, 100, 0)
GUISetState(@SW_SHOW)
$Form1 = GUICreate("Hinzufügen", 136, 69, @DesktopWidth/ 2 - 50, 0,$WS_POPUP)
$Label1 = GUICtrlCreateLabel("Name", 0, 0, 32, 17)
$Label2 = GUICtrlCreateLabel("Url", 0, 22, 17, 17)
GUICtrlCreateInput("", 32, 0, 101, 21)
GUICtrlCreateInput("", 32, 20, 101, 21)
$OK = GUICtrlCreateButton("OK", 2, 44, 53, 21, 0)
$Beispiel = GUICtrlCreateButton("Beispiel", 70, 44, 53, 21, 0)
GUISetState(@SW_HIDE)
EndIf
#endregion ### START Koda GUI section ### Form=
TraySetState()
GUICtrlSetData ($slider,100)
While 1
$musik = GUICtrlRead ($slider)
SoundSetWaveVolume ($musik)
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Home
GUISetState (@SW_SHOW,$Form1)
GUISwitch ($Form1)
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 .au3 von http://www.forum.cp-g.net")
GUISetState(@SW_SHOW)
EndSwitch
$msg = TrayGetMsg()
Switch $msg
Case $exit
ExitLoop
Case $zeigen
WinSetState("Radio Streamer", "", @SW_SHOW)
WinActivate ("Radio Streamer")
Case $hidden
WinSetState("Radio Streamer", "", @SW_HIDE)
Case $OK
MsgBox (0,"","test")
EndSwitch
WEnd
GUIDelete()
Exit
Nun möchte ich das auch die Buttons der 2. GUi erkannt werden.
Wie tue ich das?
Das
GUISwitch
[/autoit]hat nichts gebrahct.