高难度动作,求VB控制Media Player的方法

如何用VB直接对windows media player进行控制。

网上用的比较多的方式是用控件方式，但这种方式效率太低了。现在是要用COM接口的方式。windows media player显示播放窗口，独立运行。程序可以控制windows media player播放、停止等。

我试过用WMPLib.WindowsMediaPlayer,但播放时，播放器的窗口不会显示。想用new WMPLibCtl.WindowsMediaPlayer,但又提示不能创建组件。

各位高手，能有什么好办法吗？ --------------------编程问答-------------------- 没试过，帮顶 --------------------编程问答-------------------- //但这种方式效率太低了
怎么低了？ --------------------编程问答-------------------- 播放同一个视频文件，wmp单独运行，CPU占用率1%,用控件合成到程序里放CPU占用率15%。你说低不低。 --------------------编程问答--------------------

引用 3 楼 hyryxgs 的回复:

播放同一个视频文件，wmp单独运行，CPU占用率1%,用控件合成到程序里放CPU占用率15%。你说低不低。

那你设置visible = false 看看。 --------------------编程问答-------------------- 主要问题是WMPLibCtl.WindowsMediaPlayer 不能创建对象;WMPLib.WindowsMediaPlayer 没有visible属性啊。 --------------------编程问答-------------------- 你不贴代码不知道你怎么写的,如下应该可以显示播放器的窗口:



    Dim wmp As WMPLib.WindowsMediaPlayer

    Set wmp = New WMPLib.WindowsMediaPlayer

    wmp.URL = "E:\123.wma"

    wmp.uiMode = "None"

    wmp.openPlayer wmp.URL

    wmp.Controls.play

    '.......

--------------------编程问答--------------------

引用 6 楼 vbman2003 的回复:

你不贴代码不知道你怎么写的,如下应该可以显示播放器的窗口:

VB code

    Dim wmp As WMPLib.WindowsMediaPlayer
    Set wmp = New WMPLib.WindowsMediaPlayer
    wmp.URL = "E:\123.wma"
    wmp.uiMode = "None"
    wmp.openPlay……

老大，你这段代码也不行啊。
    Dim wmp As WMPLib.WindowsMediaPlayer
    Set wmp = New WMPLib.WindowsMediaPlayer  '这里己经生成一个WindowsMediaPlayer
    wmp.URL = "E:\123.wma"
    wmp.uiMode = "None"
    wmp.openPlayer wmp.URL '这里又生成一个WindowsMediaPlayer
这样就会两个播放器同时在播放同一个文件。
--------------------编程问答-------------------- 高手门呢？都去哪啦？ --------------------编程问答-------------------- 哦,6楼匆忙贴错了,如果你要调动Windows Media Player界面播放,6楼的wmp.Controls.play改为wmp.Controls.stop即可...
--------------------编程问答--------------------     wmp.openPlayer wmp.URL
    wmp.Controls.play
这2句不要也行呀

补充：VB ,  COM/DCOM/COM+