使用webbrowser1的vb.net自动登录

webBrowser1.Navigate("https://example.com/login") '替换为实际的登录页面URL

Private Sub webBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles webBrowser1.DocumentCompleted
    If webBrowser1.Url.ToString() = "https://example.com/login" Then '替换为实际的登录页面URL
        Dim usernameElement As HtmlElement = webBrowser1.Document.GetElementById("username") '替换为实际的用户名输入框ID
        Dim passwordElement As HtmlElement = webBrowser1.Document.GetElementById("password") '替换为实际的密码输入框ID
        Dim loginButtonElement As HtmlElement = webBrowser1.Document.GetElementById("loginButton") '替换为实际的登录按钮ID

        If usernameElement IsNot Nothing AndAlso passwordElement IsNot Nothing AndAlso loginButtonElement IsNot Nothing Then
            usernameElement.SetAttribute("value", "your_username") '替换为实际的用户名
            passwordElement.SetAttribute("value", "your_password") '替换为实际的密码
            loginButtonElement.InvokeMember("click") '模拟点击登录按钮
        End If
    End If
End Sub