Общий раздел по AutoIt > ActiveX/COM (AutoItX)
Сменить разрешение ролика WMPlayer.OCX
(1/1)
Viktor1703:
Не пойму как сменить разрешение ролика или как называют, фрэйм по моему, или нет, не важно, когда воспроизводится ролик, то компонент берёт его разрешение и вставляет такого размера, как свои указывать? в MSDN вроде что то написано про это но так и не получилось у меня сделать, может у Вас получится MSDN WMPLayer.OCX
Код: AutoIt [Выделить]#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>
$WMPObj = ObjCreate("WMPlayer.OCX")
$hForm = GUICreate('', 800, 600)
;GUISetBkColor(0x000000)
GUICtrlCreateObj($WMPObj, 0, 0, 800, 600)
GUISetState()
With $WMPObj
.enableContextMenu = (True) ; Выключаем контекстное меню
.windowlessVideo = (False) ; Не знаю
.stretchToFit = (True) ; Что то про соответствие
.url = (@ScriptDir & "\Andrea - Dokrai.mp4") ; Загрузить медиа файл
.settings.volume = (100) ; Громкость звука
;.controls.Play() ; Воспроизведение файла
;.controls.currentPosition = (50) ; Перемотка
;.settings.Balance = 0 ; Баланс
;.settings.rate() ; Не знаю
;.fullScreen = True ; Режим Full Screen
;.enabled = True ; Не знаю
;.settings.autostart() ; Авто старт фала
;.settings.mute = False ; Вкл/Выкл звук
;.settings.playCount() ; Не знаю
.fullScreen = (False)
.uiMode = ('none')
EndWith
;$WMPObj.currentMedia.durationString ; Возвращает продолжительность файла
While True
WinSetTitle($hForm, "", "Прошло: " & $WMPObj.controls.currentPositionString()) ; Возвращаем время ролька (сколько прошло)
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
WEnd
XpycT:
На OSZone.net уже решили эту проблему [решено] Создать окно WMP в GUI
joiner:
Viktor1703
когда решишь эту проблему покажи реализацию..я слабо в этом понимаю, но скрипт с осзона криво работает
Навигация