Internet Explorer 实例 DocumentComplete 未触发

Question

我正在尝试从 WPF 应用程序创建 Internet Explorer 实例，加载保存的本地文件，并在加载文件后进行进一步处理。但是，尽管该文件在 Internet Explorer 窗口中可见，但 DocumentComplete 事件永远不会触发：

'static field
Dim iex As ShDocVw.InternetExplorer

Public Sub DoStuff()
    Dim path = "c:\test.htm"
    iex = New SHDocVw.InternetExplorer
    iex.Visible = True
    AddHandler iex.DocumentComplete, Sub(o As Object, ByRef url As Object)
            'This code is never executed
            Dim i = 5
        End Sub
    iex.Navigate2(path)
End Sub

当我导航到非本地 URL（例如 http://www.google.com）时，DocumentComplete 事件会触发。

NavigateComplete2 事件存在相同的行为。

我尝试使用 AddressOf 和 Handles 使用类成员方法而不是 lambda 表达式（也许 lambda 表达式在方法退出后超出范围？），但这没有帮助。

我必须做什么才能触发DocumentComplete 事件？

（注意：页面没有框架。）

更新

此代码正在类库中使用，因此我无法使用 WebBrowser 控件，因为它无法在代码中实例化。

正如 SimonMourier 在 cmets 中指出的那样，可以在代码中实例化 WebBrowser：

Dim wb = New WebBrowser
AddHandler wb.LoadCompleted, Sub(s, e)
    Dim i = 5
End Sub
wb.Navigate(path)

虽然 LoadCompleted 事件仍然没有触发，但 Navigated 事件会触发，而且它似乎足以满足我的目的。 （显然，WebBrowser 必须是可见的才能 LoadCompleted 触发 - 请参阅here 和 here - 因为我没有在窗口的上下文中使用 WebBrowser，我认为这甚至是不可能的就我而言。）

Answer 1

您应该使用随 WPF 一起提供的开箱即用标准 WebBrowser Control（Winforms 应用程序还有另一个标准）。它直接支持所有基本事件。

如果您错过了一些 Winforms 功能，例如 IsWebBrowserContextMenuEnabled 或 ScriptErrorsSuppressed，我建议您参考我在这个问题上的回答：How to deactivate "right click" on WPF Webbrowser Control?

您只需要在这些特殊情况下进行互操作，或者如果您需要掌握原生底层 IE 的文档对象模型 (DOM)、IHTMLDocument2 等接口等。

Answer 2

您可以使用 WPF 提供的WebBrowser 控件来代替ShDocVw.InternetExplorer：

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MainWindow" Height="350" Width="525" Loaded="Window_Loaded">
    <Grid>
        <WebBrowser x:Name="webBrowser" Visibility="Visible" />
    </Grid>
</Window>



Class MainWindow
    Public Sub DoStuff()
        Dim path = New Uri("c:\test.htm")
        AddHandler webBrowser.LoadCompleted, Sub(sender As Object, e As System.Windows.Navigation.NavigationEventArgs)
                                                 Dim i = 5
                                             End Sub
        webBrowser.Navigate(path)
    End Sub

    Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
        DoStuff()
    End Sub
End Class

Answer 3

无需使用 WebBrowser Control 即可解决此问题。

我也遇到过这个问题，这是由于访问权限造成的。 以管理员权限运行您的应用程序，一切都会好的。

要调试尝试以管理员身份运行 Visual Studio，然后进行测试，将触发 DocumentComplete 事件。

更新1：

对于非管理员应用程序，如果您可以设法以管理员权限启动 Internet Explorer，那么您也可以使用非管理员应用程序使用它。 使用管理员权限轻松启动 Internet Explorer 进程。

然后你就可以用这段代码钩住它了

   For Each IE As InternetExplorer In New SHDocVw.ShellWindows
        If IE.FullName.ToLower.Contains("iexplore") And IE.LocationURL <> "" Then
            'Capture IE here
        End If
    Next