hi,
ich hab mir einerseits einen eigenen code zusammengebastelt und auf der anderen seite das fertige script von der hilfe datei verwendet. anbei der source code. jedoch bleibt das gui leider grau.
Spoiler anzeigen
include <GuiConstantsEx.au3>
#include <GuiAVI.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]$Debug_AVI = False ; Check ClassName being passed to AVI functions, set to True and use a handle to another control to see it work
[/autoit] [autoit][/autoit] [autoit]Global $hAVI
[/autoit] [autoit][/autoit] [autoit]_Example1()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _Example1()
Local $hGUI, $sFile = "C:\Users\zeman\Desktop\rick.avi"
; Create GUI
$hGUI = GUICreate("(External 1) AVI Create", 800, 600)
$hAVI = _GUICtrlAVI_Create ($hGUI, $sFile, -1, 320, 240)
GUISetState()
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
[/autoit] [autoit][/autoit] [autoit]; Play the sample AutoIt AVI
_GUICtrlAVI_Play ($hAVI)
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
; Close AVI clip
_GUICtrlAVI_Close ($hAVI)
GUIDelete()
EndFunc ;==>_Example1
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode
$hWndFrom = $ilParam
$iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
$iCode = BitShift($iwParam, 16) ; Hi Word
Switch $hWndFrom
Case $hAVI
Switch $iCode
Case $ACN_START ; Notifies an animation control's parent window that the associated AVI clip has started playing
_DebugPrint("$ACN_START" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; no return value
Case $ACN_STOP ; Notifies the parent window of an animation control that the associated AVI clip has stopped playing
_DebugPrint("$ACN_STOP" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; no return value
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
Func _DebugPrint($s_text, $line = @ScriptLineNumber)
ConsoleWrite( _
"!===========================================================" & @LF & _
"+======================================================" & @LF & _
"-->Line(" & StringFormat("%04d", $line) & "):" & @TAB & $s_text & @LF & _
"+======================================================" & @LF)
EndFunc ;==>_DebugPrint