用vbs制作一个音乐播放器,没有声音?
其中用到的wmplayer.ocx我在系统盘搜索不到(我安装了wmp),这有关系吗代码如下SetPlayer=CreateObject("WMPlayer.ocx")mu...
其中用到的wmplayer.ocx我在系统盘搜索不到(我安装了wmp),这有关系吗
代码如下
Set Player = CreateObject("WMPlayer.ocx")
music=inputbox ("请输入歌曲,如d:\mp3\1.mp3;退出按取消:","vbs音乐播放器","d:\MyDocuments\My music\布拉姆斯的摇篮曲.mp3")
if music <>"" then
do
Player.url = music
music=inputbox ( "正在播放●●●" & vbCrlf & "也可选择播放其他 "& vbCrlf & "退出按取消" ,"vbs正在播放",music)
if music="" then exit do
loop
end if
Set Player=nothing
是从一个提供脚本语言的网站上弄来的,应该可以 展开
代码如下
Set Player = CreateObject("WMPlayer.ocx")
music=inputbox ("请输入歌曲,如d:\mp3\1.mp3;退出按取消:","vbs音乐播放器","d:\MyDocuments\My music\布拉姆斯的摇篮曲.mp3")
if music <>"" then
do
Player.url = music
music=inputbox ( "正在播放●●●" & vbCrlf & "也可选择播放其他 "& vbCrlf & "退出按取消" ,"vbs正在播放",music)
if music="" then exit do
loop
end if
Set Player=nothing
是从一个提供脚本语言的网站上弄来的,应该可以 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询