Vb.net 如何判断WMP何时播放完视频？

背景：

我有一个项目，我使用触摸屏在旁边的电视上播放什么视频。两者都连接到同一台计算机，运行VB应用程序，然后在电视上打开Windows media player中的视频。我们正在按Process.start打开视频文件，并有一个带有文件位置的字符串

问题：

我需要在选中时播放两次视频，然后在播放两次初始视频后返回主视频。如何确定视频何时结束播放？视频都是相同的文件类型，但仅仅使用文件大小来确定长度是行不通的。相同长度的两个视频在文件大小上存在明显差异

所以要么我需要知道视频的长度，要么视频什么时候结束

提前谢谢

Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click, Button18.Click, Button19.Click, Button20.Click, Button21.Click, Button22.Click, Button23.Click, Button24.Click, Button25.Click, Button26.Click, Button27.Click, Button28.Click, Button29.Click, Button30.Click, Button31.Click, Button32.Click
    Dim bNum As Integer
    Dim temp As String
    Try
        MR = My.Computer.FileSystem.GetFiles("S:\A - All Other Sales Folders\Robots - All Files\YouTube Videos\Videos without Intro's\Material Removal")
        temp = Strings.Mid(sender.Name, 7)
        bNum = CInt(temp)
        Process.Start(MR(bNum - 17))
        wait(600) 'just have it go for 10 minutes unless they want to change videos, not the best solution here for a few reasons
        Process.Start("S:\A - All Other Sales Folders\Robots - All Files\YouTube Videos\Videos without Intro's\RobotClips_KUKA Presentation_05-13-09.wmv") 'video to play on loop
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

---

你能把代码的这一部分贴在加载它们的地方吗？当我编写类似的代码时，我使用了Process.Start（“S:\A-所有其他销售文件夹\Robots-所有文件\YouTube视频\Videos without Intro'S\RobotClips\u KUKA Presentation\u 05-13-09.wmv”），我们实际上并不是在表单中播放视频，而是调用文件。如果将流程存储在变量中，则可以执行

Process.WaitForExit（）

但不确定媒体播放器何时触发此命令。您也永远无法确定它是否会通过WMP在客户机上播放。