首页 > 代码库 > 开机自动播放音乐的vbs
开机自动播放音乐的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
开机自动播放音乐的vbs