开机自动播放音乐的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