批处理之家 - Powered by Discuz! Board

标题: [原创] 最简单的纯vbs音乐播放器 [打印本页]

作者: zqz0012005 时间: 2008-9-20 18:51 标题: 最简单的纯vbs音乐播放器

以前一直想要这样的代码，终于被我找到了相关控件和实现方法

调用WMPlayer.ocx，而不是后台运行其他程序，可以算作“纯vbs”吧。

而且电脑上一般都有这个控件。论坛有另一个程序，要用到MCI.mmcontrol这个控件，很多电脑上都没有。

 
set wmp = CreateObject("WMPlayer.ocx")
wmp.url = "C:\Documents and Settings\Administrator\桌面\琵琶语.wma"
'wmp.play '可以省略，照样能播放
do until wmp.playState = 1 '这个循环等待播放结束
wsh.sleep 100
loop
复制代码

只能播放Window Media Player支持的音频。
可以播放在线音频。

如果你想加一个文件选择对话框：

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "Windows Media 音频(*.wma;*.wav)|*.wma;*.wav|MP3(*.mp3)|*.mp3|All Files(*.*)|*.*"
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then
        'wscript.quit
        song = "C:\Documents and Settings\Administrator\桌面\琵琶语.wma"
Else
        song = objDialog.FileName
End If
复制代码

参考：
Scripto 博士的娱乐空间（Dr. Scripto's Fun Zone）
http://www.microsoft.com/technet/scriptcenter/funzone/player.mspx

作者: evenar 时间: 2011-1-30 15:50

为什打开的那个不行啊·
什么都没有！！！

作者: Batcher 时间: 2011-1-30 15:53 标题: 回复 2楼的帖子

XP还是Win7？是不是精简版或者Ghost版的？

作者: netbenton 时间: 2012-4-20 22:19

好铁！鼎企

作者: 0123456789 时间: 2012-11-11 13:38

都能播放什么格式？

作者: LeeKoonKwan 时间: 2013-3-25 17:39

果然是高手！！！佩服！

！

作者: 狱渊 时间: 2013-5-5 13:33

可惜我用不了啊

欢迎光临批处理之家 (http://www.bathome.net/)