hey leute,
ich habe hier ein kleinen YouTube - Musik Player gemacht und zwar funktioniert das ganze so.
Man kann in einer config die Links eintragen und dann ließt das PRogramm die Links aus und öffnet ein versteckten Browser dieser spielt dann das lied ab.
Nur will ich es jetzt so machen, das ich über das Programm die Config änderen kann und das die liste von alleine durchlauft...
Kann mir da jemand helfen!?
[autoit]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$Form1 = GUICreate("Video Stream Player by Michi2q", 306, 421, 193, 139)
$RadioBox = GUICtrlCreateCombo("", 15, 130, 270, 15, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUISetBkColor(0xABABAB)
$Group1 = GUICtrlCreateGroup("Player", 8, 8, 289, 89)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
GUICtrlSetColor(-1, 0xC0DCC0)
$play = GUICtrlCreateButton("Abspielen", 16, 32, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$stop = GUICtrlCreateButton("Stopp", 96, 32, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$lauter = GUICtrlCreateButton("Lauter", 16, 64, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$low = GUICtrlCreateButton("Leiser", 96, 64, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$Mute = GUICtrlCreateButton("Ton aus", 176, 64, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$Button6 = GUICtrlCreateButton("Links eintragen", 176, 32, 83, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Playliste", 8, 104, 289, 305)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
GUICtrlSetColor(-1, 0xC0DCC0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
;GUICtrlSetState(-1, $GUI_DISABLE)
; INET BEFEHLE
$oIE = _IECreateEmbedded ()
GUICtrlCreateObj($oIE, -30, -30, 0, 0)
; Inet Load
If not FileExists("Stream.urls") Then
MsgBox(16, "Radio-Streamer", "Die URL Liste Existiert Nicht!")
GUICtrlSetState($play, $GUI_DISABLE)
GUICtrlSetState($RadioBox, $GUI_DISABLE)
Else
$Liste = ""
$Sections = IniReadSection("Stream.urls", "Sender")
For $i = 1 to $Sections[0][0]
$Liste &= $Sections[$i][0] & "|"
Next
GUICtrlSetData($RadioBox, $Liste)
EndIf
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Mute
Send("{VOLUME_MUTE}")
Case $low
Send("{VOLUME_DOWN}")
Case $lauter
Send("{VOLUME_UP}")
; Musik Abspielen
[/autoit][autoit][/autoit][autoit]Case $play
If not GUICtrlRead($RadioBox) = "" Then
$sSender = IniRead("Stream.urls", "Sender", GUICtrlRead($RadioBox), "")
GUICtrlSetState($play, $GUI_DISABLE)
GUICtrlSetState($stop, $GUI_ENABLE)
GUICtrlSetState($RadioBox, $GUI_DISABLE)
_IENavigate($oIE, $sSender)
EndIf
Case $stop
_IENavigate($oIE, "about:blank")
GUICtrlSetState($play, $GUI_ENABLE)
GUICtrlSetState($stop, $GUI_DISABLE)
GUICtrlSetState($RadioBox, $GUI_ENABLE)
EndSwitch
WEnd
