#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Language=1043
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiStatusbar.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <wmp.au3>

			Opt("GUIOnEventMode", 1)
			Opt("TrayIconHide", 1)

Global $hGUI1


$hGUI1 = GUICreate("Test", 600, 250, -1, -1, $WS_SIZEBOX)
$oWMP = _wmpcreate(1, 1, 1, 600, 200);creates object
GUISetBkColor(0x000000)
_wmpvalue($oWMP, "nocontrols");hides controls
_wmploadmedia($oWMP, @ScriptDir & "\Voorbeeld.mp4");loads media
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState(@SW_SHOW)

With $oWMP
    Local $iEmergencyTimer = TimerInit()
    While .playState() = 9 ;Wait while playState = Transitioning (Preparing new media item)
        If TimerDiff($iEmergencyTimer) > 2000 Then ExitLoop
        Sleep(50)
    WEnd
    .settings.autoStart = False
    .controls.stop() ;Stop, to ensure, that they are at the beginning!
    .fullscreen = False
    .stretchToFit = True
    .settings.setMode('loop', True)
    .settings.playCount = 1000000
    .settings.rate = 1
    .uiMode = 'none'
    .settings.volume = 100
    .settings.mute = False
    .enableContextMenu = True
    .controls.play()
EndWith

$hstatus = _GUICtrlStatusBar_Create($hGUI1)

            Sleep(3000)

_guictrlstatusbar_settext($hstatus, @TAB & "Collecting...")

			Sleep(3000)

_guictrlstatusbar_settext($hstatus, @TAB & "Starting something. . . ! !)")

	        Sleep(3000)

_guictrlstatusbar_settext($hstatus, @TAB & "again some things...")

		    Sleep(3000)

_guictrlstatusbar_settext($hstatus, @TAB & "Well just have fun . . . . .")

	        Sleep(3000)

While False
    Sleep(10)
WEnd
Exit

Func _Exit()
    Exit
EndFunc ;==>_Exit