gpt4 book ai didi

用VBS实现音乐播放的多个代码小结

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章用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实现音乐播放的多个代码小结的文章就讲到这里了,如果你想了解更多关于用VBS实现音乐播放的多个代码小结的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com