pcl_test

方法一、使用主从方式监控
方法二、开始时记录当前日期时间，循环中不断获取并判断当前日期时间与开始时记录下的是否相差5分钟以上
另外你的循环播放也不对，别问我怎么实现

pcl_test

Set wmp = CreateObject("wmplayer.ocx")
dt = now
Do
    wmp.URL = "123.mp3"
    Do Until wmp.playState = 1
        WSH.Sleep 1000
        If DateDiff("s",dt,now) >=20 Then
            flag = 1
            wmp.controls.stop() '延时20秒后关闭
            Exit Do
        End If
    Loop
    IF flag = 1 Then Exit Do
Loop
Msgbox "音乐已关闭"
复制代码

pcl_test

回复 8# doswork

Set wmp = CreateObject("wmplayer.ocx")
For i=1 To 5
  wmp.URL = "123.mp3"
  Do Until wmp.playState = 1
      WSH.Sleep 1000
  Loop
Next
Msgbox "音乐已关闭"
复制代码