1

有很多关于自动登录的表格，但我似乎找不到适合我的表格。我正在使用 MVS 2010，如果有任何重复，这是一个尝试访问 Web 浏览器的控制台应用程序。这是我的两个相关潜艇。

' Navigates to the given URL if it is valid. 
Private Sub Navigate(ByVal address As String)
    If String.IsNullOrEmpty(address) Then Return

    If address.Equals("about:blank") Then Return

    If Not address.StartsWith("http://") And Not address.StartsWith("https://") Then
        address = "http://" & address
    End If

    Try
        webBrowser1.Navigate(New Uri(address))
    Catch ex As System.UriFormatException
        Return
    End Try
End Sub


Private Sub WebBrowser1_DocumentCompleted() Handles webBrowser1.DocumentCompleted

    While webBrowser1.IsBusy
        System.Threading.Thread.Sleep(30)
    End While

    If Not webBrowser1.IsBusy Then
        For Each ele As HtmlElement In webBrowser1.Document.All
            If ele.GetAttribute("ctl00$ContentPlaceHolder1$LoginButton").ToLower = "Login" Then
                ele.InvokeMember("click")
            End If
        Next
    End If
End Sub

正如您可能看到的那样，它从来没有点击过文档完成，但它从来没有启动过新的网络浏览器。如果我将代码更改为以下代码，则会打开一个新的 Web 浏览器，但不会单击该按钮。

   webBrowser1.Navigate(New Uri(address), true)

有什么建议么？

4

0 回答 0