0

我需要在我的应用程序 IE 浏览器中捕获单击元素的属性。一切正常,我能够捕获属性,但 IE 窗口没有响应。即,如果我单击文本框,则不会显示光标,并且鼠标滚动将不起作用。

Imports System.Runtime.InteropServices
Imports mshtml
Public Class Form1
    Dim WithEvents IE As New SHDocVw.InternetExplorer()
    Dim WithEvents Doc As New mshtml.HTMLDocument
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Empty As Object = 0
        Dim URL As Object = "file://D:/AtestWeb/index_Calls_popup.htm"

        ' override BeforeNavigate2 event
        'IE.BeforeNavigate2 = New SHDocVw.DWebBrowserEvents2_BeforeNavigate2EventHandler(AddressOf e1.OnBeforeNavigate2)

        IE.Visible = True
        IE.Navigate(URL)

        'IE.Navigate2(URL, Empty, Empty, Empty, Empty)

        System.Threading.Thread.Sleep(5000)
    End Sub
    Private Sub IE_DocumentComplete(ByVal pDisp As Object, ByRef URL As Object) Handles IE.DocumentComplete
        Doc = IE.Document
    End Sub
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        CheckForIllegalCrossThreadCalls = False
    End Sub
    Private Sub Doc_onmouseup() Handles Doc.onmouseup
        ListBox1.Items.Add(Doc.activeElement.innerText)
    End Sub
End Class

如果我删除鼠标事件一切正常。

提前感谢您的帮助。

4

0 回答 0