Hey leute,
ich habe mir ein kleines Programm gemacht mit dem ich ganz einfach Links von z.B YouTube abspielen kann das ganze geht über eine config.
Nur mein prob ist jetzt das die Links nicht nacheinander abgespielt werden sondern nur das wo momentan makiert ist...
Es gibt doch bestimmt eine möglichkeit es so zu machen oder?
Hier mal der Code
was jetzt auch noch ist bei der neuen Version von AutoIt funktioniert dieser nicht mehr...
#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