Windows Media Player - [97] :: Программы :: Компьютерный форум Ru.Board

кто использует WMP x64 на висте, уже наверное с грустью заметил, что UICE (программа для контроля WMP с помощью инфракрасного дистанционного управления) на этой системе не работает. но я нашёл другое решение - PC.Remote.Control.v4.0. эта программка работает с обоими версиями WMP, но к сожалению не поддерживает контроль WMP через ActiveX интерфейс. а без него невозможно задавать сложные комманды плэеру, типа "прыгни вперёд / назад на 5 секунд".

но и для этого есть решение - на оффсайте UICE всё ещё валяется устаревшая библиотека для WMP контроля чеез ActiveX. работает к сожалению только с х32-битной версией WMP, что поделаешь, но она тоже включена в висту х64

http://www.mediatexx.com/download/wmpuice.zip

регистрируем библиотеку в системе. пишем скрипты для WMP на vbscript-е и стартуем их через PC.Remote.Control, просто привязываем скрипты на харде к определённой кнопке на дистанционном управлении. скрипты выглядят так:

назад на 5 секунд:

Код:

Set wmp=CreateObject("wmpuice.wmpapp.1")
Set player=wmp.Core

pos=player.controls.currentPosition
if pos<=player.currentMedia.duration then
player.controls.currentPosition=pos-5
end if

вперёд на 5 секунд:

Код:

Set wmp=CreateObject("wmpuice.wmpapp.1")
Set player=wmp.Core

pos=player.controls.currentPosition
if pos<=player.currentMedia.duration then
player.controls.currentPosition=pos+5
end if

отключить:

Код:

ON ERROR RESUME NEXT
Set wmp=CreateObject("wmpuice.wmpapp.1")
if (not wmp.Core is nothing) then
Set player=wmp.Core
wmp.Close
end if

играть/остановить:

Код:

Set wmp=CreateObject("wmpuice.wmpapp.1")
Set player=wmp.Core

if (player.playstate=3) then
player.controls.pause()
else
player.controls.play()
end if

последняя функция срабатывает кстати всегда, даже сразу после старта плеера, шорткат CTRL+P в этом случае не сработает.

дополнительно можно включать плеер, открывать фуллскрин, включать субтитры и т.д.

Модерирует : gyra, Maz
gyra (14-01-2017 16:31): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101