主题：请问老师：如何实现定时播放音乐？

 

请老师根据时间（要精准到秒）星期（12345表示星期1--5，类推），播放附件中的音频，音频已自动复制到了Attachments目录下。

 

 Dim dAs Date = Date.now()
d.DayOfWeek=1
If d.hour & " : " & d.minute & " : " & d.second = DataTables("程序表").DataCols("时间")(0) Then
   
    Dim Proc As New Process
    Proc.File = ProjectPath & "Attachments\铃声-雅尼经典开场曲_特效音效(铃声).mp3"
    Proc.Start()
End If

谢谢老师的耐心指点。

请问FT可以在后台运行windowsmediaplayer吗？

谢谢老师。

convert(星期,'System.String') like '%" & i & "%'"

谢谢老师指点

请问老师：

一个电脑就没提示，操作成功，是.NET Framework 版本的原因吗？

老师：有点电脑发邮件成功了，说明代码没问题。

已解决，谢谢老师。