引用 c:\windows\system32\quartz.dll

Private BasicAudio As IBasicAudio
Private MediaControl As FilgraphManager

Set MediaControl = New FilgraphManager
'Call MediaControl.RenderFile("http://www.hi-fm.com/LiveRadio&Channel/xian.asx") '西安音乐台
Call MediaControl.RenderFile("mms://219.144.186.196/yy") '西安音乐台
Set BasicAudio = MediaControl
BasicAudio.Volume = 0
BasicAudio.Balance = 0
MediaControl.Run

问题一、怎么获取播放 mms 协议时的缓冲状态和播放停止等控制

问题二、注释行的 RenderFile 为什么不能直接播放 .asx 的文件，如何才能实现播放 .asx

http://blog.csdn.net/aoosang/category/40292.aspx?PageNumber=2