用vb程序設計壹個“定時器”軟件，要求定時時間到時會播放壹段音樂，那個音樂怎麽弄啊！誰能能幫幫忙？

加入壹個命令按鍵控件，caption屬性改為“開始計時”，

加入壹個復選框控件，cpation屬性改“開始計時後自動隱藏程序”，

其它屬性壹律不要動！

然後打開代碼窗口，把裏面的內容清空，把下面壹段代碼粘貼進去：

Dim dingshi As String

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)

'strFileName 要播放的文件名(帶路徑)

'playCount 播放的次數

'JianGe 多次播放時,每次的時間間隔

If Len(Dir(strFileName)) = 0 Then Exit Sub

If PlayCount = 0 Then Exit Sub

If JianGe < 1000 Then JianGe = 1000

DoEvents

sndPlaySound strFileName, 16 + 1

Sleep JianGe

Call PlayWavFile(strFileName, PlayCount - 1, JianGe)

End Sub

Private Sub Command1_Click()

Timer1.Enabled = True

If Check1.Value = 1 Then

Form1.Hide

App.TaskVisible = False

End If

End Sub

Private Sub Form_Load()

Show

Timer1.Enabled = False

dingshi = InputBox("時間格式為00:00:00，請輸入正確，否則出錯", "輸入")

End Sub

Private Sub Timer1_Timer()

If dingshi = Time$ Then

PlayWavFile "C:\Documents and Settings\Administrator\桌面\配音\火星片花-廣告回來繼續關註.wav", 1, 1000

End If

End Sub

輸入時間格式時那個冒號要是英文的冒號，中文的會出錯，

最後這句PlayWavFile "C:\Documents and Settings\Administrator\桌面\配音\火星片花-廣告回來繼續關註.wav", 1, 1000

路徑改成妳的聲音路徑，格式必須是.wav格式的，不然播放不出來，後面那個1是重復次數，那個1000是重復時的間隔，還不懂就追問我，忙活了這麽長時間，怎麽也得給個辛苦分吧？