第一个代码,会使用默认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
复制代码 代码如下:
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
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
暂无评论...
更新日志
2024年12月23日
2024年12月23日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]