当前位置:主页 > 资源 > 技术文章 >

vbs添加音乐表白教程分享
栏目分类:技术文章   发布日期:2018-11-26   作者:素年    来源:未知

前面给大家讲过,用记事本修改扩展名表白,不会的可以去先看前面的教程。 用计算机新建记事本修改扩展名表白 考虑到很多朋友喜欢加音乐,进给大家补充一下,加一个音乐代码。 框里面的是音乐代码,箭头指的是音乐地址,不喜欢的可以自己换,注意一定要是网上

前面给大家讲过,用记事本修改扩展名表白,不会的可以去先看前面的教程。用计算机新建记事本修改扩展名表白

考虑到很多朋友喜欢加音乐,进给大家补充一下,加一个音乐代码。

框里面的是音乐代码,箭头指的是音乐地址,不喜欢的可以自己换,注意一定要是网上的后缀mp3结尾的音乐,不然你的朋友打开没音乐。

msgbox("做我女朋友好吗?")
msgbox("房产证上写你名字")
msgbox("保大")
msgbox("我妈会游泳")
 
On Error Resume Next
Dim WS,C,Player,File
Set WS=WScript.CreateObject("WScript.Shell")
C=Chr(34)
File="http://other.web.ri01.sycdn.kuwo.cn/resource/n2/25/14/1835064837.mp3"
'请在双引号中输入音乐文件的路径.
Player=WS.ExpandEnvironmentStrings("%ProgramFiles%") & "\Windows Media Player\wmplayer.exe"
WS.Run C+Player+C+" "+C+File+C,0
MsgBox "音乐正在播放...",64,"注意"
WS.Run "taskkill /f /im wmplayer.exe",0
 
弹窗网后效果如下,就会出现播放那个音乐。

 

相关热词:

Copyright © 2016-2020 我爱分享网 版权所有   豫ICP备16008703号-1   关于我们 | 广告合作 | 版权声明 | 意见反馈 | 联系方式 | 原创投稿 | 网站地图 |
特效 教程 资源 资讯 福利