Hey,
habe grade ein wenig mein Radio Streamer erweitert. Nun wollte ich ein BIld in einem GUI erstellen..Aber es passiert nicht? Woran könnte das liegen?
Hier das Script
Spoiler anzeigen
#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Eigene Dateien\Downloads\Windows-media-player.ico
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
FileInstall("C:\Dokumente und Einstellungen\Dominik Schubert\Desktop\beispiel1.jpg", @TempDir & "beispiel1.jpg")
FileInstall("C:\Dokumente und Einstellungen\Dominik Schubert\Desktop\beispiel2.jpg", @TempDir & "beispiel2.jpg")
FileInstall("C:\Dokumente und Einstellungen\Dominik Schubert\Desktop\beispiel3.jpg", @TempDir & "beispiel3.jpg")
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)
$Form2 = 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)
$neuseite = GUICtrlCreateInput("", 32, 0, 101, 21)
$neuurl = GUICtrlCreateInput("", 32, 20, 101, 21)
$OK = GUICtrlCreateButton("OK", 2, 44, 53, 21, 0)
$Beispiel = GUICtrlCreateButton("Beispiel", 70, 44, 53, 21, 0)
GUISetState(@SW_HIDE)
$Form3 = GUICreate("Beispiel1", 116, 66, @DesktopWidth / 2 - 50, 0, $WS_POPUP)
GUICtrlCreatePic(@TempDir & "\beispiel1.jpg", 0, 0, 120, 90)
$ok1 = GUICtrlCreateButton("Ok", 2, 46, 53, 19, 0)
$weiter1 = GUICtrlCreateButton("------>", 60, 46, 53, 19, 0)
GUISetState(@SW_HIDE)
EndIf
#endregion ### START Koda GUI section ### Form=
TraySetState()
GUICtrlSetData($slider, 100)
If FileExists(@TempDir & "\settings.ini") Then
$ini = IniReadSection(@TempDir & "\settings.ini", "Radio Streamer")
If $ini[0][0] = 0 Then
Else
For $i = 1 To $ini[0][0]
GUICtrlSetData($List1, $ini[$i][0])
Next
EndIf
EndIf
While 1
$musik = GUICtrlRead($slider)
SoundSetWaveVolume($musik)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $ok1
GUISetState(@SW_HIDE, $Form3)
GUISetState(@SW_SHOW, $Form2)
Case $Home
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $Form2)
Case $Beispiel
GUISetState(@SW_HIDE, $Form2)
GUISetState(@SW_SHOW, $Form3)
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")
Else
_IENavigate($oIE, IniRead(@TempDir & "\settings.ini", "Radio Streamer", $seite, 0))
EndIf
Case $Stop
WinSetState("Radio Streamer", "", @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")
WinSetState("Radio Streamer", "", @SW_SHOW)
Else
GUISetState(@SW_SHOW)
EndIf
Case $Save
WinSetState("Radio Streamer", "", @SW_HIDE)
MsgBox(48, "Credits", "Credits gehen an r1fLeX von autoit.de")
WinSetState("Radio Streamer", "", @SW_SHOW)
Case $OK
GUISetState(@SW_SHOW, $Form1)
$neueseite = GUICtrlRead($neuseite)
$neueurl = GUICtrlRead($neuurl)
IniWrite(@TempDir & "\settings.ini", "Radio Streamer", "Seite1", $neueseite & " | " & $neueurl)
WinSetState("Hinzufügen", "", @SW_HIDE)
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)
EndSwitch
WEnd
GUIDelete()
Exit