Wmp.controls.Pause
Wmp.controls.currentPosition := 0
Wmp.controls.PlayТо что в 28 последний кадр остаётся, это по твоему баг.
По-моему WMP - это один большой баг. 
#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Добавьте строчку
Player.Settings.SetMode("loop", true)
Странный эффект, в WMP из под винды или в большинстве других плееров в момент повторного проигрывания нет мелькания как в ActiveX.
]]>
Gui, Add, ActiveX, vMP, WMPlayer.OCX
MP.url := file ; путь к файлу
gui, show, hide
WP.Play
Остановка:
gui, destroyWM_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А как это все - без лишних окон сделать ?
Просто закрыть и все.