最简单的纯vbs音乐播放器

zqz0012005

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

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

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

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

复制代码

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

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

1. Set objDialog = CreateObject("UserAccounts.CommonDialog")
   
2. 
   
3. objDialog.Filter = "Windows Media 音频(*.wma;*.wav)|*.wma;*.wav|MP3(*.mp3)|*.mp3|All Files(*.*)|*.*"
   
4. objDialog.InitialDir = "C:"
   
5. intResult = objDialog.ShowOpen
   
6. If intResult = 0 Then
   
7.         'wscript.quit
   
8.         song = "C:\Documents and Settings\Administrator\桌面\琵琶语.wma"
   
9. Else
   
10.         song = objDialog.FileName
    
11. 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

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

狱渊

可惜我用不了啊