Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для gregaz

Пользователь


Сообщения: 88
Благодарности: 19

Профиль | Отправить PM | Цитировать


Цитата 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
Источник

Отправлено: 10:20, 27-11-2010 | #18