开一个不能关闭的ie窗口

starfee

记得以前坛子里有这样的例程，但是刚才搜索了一下才发现不见了。

要求ie不能被关闭，或者能拦截关闭IE的消息也行，autoit的实现方案是怎样的啊？

sanhen

不能关闭？那你用AU3创建一个无标题窗口内置IE吧。这样还简单。

拦截的应该也可以。只是复杂了。

starfee

内建窗口要过防火墙啊。。

我仅仅需要一个简单控制IE的小东西。以前看见过，关闭窗口时有提示，确认或取消的。

ollydbg

原帖由 sanhen 于 2008-12-28 22:39 发表
不能关闭？那你用AU3创建一个无标题窗口内置IE吧。这样还简单。

拦截的应该也可以。只是复杂了。

请问sanhen如何内置IE？能举个例子吗/

akmm88

修改的例程，不响应close消息就不能关闭了
[au3]; *******************************************************
; Example 1 - Trap COM errors so that 'Back' and 'Forward'
;                                outside of history bounds does not abort script
;                                (expect COM errors to be sent to the console)
; *******************************************************
;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
GUICreate("Embedded Web control Test", 640, 580, _
                (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
                $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)

GUISetState()       ;Show GUI

_IENavigate ($oIE, "http://www.autoitscript.com")

; Waiting for user to close the window
While 1
        $msg = GUIGetMsg()
        Select
                Case $msg = $GUI_EVENT_CLOSE
                        ;ExitLoop 这个是例程，不响应这个消息，窗口就不能关闭了。
                Case $msg = $GUI_Button_Home
                        _IENavigate ($oIE, "http://www.autoitscript.com")
                Case $msg = $GUI_Button_Back
                        _IEAction ($oIE, "back")
                Case $msg = $GUI_Button_Forward
                        _IEAction ($oIE, "forward")
                Case $msg = $GUI_Button_Stop
                        _IEAction ($oIE, "stop")
        EndSelect
WEnd

GUIDelete()

Exit[/au3]