<![CDATA[Серый форум — AXK: Проигрывание видео в GUI]]> https://forum.script-coding.com/viewtopic.php?id=15576 Thu, 06 Aug 2020 15:11:23 +0000 PunBB <![CDATA[Re: AXK: Проигрывание видео в GUI]]> https://forum.script-coding.com/viewtopic.php?pid=141500#p141500 Спасибо всем за ответы в моей теме.

]]> Thu, 06 Aug 2020 15:11:23 +0000 https://forum.script-coding.com/viewtopic.php?pid=141500#p141500 <![CDATA[Re: AXK: Проигрывание видео в GUI]]> https://forum.script-coding.com/viewtopic.php?pid=141486#p141486 ypppu, одна-две строчки здесь явно лишние.

files := [ "D:\Видео\MyFile1.mp4"
         , "D:\Видео\MyFile2.mp4" ]

Gui, Add, ActiveX, w600 h400 vMP, WMPlayer.OCX.7
for k, v in files
   MP.currentPlaylist.appendItem(MP.newMedia(v))
Gui, Show
MP.controls.Play()
Return

GuiClose:
   ExitApp
]]> Thu, 06 Aug 2020 10:23:50 +0000 https://forum.script-coding.com/viewtopic.php?pid=141486#p141486 <![CDATA[Re: AXK: Проигрывание видео в GUI]]> https://forum.script-coding.com/viewtopic.php?pid=141485#p141485 Завалялся у меня один пример. Брал, кажется, отсюда: AHK: Использование - GUI Control Types ActiveX.
В медиаплеер вместо пути к видеофайлу прописываем путь к файлу списка воспроизведения. Последний нужно как-то подготовить заранее.

<?wpl version="1.0"?>
<smil>
    <head>
        <meta name="Generator" content="Microsoft Windows Media Player -- 12.0.7601.23930"/>
        <meta name="ItemCount" content="2"/>
        <title>Безымянный список воспроизведения</title>
    </head>
    <body>
        <seq>
            <media src="1.wmv"/>
            <media src="2.wmv"/>
        </seq>
    </body>
</smil>

#Persistent
#SingleInstance, Force
SetBatchLines, -1
;file := "C:\Windows\Media\tada.wav"
file := "111.wpl"
Link = http://forum.script-coding.com


GUI, 1: Add, Edit, w200 h30 , GUI1 Some text
GUI, 1: Add, Button, w100 h30 , GUI1 Some button
Gui, 1: Color, EEAA99, 00FF00
Gui, 1:Add, ActiveX, w200 h200 vMP, WMPlayer.OCX
MP.url := file
Gui, 1:Add, ActiveX, w640 h480 vWB, Shell.Explorer
WB.Navigate(Link)
GUI, 1: -resize
Gui, 1: Color, EEAA99, 00FF00
Gui, 1: +Lastfound ; Делаем окно GUI "последним найденным" окном.
WinSet, TransColor, EEAA99
WinSet, TransColor, 00FF00
GUI, 1: Show, w800 h600, GUI1
;Sleep, 1000
WinSet, TransColor, EEAA99
WinSet, TransColor, 00FF00
WinSet, TransColor, FFFFFF

Return

GuiClose:
   WB := ""
   ExitApp
]]> Thu, 06 Aug 2020 08:11:40 +0000 https://forum.script-coding.com/viewtopic.php?pid=141485#p141485 <![CDATA[AXK: Проигрывание видео в GUI]]> https://forum.script-coding.com/viewtopic.php?pid=141483#p141483 Приветствую всех.

Скажите - как скриптом проиграть несколько видеофайлов подряд (по конкретным адресам) в GUI ?

]]> Thu, 06 Aug 2020 04:55:43 +0000 https://forum.script-coding.com/viewtopic.php?pid=141483#p141483