如何把IE网页中的网络视频窗口框出来？[已解决]

hlzxcjx · 发表于 2011-5-11 00:21:58

本帖最后由 hlzxcjx 于 2011-5-14 16:38 编辑

地址：
http://www.zhiboo.net/1019.htm
要做一个简单的GUI,仅可见视频窗口，如何做到？菜鸟提问，别见笑！

kxing · 发表于 2011-5-11 02:04:00

直接嗅探mms流媒体地址。
回来用wmp对象播放。。。

dyd · 发表于 2011-5-11 09:37:41

学习学习！！

hlzxcjx · 发表于 2011-5-11 11:47:41

回复 2# kxing

我只想用简单的方法，内嵌网页形式的！

ceoguang · 发表于 2011-5-11 17:21:23

dyd · 发表于 2011-5-11 18:11:36

源码弄出来学习学习呗

hlzxcjx · 发表于 2011-5-11 22:13:12

源码呢？

lanfengc · 发表于 2011-5-12 12:00:03

回复 1# hlzxcjx

如图

代码如下


#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Global $sR="file:///d:/zjt.htm" 
Global $Souce = "<EMBED id=mpl name=mpl src="&"http://www.zhiboo.net/play.swf"&" tppabs="&"play.swf"&" width='450' height='420' type=application/x-shockwave-flash flashvars='&file=http://www.zhiboo.net/play.swf?autostart=true&controlbar=over&type=video&file=http://biz.vsdn.tv380.com/playlive.php?5B63686E5D445830303030303030387C313139387C317C323030307CE78FA0E6B19FE9A291E981937C687474707C666C765B2F63686E5D5B74735D317C687474703A2F2F3132312E31352E31322E37323A31383038302F445830303030303030385F313139385B2F74735DVSDNSOOONERCOM00&type=video&autostart=true&;controlbar=over&caption=false&fullscreen=true' allowfullscreen='true' allowscriptaccess='always' quality='high'>"
If FileExists("D:\zjt.htm") Then FileDelete("D:\zjt.htm")
FileWrite("D:\zjt.htm",$Souce)
_IEErrorHandlerRegister ()
$Form=GUICreate("", 480, 520, 200,100, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW)
$oIE = _IECreateEmbedded()
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 492, 482) 
$Minimize = GUICtrlCreateButton("最小化", 10, 480, 80, 30)
$GUI_Button_Close = GUICtrlCreateButton("退 出", 384, 480, 80, 30)
$oIE.navigate($sR)
$oIE.refresh
GUISetState(@SW_SHOW)
While 1
        $msg = GUIGetMsg()
        Select
                        Case $msg = $GUI_Button_Close
                                ExitLoop
                        Case $msg=$Minimize
                                If GUICtrlRead($Minimize)="最小化" Then
                                        WinMove($Form,"",@DesktopWidth-80,-620,Default,Default,1)
                                        GUICtrlSetData($Minimize,"还原")
                                Else
                                        WinMove($Form,"",50,50,Default,Default,1)
                                        GUICtrlSetData($Minimize,"最小化")
                                EndIf
                                
        EndSelect
WEnd

lxz · 发表于 2011-5-12 21:24:52

谢谢,学习一下代码.

hlzxcjx · 发表于 2011-5-12 22:57:30

是不是一定要重新建立一个网页，用原网页行吗？

小A · 发表于 2011-5-13 21:09:41

8楼的代码很不错，学习！

komaau3 · 发表于 2011-5-14 11:07:06

对网页不了解

应该是网页代码复写原理把

lanfengc · 发表于 2011-5-14 21:32:00

回复 10# hlzxcjx

我比较懒。。。这样的方式简单。

浪迹红客 · 发表于 2011-5-15 10:46:03

不错啦。。。。

夜猫猫 · 发表于 2011-5-15 20:54:25

不错.收藏先

		自动登录	找回密码
密码			加入

[IE类操作] 如何把IE网页中的网络视频窗口框出来？[已解决]

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源