自动登录

Question

自动登录有很多表格，但我似乎找不到适合我的表格。我正在使用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浏览器。如果我将代码更改为以下内容，则会打开一个新的Web浏览器，但不会单击该按钮。

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

有什么建议吗？