AU3内嵌IE不在新窗口弹窗

4月102018

作者：haijie1223 发布：2018-4-10 13:22 Tuesday 分类：源码示例阅读：13245次评论：0条

```<code class="language-autoit hljs">#include &lt;GUIConstantsEx.au3&gt;
#include &lt;WindowsConstants.au3&gt;
#include &lt;ie.au3&gt;
$oIE = ObjCreate("Shell.Explorer.1")
#QQ群：477266297
#AU3论坛：www.autoit3.cn
#Region ### START Koda GUI section ### Form=
$GUIMain = GUICreate("GUIMain", 800, 600, 0, 0)
GUICtrlCreateObj($oIE, 0, -0, 800, 600)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$EventObject = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents")
$URL = "http://www.qq.com/"
$oIE.Navigate($URL)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func IEEvent_NewWindow($ppDisp, $Cancel)
    Local $o_Shell = ObjCreate("Shell.Application")
    Local $o_ShellWindows = $o_Shell.Windows(); collection of all ShellWindows (IE and File Explorer)
    For $i = $o_ShellWindows.Count - 1 To 0 Step -1
        If $o_ShellWindows.item($i).LocationURL == $ppDisp Then
            $o_ShellWindows.item($i).quit()
        EndIf
    Next
    $oIE.Navigate($ppDisp)
EndFunc   ;==&gt;IEEvent_NewWindow

本文固定链接: http://jianyiit.com/post-290.html