Цитата Vagac:
Как скриптом проиграть видеофайл чтобы он открылся на полный экран. »
|
Цитата Vagac:
А со скриптом я понял что нормально с помощью AutoIt этого не реализовать »
|
Приблизительно так можно :
Код:
#include <GUIConstantsEx.au3>
$hForm = GUICreate('MyGUI',400,400)
$oWmp = _wmpcreate(1,5,5,390,240)
$oWmp.uiMode = "none"
$sFile = FileOpenDialog('Select Video File',"::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", 'Video Files (*.*)')
If Not $sFile Then
Exit
EndIf
_wmploadmedia( $oWmp, $sFile )
While $oWmp.controls.currentPosition = 0
Sleep(100)
WEnd
$oWmp.fullscreen = "true"
$btExit = GUICtrlCreateButton("Exit", 340, -1,'', '')
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE,$btExit
Exit
EndSwitch
WEnd
Func _wmpcreate($show, $left, $top, $width = 100, $height = 100)
$oWMP = ObjCreate("WMPlayer.OCX")
If $oWMP = 0 Then Return 0
$oWMP.settings.autoStart = "False"
If $show = 1 Then
GUICtrlCreateObj($oWMP, $left, $top, $width, $height)
EndIf
Return $oWMP
EndFunc
Func _wmploadmedia( $object, $URL, $autostart = 1 )
$object.URL = $URL
While Not $object.controls.isAvailable("play")
Sleep(1)
WEnd
If $autostart = 1 Then $object.controls.play()
EndFunc
Источник