Private Sub Form_Load()
WindowsMediaPlayer1.URL = "d:\temp\dds.mp3" '音乐文件路径
Timer1.Interval = 1000 '定时器
End Sub
Private Sub Timer1_Timer()
If Time() = "14:23:45" Then '定时的时间
WindowsMediaPlayer1.Controls.play '播放
End If
End Sub
载入时设置:wmp.Controls.stop,
然后到特定时刻时:wmp.Controls.play就行了。
定时器里判断你想要的时间。