1

Тема: AXK: Проигрывание видео в GUI

Приветствую всех.

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

2

Re: AXK: Проигрывание видео в GUI

Завалялся у меня один пример. Брал, кажется, отсюда: 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

3 (изменено: teadrinker, 2020-08-06 21:52:32)

Re: AXK: Проигрывание видео в GUI

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
Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

4

Re: AXK: Проигрывание видео в GUI

Спасибо всем за ответы в моей теме.