[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[转贴] VBS脚本实现音乐播放的多个代码小结

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

第一个代码,会使用默认mp3文件关联的程序,会出现音乐播放框
  1. wscript.sleep 12000
  2. set ws=createobject("wscript.shell")
  3. ws.run "兄弟你累了吗.mp3"
复制代码
第二段代码 调用了WMPlayer.OCX插件,不会出现音乐播放框,如果想关闭播放音乐需要在进程中关闭wscript.exe进程。
  1. Dim wmp
  2. Set wmp = CreateObject("WMPlayer.OCX")
  3. wmp.URL = "兄弟 张萌萌.mp3"
  4. Do Until wmp.playState = 1
  5. WScript.Sleep 1000
  6. Loop
复制代码
VBS隐藏播放音乐
  1. set ws=createobject("wscript.shell")
  2. ws.run "wmplayer.exe "&ws.currentdirectory&"\08.wma",0
复制代码
ws.currentdirectory为vbs中获取本地的目录,这个程序需要用到wmplayer.exe播放器。
或者
  1. set ws=createobject("wscript.shell")
  2. ws.run "wmplayer.exe E:\mp3\08.mp3",0
复制代码
比较不错的一款vbs播放器 推荐
  1. MsgBox "这只是个样品,不能播放歌曲。需要您自己修改! 作者:後知後覺",60,"狂人自制播放器"
  2. Set Player = CreateObject("wmplayer.ocx")
  3. do
  4. i=inputbox ("请输入你要选择的歌曲编号,退出请按0:"&vbCrlf&"1 >> 凤凰传奇"&vbCrlf&"2 >> 大笑江湖"&vbCrlf&"3 >> 韩晶-不要用我的爱来伤害我"&vbCrlf&"4 >> 许慧欣-幸福的味道"&vbCrlf&"5 >> 陈慧琳-不如跳舞"&vbCrlf&"6 >> FIR-我们的爱"&vbCrlf&"7 >> 东来东往-连哭都是我的错"&vbCrlf&"8 >> 吴佩慈-闪着泪光的决定","音乐播放器-後知後覺","1")
  5. if i=1 then
  6. Player.url = "E:\music\凤凰传奇.mp3"
  7. elseif i=2 then
  8. Player.url = "E:\music\大笑江湖.mp3"
  9. elseif i=3 then
  10. Player.url = "E:\music\韩晶-不要用我的爱来伤害我.mp3"
  11. elseif i=4 then
  12. Player.url = "E:\music\许慧欣-幸福的味道.wma"
  13. elseif i=5 then
  14. Player.url = "E:\music\不如跳舞-陈慧琳.mp3"
  15. elseif i=6 then
  16. Player.url = "E:\music\飞儿乐团-我们的爱.wma"
  17. elseif i=7 then
  18. Player.url = "E:\music\东来东往-连哭都是我的错.mp3"
  19. elseif i=8 then
  20. Player.url = "E:\music\闪着泪光的决定.mp3"
  21. elseif i=0 then
  22. exit do
  23. end if
  24. loop
  25. Set Player=nothing
  26. rem URL可以是网络的也可以是本地的!如果是网络的这个脚本就可以在任何地方用。
  27. Set Wshell=WScript.CreateObject("WScript.Shell")
  28. If MsgBox("到我空间转转?顺便挖金!", vbYesNo + vbQuestion, "後知後覺") = vbYes Then
  29. Wshell.Run "http://user.qzone.qq.com/420123641"
  30. End if
复制代码
更简单的上面版本的精简版
  1. Set Player = CreateObject("wmplayer.ocx")
  2. strsong=inputbox ("请输入歌曲,如F:\mp3\1.mp3;退出按取消:" & vbCrlf & "递归遍历也简单,懒得整合了" ,"vbs播放器","F:\!music\classic\钢琴曲\施特劳斯-“蓝色多瑙河”圆舞曲.mp3")
  3. if strsong <>"" then
  4. do
  5. Player.url = strsong
  6. strsong=inputbox ( "正在播放●●●" & vbCrlf &"请●不要关闭窗口" & vbCrlf & vbCrlf & "也可选择播放其他 "& vbCrlf & " 退出按取消" & vbCrlf & "" ,"vbs正在播放",strsong)
  7. if strsong="" then exit do
  8. loop
  9. end if
  10. Set Player=nothing
复制代码

回复 2# Demon


请教一下哪里不垃圾?

TOP

回复 5# ivor


多谢提醒

TOP

返回列表