Серый форум — AHK: Воспроизведение одного звука из mp4

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (Malcev) — Wed, 06 Mar 2019 09:54:40 +0000

Не, никакие не тестировал.
Но у меня без глюков работает если в таймере прописать:

Wmp.controls.Pause
Wmp.controls.currentPosition := 0
Wmp.controls.Play

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (serzh82saratov) — Wed, 06 Mar 2019 08:32:06 +0000

Да уж, работает через одно место. Знаешь какие то плееры с API и.т.п.

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (Malcev) — Wed, 06 Mar 2019 02:56:11 +0000

Можно запускать таймер при событии начала воспроизведения, после чего подписку на событие прекращать.
А таймер уже будет запускать "Wmp.controls.currentPosition := 0".
Тебе же непрерывный цикл нужен, так что файл будет открываться только первый раз.

serzh82saratov пишет:

То что в 28 последний кадр остаётся, это по твоему баг.

По-моему WMP - это один большой баг.

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (serzh82saratov) — Wed, 06 Mar 2019 02:19:35 +0000

Таймер исходя из продолжительности?
На коротких роликах не айс, и при открытии файла, даже картинки, WMP очень прожорлив, будут просадки.
Также при открытии почему то начинают перерисовываться некоторые другие окна, например блокнот++, думаю это тоже часть большой нагрузки. В других плеерах такого не наблюдал.
То что в 28 последний кадр остаётся, это по твоему баг.

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (Malcev) — Tue, 05 Mar 2019 19:31:23 +0000

Через settimer?

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (serzh82saratov) — Tue, 05 Mar 2019 17:05:48 +0000

Так в конце не исчезает:

#SingleInstance Force
#NoEnv

File = w2v.mp4 

OnExit Wmpclose 
Global hWmp 

Gui, Margin, 0,0  
Gui +LastFound  +AlwaysOnTop -Caption
Gui Add, ActiveX, w111 h111 vWmp hwndhWmp, WmpLayer.OCX

ComObjConnect(Wmp, WmpEvents)

Wmp.uiMode := "none" 

Wmp.Url := File
Gui, Show, NA x0 y0
return   

Class WmpEvents 
{ 
	StatusChange(Wmp) { 
		If Wmp.PlayState = 3  ;	Playing
		{ 
			Height := Wmp.currentMedia.imageSourceHeight  
			Width := Wmp.currentMedia.imageSourceWidth
			winmove, ahk_id %hWmp%, , 0, 0, Width, Height 
			Gui, Show, NA w%Width% h%Height%
		}
	}    
}

esc::
Wmpclose:  
	Wmp.close
	ExitApp

Но если изменить размер, то исчезает.

winmove, ahk_id %hWmp%, , 0, 0, Width, Height-1

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (serzh82saratov) — Tue, 05 Mar 2019 16:42:21 +0000

Непрерывно следить когда текущая позиция совпадёт с концом, что то не очень.

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (Malcev) — Tue, 05 Mar 2019 16:28:19 +0000

Отслеживай конец и перематывай сам на начало.

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (serzh82saratov) — Tue, 05 Mar 2019 15:46:53 +0000

Точнее в момент окончания воспроизведения последний кадр пропадает (так же как и при однократном воспроизведении), то есть становится черная картинка.
Причём такого нет, если ActiveX в точности соответствует размерам видео, то есть по окончании воспроизведения остаётся последний кадр.

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (serzh82saratov) — Tue, 05 Mar 2019 13:34:26 +0000

teadrinker пишет:

Добавьте строчку
Player.Settings.SetMode("loop", true)

Странный эффект, в WMP из под винды или в большинстве других плееров в момент повторного проигрывания нет мелькания как в ActiveX.

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (teadrinker) — Fri, 22 Feb 2019 15:36:12 +0000

А GUI зачем?

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (felrok) — Fri, 22 Feb 2019 14:43:00 +0000


Gui, Add, ActiveX, vMP, WMPlayer.OCX
MP.url := file ; путь к файлу
gui, show, hide
WP.Play

Остановка:

gui, destroy

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (димитрий2) — Sat, 16 Feb 2019 10:53:11 +0000

teadrinker, вот сейчас все заработало.
Большое спасибо вам.

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (teadrinker) — Sat, 16 Feb 2019 10:50:11 +0000

Попробуйте так:

WM_COMMAND := 0x111, ID_FILE_PAUSE := 65403, ID_FILE_CLOSE = 65405
scriptName := "1.ahk ahk_class AutoHotkey"
DetectHiddenWindows, On
SetTitleMatchMode 2

if !WinExist(scriptName) {
   MsgBox, Окно не найдено!
   Return
}
PostMessage, WM_COMMAND, ID_FILE_PAUSE
Sleep, 100
PostMessage, WM_COMMAND, ID_FILE_CLOSE

Re: AHK: Воспроизведение одного звука из mp4

null@example.com (димитрий2) — Sat, 16 Feb 2019 10:44:23 +0000

teadrinker, теперь появилось окно "Закрывающий скрипт запущен".
Затем пишет "Окно 1.ahk обнаружено".
Затем пишет "0".
Затем опять пишет "0" - и звук перестает проигрываться и файл 1.ahk закрывается.

А как это все - без лишних окон сделать ?
Просто закрыть и все.