vb控制暴风影音的问题

Question

请问vb控制暴风影音的问题：
当手工操作本机的暴风影音播放的时候，如何捕捉开始播放、继续播放、暂停、停止、手工移动进度条的进度？
并进而控制另一台电脑的暴风影音的开始播放、继续播放、暂停、停止、手工移动进度条的进度？
hook、子类技术吧另外，一开机就启动暴风影音，并且是全屏的
我们是想一开机，就自动打开全屏模式
而不是  打开文件之后，才切换到全屏模式
 

Answer 1

你自己用MCI或MediaPlayer作个播放器还简单点，安装过暴风影音后，暴风影音会将解码器注册到系统，
系统的 MCI 或 MediaPlayer 就支持暴风影音所支持的全部格式。
你可以打开MediaPlayer，然后将 rm 或其他格式的文件托到MediaPlayer播放窗口看看就知道了，
一样能解码。因为暴风影音本身就是用 MCI 作解码的，解码格式多主要是包含了很多解码器在安装包里。
系统有了这些解码器，MediaPlayer 同样支持那么多格式的媒体文件。用 MCI 的 API 函数，能将界面
做得更好更随意一点。

Answer 2

http://topic.csdn.net/u/20091223/03/4f220de1-a720-4120-b536-9493509d6670.html

Answer 3

谢谢楼上几位大侠的指点！！！
===SupermanKing大侠：我们很多是高清晰度的视频文件，大部分都是几个G的（超过2G，小于10G），我测试MediaPlayer播放的速度不行，像死机一样不动。但是暴风影音，可以瞬间打开播放请问怎么办？谢谢先

Answer 4

"请问vb控制暴风影音的问题： 
当手工操作本机的暴风影音播放的时候，如何捕捉开始播放、继续播放、暂停、停止、手工移动进度条的进度？ 
并进而控制另一台电脑的暴风影音的开始播放、继续播放、暂停、停止、手工移动进度条的进度？ 
hook、子类技术吧 另外，一开机就启动暴风影音，并且是全屏的 
我们是想一开机，就自动打开全屏模式 
而不是  打开文件之后，才切换到全屏模式"首先这个用简单的方法需要两样技术:
1.键盘鼠标模拟技术
2.Socket技术用VB实现的步骤:
0.窗口操作
GetActiveWindow 获取活动窗口句柄
FindWindow 使用窗口的类或标题找句柄
WindowFromPoint 使用鼠标指向的坐标找句柄
SetWindowPos 设置窗口位置
GetWindowRect 得到窗口矩形1.键盘鼠标模拟技术
keybd_event 模拟按键
mouse_event 模拟鼠标
SetCursorPos 设置鼠标坐标
GetCursorPos 得到鼠标坐标
2.Socket技术就用Socket控件好了，虽然用不好会不安全……-_-///一、对于“如何捕捉开始播放、继续播放、暂停、停止、手工移动进度条的进度？ ”
以前拿这个东西用暴风自动每n秒抓影视图片的………………
用API可以得到窗口矩形，即使窗体变化，里面控件位置变化也有规律。
方案一（全鼠标）：
先确定各种按钮和进度条位置坐标与窗口矩形中4个参数的函数关系。
然后调用SetCursorPos设置鼠标移动到控件上就好了。
使用mouse_event模拟鼠标点击。
控制就很好完成了。
方案二（全键盘）：
确定 暴风影音 是活动窗口。
了解 暴风影音 中的快捷键。
使用keybd_event模拟键盘操作。二、对于“一开机就启动暴风影音，并且是全屏的”
使用注册表API设置下就可以了，或者让VB程序运行，然后用shell之类的命令启动
再用鼠标或键盘模拟方法打开一个视频……
对于全屏也一样，键盘或鼠标自动操作问题……三、对于“控制另一台电脑的暴风影音的开始播放、继续播放、暂停、停止、手工移动进度条的进度？”
把上述的VB程序写成服务器端，你再写个客户端，
比如客户端上放个“暂停”，使用Socket发送"pause"到服务器端，服务器端再用Socket处理这个"pause"字符命令，在使用鼠标或键盘模拟就好了……“hook、子类技术”，用不好会有安全性等各种问题，用VB的话还是少用它们…………

Answer 5

对于“我们是想一开机，就自动打开全屏模式 而不是  打开文件之后，才切换到全屏模式”
还有一点就是你可以使用shell启动暴风，shell "exe.exe",vbMaximizedFocus
SetWindowLong可以让窗口最前端
然后键盘或鼠标模拟都一齐上吧………………
-_-////