IE зависание при обработке событий мыши MS HTML .Document в VB.NET - PullRequest
0 голосов
/ 15 января 2020

Мне нужно захватить атрибуты нажатых элементов в моем браузере приложения 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

Если убрать событие мыши, все будет хорошо.

Заранее благодарен за любую помощь.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...