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

Question

如何用VB直接对windows media player进行控制。
网上用的比较多的方式是用控件方式，但这种方式效率太低了。现在是要用COM接口的方式。windows media player显示播放窗口，独立运行。程序可以控制windows media player播放、停止等。我试过用WMPLib.WindowsMediaPlayer,但播放时，播放器的窗口不会显示。想用new WMPLibCtl.WindowsMediaPlayer,但又提示不能创建组件。各位高手，能有什么好办法吗？

Answer 1

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

Answer 2

那你设置visible = false 看看。

Answer 3

主要问题是WMPLibCtl.WindowsMediaPlayer 不能创建对象;WMPLib.WindowsMediaPlayer 没有visible属性啊。

Answer 4

你不贴代码不知道你怎么写的,如下应该可以显示播放器的窗口:    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
    '.......

Answer 5

老大，你这段代码也不行啊。
    Dim wmp As WMPLib.WindowsMediaPlayer
    Set wmp = New WMPLib.WindowsMediaPlayer  '这里己经生成一个WindowsMediaPlayer
    wmp.URL = "E:\123.wma"   
    wmp.uiMode = "None"
    wmp.openPlayer wmp.URL '这里又生成一个WindowsMediaPlayer
这样就会两个播放器同时在播放同一个文件。

Answer 6

哦,6楼匆忙贴错了,如果你要调动Windows Media Player界面播放,6楼的wmp.Controls.play改为wmp.Controls.stop即可...

Answer 7

    wmp.openPlayer wmp.URL
    wmp.Controls.play
这2句不要也行呀