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

在计划、定时器那里，执行代码

Dim d As Date = Date.now()
Dim i= d.DayOfWeek
d = new Date(1900, 1, 1, d.Hour, d.Minute, d.Second)
'output.show("时间 = #" & d & "# and convert(星期,'System.String') like '%" & i & "%'")
Dim fdr As DataRow = DataTables("程序表").Find("时间 = #" & d & "# and convert(星期,'System.String') like '%" & i & "%'")
If fdr IsNot Nothing Then
'msgbox(2)
    Dim Proc As New Process
    Proc.File = ProjectPath & "Attachments\" & fdr("附件")
    Proc.Start()
End If

http://www.foxtable.com/webhelp/scr/0657.htm