AU3作的浏览器如何重新打开网页？

itljl · 发表于 2010-9-25 16:30:06

#include <GUIConstants.au3>
#NoTrayIcon
GUICreate("IE浏览器", 800, 600)
$1 = ObjCreate("Shell.Explorer.2")
$2 = GUICtrlCreateObj($1, 0, 0, 530, 396)
$B1 = GUICtrlCreateButton("打开", 530, 16, 75, 25, 0)
$B2 = GUICtrlCreateButton("刷新", 530, 48, 75, 25, 0)
$B3 = GUICtrlCreateButton("退出", 530, 376, 75, 25, 0)
$B4 = GUICtrlCreateButton("关于", 530, 344, 75, 25, 0)
$1.navigate("http://fm.mp3.baidu.com/")
GUISetState(@SW_SHOW)
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $B3
                        Exit
                Case $B2
                        $1.refresh
                Case $B4
                        MsgBox(64, "关于", "版权官方所有。叁居士修改")
                Case $B1
                        $F = FileOpenDialog("打开", "", "Flash文件(*.swf)|所有文件(*.*)")
        EndSwitch
WEnd

大家试一下，上面的浏览器，只要刷新，或者重新
$1.navigate("http://fm.mp3.baidu.com/")
页面中的FLASH都不能正常使用。。（只有程序运行第一次打开，而面中的FLASH才能用。）

liufenglg · 发表于 2010-9-25 16:37:16

刷新很正常啊....

itljl · 发表于 2010-9-25 16:45:43

回复 2# liufenglg

刷新了这个播放音乐的FLASH就不能播放了啊？试试看。。
第一次打开可以播放音乐的，刷新一下，这个flash上的按钮什么的都不能用了。

Ziya · 发表于 2010-9-25 17:09:27

我这儿可以
xp+ie6

menfan1 · 发表于 2010-9-25 20:25:28

xp+ie8也可以哦

itljl · 发表于 2010-9-25 21:14:13

不会吧？各位都正常吗？我这里不正常的。
可能大家没明白我的意思吧。我的意思刷新后，那个播放器FLASH就不能用了，网页是能打开的。大家再试试？

afan · 发表于 2010-9-25 23:08:19

我这也不行，刷新后Flash就没数据了

xcycom · 发表于 2010-9-25 23:12:19

观望中，以后用的着

xcycom · 发表于 2010-9-25 23:52:19

#include <GUIConstants.au3>
#NoTrayIcon
$a = GUICreate("IE浏览器", 470, 218)
WinSetOnTop($a, "IE浏览器", 1)
$1 = ObjCreate("Shell.Explorer.2")
$2 = GUICtrlCreateObj($1, -125, -125, 595, 345)
$1.navigate("http://fm.mp3.baidu.com/")

GUISetState(@SW_SHOW)
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd

这样就行了，搞哪么复杂干嘛？

ollydbg · 发表于 2010-9-26 00:52:05

回复 7# itljl

我这边也不行，期待答案。

itljl · 发表于 2010-9-26 01:47:30

回复 10# xcycom

这贴探讨的目的就是在“刷新”或者重新 $1.navigate("http://fm.mp3.baidu.com/")
之后flash还可用。。。

006001 · 发表于 2010-9-26 08:34:51

会不会是IE不同版本所导致的。

newuser · 发表于 2010-9-26 09:23:14

回复 1# itljl
我的也是,关闭程序再重新运行也不好使?

shenrenba · 发表于 2010-9-26 11:06:32

不是办法的办法网页源码中有段代码
var win = window.open(url, 'baidumb', 'width=870,height=650,top=0,left=0,scrollbars=0,resizable=0,status=1');
win && win.focus();
return false;
}

var player = M3.playerEngine,
isFlashLoaded = false;

不知道是不是这个的问题下面是我的其实就是删除窗体重新创建

#include <IE.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
HotKeySet("{F5}", "refresh")

main()
Func main()
        GUICreate("IE浏览器", 450, 235, -1, -1)
        $oIE = _IECreateEmbedded()
        GUICtrlCreateObj($oIE, -200, -125, 870, 650)
        _IENavigate($oIE, "http://fm.mp3.baidu.com/")
        GUISetState()
        Do
        Until GUIGetMsg() = -3
EndFunc   ;==>main

Func refresh()
        GUIDelete()
        main()
EndFunc   ;==>refresh

xcycom · 发表于 2010-10-1 08:21:09

嗯，这个能解决的，就是要有时间去弄下

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

[AU3基础] AU3作的浏览器如何重新打开网页？

相关帖子

浏览过的版块