以前一直想要这样的代码，终于被我找到了相关控件和实现方法
调用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 | 
发表于 2008-9-20 18:51
| 
发表于 2011-1-30 15:53
| 
！