Hi Leute...
Ich bin dabei mir einen WebradioPlayer zu machen...
Jetzt hab ich ein Problem...
Nachdem man einen Sender hinzugefügt hat schließt das Programm sich danach...
Ich möchte aber dass sich nur die InputBox schließt und man gleich am eingentlichn Player weitermachen kann...
C
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$webradio = GUICreate("Webradioplayer | F6 hide/show F7 close", 386, 250, 482, 253)
GUISetBkColor(0x2B2B2B)
$IE = _IECreateEmbedded()
GUICtrlCreateObj($IE, 8, 112, 369, 137)
$ListeGUI = GUICtrlCreateList("", 8, 8, 209, 97)
GUICtrlSetData(-1,"")
$LoadGUI = GUICtrlCreateButton("Load", 248, 16, 41, 41)
$StopGUI = GUICtrlCreateButton("Stop", 312, 16, 41, 41)
$HinzufuegenGui = GUICtrlCreateButton("Hinzufügen", 248, 80, 105, 17, $WS_GROUP)
GUISetState(@SW_SHOW)
HotKeySet("{F6}", "_hide")
HotKeySet("{F6}", "_show")
HotKeySet("{F7}", "_exit")
#EndRegion ### END Koda GUI section ###
If not FileExists("Sender.ini") Then
MsgBox(16, "Radio-Streamer", "Die URL Liste Existiert Nicht!")
Else
$Liste = ""
$Sections = IniReadSection("Sender.ini", "Sender")
For $i = 1 to $Sections[0][0]
$Liste &= $Sections[$i][0] & "|"
Next
GUICtrlSetData($ListeGUI, $Liste)
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ListeGUI
Case $LoadGUI
If not GUICtrlRead($ListeGUI) = "" Then
$sSender = IniRead("Sender.ini", "Sender", GUICtrlRead($ListeGUI), "")
_IENavigate($IE, $sSender)
EndIf
Case $StopGUI
_IENavigate($IE,"about:blank")
Case $HinzufuegenGui
$Form1 = GUICreate("Sender hinzufügen", 369, 183, 192, 124)
GUISetBkColor(0x2B2B2B)
$Input1 = GUICtrlCreateInput("", 24, 40, 329, 21)
$Input2 = GUICtrlCreateInput("", 24, 96, 329, 21)
$Label1 = GUICtrlCreateLabel("Sendername", 24, 16, 120, 17)
$Label2 = GUICtrlCreateLabel("Senderadresse", 24, 72, 120, 17)
$Button1 = GUICtrlCreateButton("OK", 144, 136, 97, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
IniWrite("Sender.ini", "Sender", GUICtrlRead($Input1), GUICtrlRead($Input2))
If not FileExists("Sender.ini") Then
MsgBox(16, "Radio-Streamer", "Die URL Liste Existiert Nicht!")
Else
$Liste = ""
$Sections = IniReadSection("Sender.ini", "Sender")
For $i = 1 to $Sections[0][0]
$Liste &= $Sections[$i][0] & "|"
Next
GUICtrlSetData($ListeGUI, $Liste)
Exit
EndIf
EndSwitch
WEnd
EndSwitch
WEnd
Func _hide()
GUISetState(@SW_HIDE, $webradio)
HotKeySet("{F6}", "_show")
EndFunc
Func _show()
GUISetState(@SW_SHOW, $webradio)
HotKeySet("{F6}", "_hide")
EndFunc
Func _exit()
Exit 0
EndFunc
Alles anzeigen