在timer事件里写Dim s As String
s = String(256, Chr(0))
mciSendString "status media mode", s, Len(s), 0 '返回状态
If Left(s, 7) = "stopped" Or Left(s, 2) = "停止" Then
;;;;;;
;;;;;;;;
;;;;;;;
end if
s = String(256, Chr(0))
mciSendString "status media mode", s, Len(s), 0 '返回状态
If Left(s, 7) = "stopped" Or Left(s, 2) = "停止" Then
;;;;;;
;;;;;;;;
;;;;;;;
end if
具体可以看看我的《MCI Command String总览》文章(在CSDN文档中心里)