[原创] 最简单的纯vbs音乐播放器

zqz0012005

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

调用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

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

Batcher

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

netbenton

好铁！鼎企

0123456789

都能播放什么格式？

LeeKoonKwan

果然是高手！！！佩服！！

狱渊

可惜我用不了啊