足球游戏_中国足彩网¥体育资讯$

用VBS实现音乐播放的多个代码小结
来源:易贤网 阅读:1297 次 日期:2016-07-07 14:34:18
温馨提示:易贤网小编为您整理了“用VBS实现音乐播放的多个代码小结”,方便广大网友查阅!

用VBS实现音乐播放的多个代码,下面根据网上的一些文章进行了整理说明,需要的朋友可以参考下。

第一个代码,会使用默认mp3文件关联的程序,会出现音乐播放框

代码如下:

wscript.sleep 12000

set ws=createobject("wscript.shell")

ws.run "兄弟你累了吗.mp3"

第二段代码 调用了WMPlayer.OCX插件,不会出现音乐播放框,如果想关闭播放音乐需要在进程中关闭wscript.exe进程。

代码如下:

Dim wmp

Set wmp = CreateObject("WMPlayer.OCX")

wmp.URL = "兄弟 张萌萌.mp3"

Do Until wmp.playState = 1

WScript.Sleep 1000

Loop

VBS隐藏播放音乐

代码如下:

set ws=createobject("wscript.shell")

ws.run "wmplayer.exe "&ws.currentdirectory&"\08.wma",0

ws.currentdirectory为vbs中获取本地的目录,这个程序需要用到wmplayer.exe播放器。

或者

代码如下:

set ws=createobject("wscript.shell")

ws.run "wmplayer.exe E:\mp3\08.mp3",0

比较不错的一款vbs播放器 推荐

代码如下:

MsgBox "这只是个样品,不能播放歌曲。需要您自己修改! 作者:後知後覺",60,"狂人自制播放器"

Set Player = CreateObject("wmplayer.ocx")

do

i=inputbox ("请输入你要选择的歌曲编号,退出请按0:"&vbCrlf&"1 >> 凤凰传奇"&vbCrlf&"2 >> 大笑江湖"&vbCrlf&"3 >> 韩晶-不要用我的爱来伤害我"&vbCrlf&"4 >> 许慧欣-幸福的味道"&vbCrlf&"5 >> 陈慧琳-不如跳舞"&vbCrlf&"6 >> FIR-我们的爱"&vbCrlf&"7 >> 东来东往-连哭都是我的错"&vbCrlf&"8 >> 吴佩慈-闪着泪光的决定","音乐播放器-後知後覺","1")

if i=1 then

Player.url = "E:\music\凤凰传奇.mp3"

elseif i=2 then

Player.url = "E:\music\大笑江湖.mp3"

elseif i=3 then

Player.url = "E:\music\韩晶-不要用我的爱来伤害我.mp3"

elseif i=4 then

Player.url = "E:\music\许慧欣-幸福的味道.wma"

elseif i=5 then

Player.url = "E:\music\不如跳舞-陈慧琳.mp3"

elseif i=6 then

Player.url = "E:\music\飞儿乐团-我们的爱.wma"

elseif i=7 then

Player.url = "E:\music\东来东往-连哭都是我的错.mp3"

elseif i=8 then

Player.url = "E:\music\闪着泪光的决定.mp3"

elseif i=0 then

exit do

end if

loop

Set Player=nothing

rem URL可以是网络的也可以是本地的!如果是网络的这个脚本就可以在任何地方用。

Set Wshell=WScript.CreateObject("WScript.Shell")

If MsgBox("到我空间转转?顺便挖金!", vbYesNo + vbQuestion, "後知後覺") = vbYes Then

Wshell.Run "http://user.qzone.qq.com/420123641"

End if

更简单的上面版本的精简版

代码如下:

Set Player = CreateObject("wmplayer.ocx")

strsong=inputbox ("请输入歌曲,如F:\mp3\1.mp3;退出按取消:" & vbCrlf & "递归遍历也简单,懒得整合了" ,"vbs播放器","F:\!music\classic\钢琴曲\施特劳斯-“蓝色多瑙河”圆舞曲.mp3")

if strsong <>"" then

do

Player.url = strsong

strsong=inputbox ( "正在播放●●●" & vbCrlf &"请●不要关闭窗口" & vbCrlf & vbCrlf & "也可选择播放其他 "& vbCrlf & " 退出按取消" & vbCrlf & "" ,"vbs正在播放",strsong)

if strsong="" then exit do

loop

end if

Set Player=nothing

中国足彩网信息请查看脚本栏目
易贤网手机网站地址:用VBS实现音乐播放的多个代码小结
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65317125(9:00—18:00) 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标