開機自動播放音樂的vbs

今天無意間看到了vbs這小玩意，就突發奇想，自學了一下，倒弄出如下的小玩意，大牛勿噴！這個可用做撩妹神技也可以用於提醒自己！
使用方法：復制程序到txt文本里面保存，然后改后綴為vbs，丟到C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp便可開機自啟！
紅色的為歌曲路徑，這個要設置對，綠色的看心情修改，感覺好用的熱心一下，別浪費了！


程序1：
CreateObject("SAPI.SpVoice").Speak "博客園" '語音播報，可輸入任意文字
msgbox "博客園" '跳彈窗提示，可輸入任意文字，確認關閉后繼續執行下面語句
set w = createobject("wmplayer.ocx")
w.url = "D:\曾經的你.mp3" ' 請在雙引號中輸入音樂文件的路徑
for i=0 to 1 '次數
wsh.sleep 3000 '單位毫秒
do until w.playstate = 1 ' 播放1次后結束循環，數字為負數時無限循環，until的作用是直到滿足條件跳出循環
wscript.sleep 500 '暫停500毫秒
loop
next
'要想開機就能運行你需要把這個VBS文件，放在這個路徑下即可C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp



程序2：
CreateObject("SAPI.SpVoice").Speak "my love" '輸入任意英文
set ws=createobject("wscript.shell")
ws.run "wmplayer.exe D:\曾經的你.mp3",0 '歌曲路徑
'要想開機就能運行你需要把這個VBS文件，放在這個路徑下即可C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp