Web 浏览器控件 - 一个接一个地导航到 URL

Question

我正在开发一个 VB.Net 类库项目，并且我有一个 Web 浏览器控件（在一个表单中），我用它来以这个特定的顺序多次导航到同一个 URL：

假设 URL 是：https://www.google.com/submitForm

循环开始

1. 导航到网址
2. 导航 URL 的文档完成事件
3. 执行 DOM 操作并提交表单
4. 关闭网络浏览器表单

循环结束

代码：

Public Sub customNavigation()
    For j = 0 To listOfUrls.Count - 1
                    testWebBrowserForm = New WebBrowserForm(Me)
                    Dim browserSize As System.Drawing.Size = New Size(100, 100)
                    testWebBrowserForm.Size = browserSize
                    testWebBrowserForm.FormBorderStyle = FormBorderStyle.FixedSingle
                    testWebBrowserForm.Show()
                    testWebBrowserForm.SendToBack()
                    testWebBrowserForm.Location = New Point(100, 100)

                    testWebBrowserForm.Navigate(New Uri("https://google.com/submitForm"))
                Next
End Sub

// Once the document has completely loaded
Public Sub documentLoadComplete()

        Dim submitButton As HtmlElement = Nothing, formEl As HtmlElement = Nothing

        Dim attachmentInputElements As Windows.Forms.HtmlElementCollection = testWebBrowserForm.webBrowser.Document.GetElementsByTagName("input")
        Dim formElements As Windows.Forms.HtmlElementCollection = testWebBrowserForm.webBrowser.Document.Forms
        Dim form As Windows.Forms.HtmlElement = testWebBrowserForm.webBrowser.Document.Forms(0)

        For y = 0 To formElements.Count - 1
            Dim formelement As HtmlElement = formElements(y)
            If formelement.GetAttribute("name").Equals("theForm") Then
                formEl = formelement
            End If
        Next

        For i = 0 To attachmentInputElements.Count - 1
            Dim inputElement As HtmlElement = attachmentInputElements(i)
            If inputElement.GetAttribute("type").Equals("submit") Then
                submitButton = inputElement
            End If
        Next

        testWebBrowserForm.webBrowser.Document.InvokeScript("doSomething")

        submitButton.InvokeMember("click")

        testWebBrowserForm.Close()
End Sub

问题： 每次我尝试运行此循环时，它都会打开多个 Web 浏览器表单，但只关闭第一个表单并保持其他表单打开。另外，它确实执行了多次导航，但实际上只执行了最后一次导航提交。

预期行为： 我想让表单真正经历上面提到的过程，完成每个完成的事件，关闭表单，然后再次开始创建表单、导航和关闭表单。

Answer 1

我自己设法解决了这个问题，并认为我会为可能试图解决类似问题的其他人发布答案。

基本上，我所做的是，我没有逐个遍历 URL 列表，而是等待 documentcomplete 事件完成，一旦完成，我使用相同的 webbrowserform 并执行另一个导航，直到我的所有 URL 都有已完全导航，然后我关闭表单。

代码：

Public currentUrlIndex As Integer = Nothing, currentUrl As String = Nothing
    Public Sub customNavigation()

                        testWebBrowserForm = New WebBrowserForm(Me)
                        Dim browserSize As System.Drawing.Size = New Size(100, 100)
                        testWebBrowserForm.Size = browserSize
                        testWebBrowserForm.FormBorderStyle = FormBorderStyle.FixedSingle
                        testWebBrowserForm.Show()
                        testWebBrowserForm.SendToBack()
                        testWebBrowserForm.Location = New Point(100, 100)
                        currentUrlIndex = 0
                        currentUrl = listOfUrls(currentUrlIndex)
                        testWebBrowserForm.Navigate(New Uri(currentUrl))

    End Sub

    // Once the document has completely loaded
    Public Sub documentLoadComplete()

            Dim submitButton As HtmlElement = Nothing, formEl As HtmlElement = Nothing

            Dim attachmentInputElements As Windows.Forms.HtmlElementCollection = testWebBrowserForm.webBrowser.Document.GetElementsByTagName("input")
            Dim formElements As Windows.Forms.HtmlElementCollection = testWebBrowserForm.webBrowser.Document.Forms
            Dim form As Windows.Forms.HtmlElement = testWebBrowserForm.webBrowser.Document.Forms(0)

            For y = 0 To formElements.Count - 1
                Dim formelement As HtmlElement = formElements(y)
                If formelement.GetAttribute("name").Equals("theForm") Then
                    formEl = formelement
                End If
            Next

            For i = 0 To attachmentInputElements.Count - 1
                Dim inputElement As HtmlElement = attachmentInputElements(i)
                If inputElement.GetAttribute("type").Equals("submit") Then
                    submitButton = inputElement
                End If
            Next

            testWebBrowserForm.webBrowser.Document.InvokeScript("doSomething")

            submitButton.InvokeMember("click")

            If currentUrlIndex = listOfUrls.Count - 1 Then
                    testWebBrowserForm.Close()
                    Exit Sub
                Else
                    currentUrlIndex = currentUrlIndex + 1
                    currentUrl = listOfUrls(currentUrlIndex)
                    testWebBrowserForm.Navigate(New Uri(currentUrl))
                End If
    End Sub