求一个WindowsMediaPlayer属性问题

Question

老是躺在床上看电影，看完后又要起来关电脑，天气冷了真不方便，用别人的定时关机程序也不好，如遇到电影在缓冲，结果没放完就关了，麻烦。自己做了个小软件，用来播放服务器上的电影，要做到播放完成后自动关机，现在只剩最后一个问题没解决，因为我用的是WindowsMediaPlayer控件来播放，我怎样知道是否播放完成了啊？？？希望高手们给个代码，不胜感激。另可节约感冒药20元，愿以100分相送。

Answer 1

这样看看～Private Sub WindowsMediaPlayer1_StatusChange()
    Debug.Print WindowsMediaPlayer1.Status    If WindowsMediaPlayer1.Status = "已停止" Then
        '自己添加代码    End If
End Sub

Answer 2

我播一段MP3
Status是这样变化的:正在连接...
正在连接...
正在打开媒体...
正在播放: 320 千比特/秒
正在播放: 320 千比特/秒
已完成
打开媒体
已停止
另外～
用的是WMP 9

Answer 3

WindowsMediaPlayer 下面那些控制条一定要显示吗？有没有办法自己做？

Answer 4

去控制条的代码：
WindowsMediaPlayer1.uiMode = "none"也可以直接在『自定义』里面改『控件布局』～

Answer 5

完整的可以看这里：
http://www.msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/anch_winmedsdk.asp主要是那个Windows Media Player Object Model

Answer 6

播放完成……这样应该可以了～ ^ ^Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
    If WindowsMediaPlayer1.playState = wmppsStopped Then
        '代码
    End If
End Sub