以编程方式填写表单后重定向 url

Question

我有一个关于重定向网址的问题。我正在自动填写。填写表格后，我提交表格并单击按钮。之后，它重定向到一个新页面。我需要那个重定向网址。

举例

webBrowser1.Navigate("myurl.com")

        For I As Integer = 0 To 500
            If webBrowser1.ReadyState = WebBrowserReadyState.Complete Then Exit For
            Threading.Thread.Sleep(1)
            Application.DoEvents()
        Next

        Dim elementLogin = webBrowser1.Document.GetElementById("login_identifier")
        If Not IsNothing(elementLogin) Then
            webBrowser1.Document.GetElementById("login_identifier").SetAttribute("Value", "myemail")
        End If
        Dim elementPassword = webBrowser1.Document.GetElementById("login_password")
        If Not IsNothing(elementLogin) Then
            webBrowser1.Document.GetElementById("login_password").SetAttribute("Value", "mypassword")
        End If
        webBrowser1.Document.GetElementById("login_btn").Enabled = True
        webBrowser1.Document.GetElementById("login_btn").InvokeMember("click")

点击按钮后我需要重定向的 url。因为它在单击登录按钮后重定向到新页面。如果可能的话，请帮我解决这个问题 谢谢

Answer 1

您可以使用WebBrowser.URL 来获取它正在导航的网页。但是，如果您在导航开始之前尝试获取新 URL（这意味着您将获得 当前 URL），这可能会导致问题。

相反，尝试循环遍历与按钮 id 匹配的 WebBrowser.Document 的所有元素，最后获取按钮的 href：

Dim NextURL As String() = ""
For Each ele As HtmlElement In webBrowser1.Document.All
    If ele.GetAttribute("id") = "login_btn" then
        NextURL = ele.GetAttribute("href")
        Exit For
    End If
Next

这将触发“无”异常，并同时适用于多个元素。或者，也许更适合您的一个单独的按钮，使用：

Dim NextURL As String = webBrowser1.Document.GetElementById("login_btn").GetAttribute("href")

编辑：由于按钮的href 标记似乎为空，因此最好在重定向后订阅WebBrowser.DocumentCompleted 事件处理程序以通过WebBrowser.URL 获取新的网址。祝你好运！