VLC in Gui

#include <GUIConstants.au3>
#include <VLC.au3>
#include <SliderConstants.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiSlider.au3>

_VLCErrorHandlerRegister()

Example()
Func Example()

; Setup Main GUI
$main_gui = GUICreate("My VLC Player", 800, 600, -1, -1)
$vlc1 = _GUICtrlVLC_Create(0, 0, 400, 250)

if $vlc1 = False then
    msgbox(0, "VLC UDF Example",    "_GUICtrlVLC_Create failed." & @CRLF & _
                                    "The most likely cause is that you don't have VLC installed." & @CRLF & _
                                    "Make sure VLC, and the ActiveX component, is installed.")
    Exit
EndIf

; Display the GUI.
GUISetState(@SW_SHOW, $main_gui)

    ; Loop until the user exits.
    While 1
       Switch GUIGetMsg()
          Case $GUI_EVENT_CLOSE
              ExitLoop

       EndSwitch
    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($main_gui)
EndFunc   ;==>Example

#include <VLC.au3> ;Findet man im oberen Beitrag
#include <GUIConstants.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

Opt("GUIOnEventMode", 1)
_VLCErrorHandlerRegister()


GUICreate("Stream", 500, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton")


;---------VLC Fenster----------Begin
 Local $aPos = WinGetPos("Stream")
$vlc = _GUICtrlVLC_Create(0, -20, $aPos[2], $aPos[3])
$path = @ScriptDir & "\stream.m3u" ;Pfad zur Datei (Hier eine *.m3u
$Stream = _GUICtrlVLC_Add($vlc, $path) ;Fügt die Datei zur VLC Playlist hinzu
_GUICtrlVLC_Play($vlc, $Stream) ;Spielt die VLC Playlist ab
;---------VLC Fenster----------End


GUISetState(@SW_SHOW) ;Fenster anzeigen


While 1
    Sleep(100)
WEnd


Func CLOSEButton()
   Exit
EndFunc