Тема: AXK: Проигрывание видео в GUI
Приветствую всех.
Скажите - как скриптом проиграть несколько видеофайлов подряд (по конкретным адресам) в GUI ?
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Приветствую всех.
Скажите - как скриптом проиграть несколько видеофайлов подряд (по конкретным адресам) в 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
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
Спасибо всем за ответы в моей теме.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться