如何确定自动登录是否适用于WebBrowser控件？

Question

我正在使用WebBrowser控件来确定站点列表是否使用其出厂默认用户名和密码。但是，我遇到了问题，因为DocumentCompleted我正在使用模拟登录，一旦完成登录，也会调用登录。

此外，当它工作时，它会循环并报告其他几个站点具有默认登录名的错误报告。

我已经注意到了这些问题，今天下午无法解决这个问题。不确定是不是因为我累了，或者我的立方体另一边的那个人唱着他喜欢的新乐队的每一个字。

如果没有别的，有时它会帮助我输出所有内容并在第二天阅读它，也许我的工作来源可以帮助其他人。

问题：

• 实际站点使用默认凭据后出现误报
• 当页面404s或加载意外页面时停止处理

码：

Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    WebBrowser.Navigate(linqData(i).URL)

End Sub

Private Sub WebBrowser_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser.DocumentCompleted

    ' Check for Default Login
    Login("administrator", "password")

    ' Determine Results
    If WebBrowser.Url.ToString.Contains("index.php") Then
        ' Successfully Logged In
        LogData("Successfully Logged In to " & linqData(i).Name)
        NextSite()
    ElseIf WebBrowser.Url.ToString.Contains("loginfailed.php") Then
        ' Failed to Login
        NextSite()
    End If

End Sub

Sub Login(Username As String, Password As String)
    Dim FoundUsernameTextbox As Boolean = False
    Dim FoundPasswordTextbox As Boolean = False

    Try
        ' Find Username Textbox
        Try
            WebBrowser.Document.GetElementById("nameInput").InnerText = Username
            FoundUsernameTextbox = True
        Catch ex As Exception

        End Try

        ' Find Password Textbox
        Try
            WebBrowser.Document.GetElementById("pass").InnerText = Password
            FoundPasswordTextbox = True
        Catch ex As Exception

        End Try

        ' Find Login Button and Click
        Try
            If FoundUsernameTextbox And FoundPasswordTextbox Then
                WebBrowser.Document.GetElementById("submit").InvokeMember("click")
            End If
        Catch ex As Exception

        End Try

    Catch ex As Exception

    End Try
End Sub

Sub NextSite()

    Try

        i += 1

        If i < linqDataRecordCount Then
            WebBrowser.Navigate(linqData(i).URL)
        Else
            LogData("Finished at " & DateTime.Now)
        End If

    Catch ex As Exception

    End Try

End Sub

Answer 1

在DocumentCompleted中，您应该检查事件URL是否是浏览器的目标URL。这确保在页面完全加载后调用一次代码。

此外，您正在调用Login，然后继续处理再次处理浏览器的代码。这可能会导致不必要的行为你应该有一个Else并尝试在那里登录。

If e.Url = WebBrowser.Url Then    
    ' Determine Results
    If WebBrowser.Url.ToString.Contains("index.php") Then
        ' Successfully Logged In
        LogData("Successfully Logged In to " & linqData(i).Name)
        NextSite()
    ElseIf WebBrowser.Url.ToString.Contains("loginfailed.php") Then
        ' Failed to Login
        NextSite()
    Else
        Login("administrator", "password")
    End If
End If

使Login成为布尔函数也是一个好主意。如果找不到要调用的登录元素，则返回false并再次尝试或转到下一个站点。