windows - mcisendstring 重复功能不起作用

Question

运行下面的代码，视频不会重复，只是停在最后。它曾经工作过：

    dim moviewindow as picturebox
    dim filename as string= Chr(34) & "C:\test.mp4" & Chr(34)

    mciSendString("open " & filename & " type mpegvideo alias myMovie parent " & moviewindow.Handle.ToInt32 & " style child", vbNullString, 0, IntPtr.Zero)
    mciSendString("put myMovie window at 0 0 " & moviewindow.Width & " " & moviewindow.Height, vbNullString, 0, IntPtr.Zero)
    mciSendString("setaudio myMovie volume to 0", vbNullString, 0, IntPtr.Zero)
    mciSendString("play myMovie notify repeat", vbNullString, 0, IntPtr.Zero)

在 Windows 10 上，AMD 卡。所有图形驱动程序都是最新的。已安装 LAV 编解码器。

有任何想法吗？