VBA操控IE自动化时如何在站点已登录状态下跳过登录环节

原代码触发报错的核心原因有两点：

1. 登录状态判断逻辑失效：原代码使用的选择器.Log In语法错误，类选择器中的空格会被解析为后代选择器，完全无法匹配到实际的登录按钮，导致已登录页面没有登录按钮时，程序依然会执行后续的输入框赋值操作，找不到对应元素就抛出「Object does not support...」错误。
2. 表单元素选择器不匹配实际页面结构：原代码用[name=userName]、[name=password]、[type=submit]定位元素，但实际给出的HTML中输入框没有name属性，登录按钮是a标签而非submit类型的表单元素，就算在未登录状态下执行也会找不到元素报错。

修改后的代码如下：

Sub Login()
    Dim IE As New InternetExplorer, url As String
    Dim Html As HTMLDocument, idCheck As Object

    url = "https://abc-site.com/"

    On Error Resume Next ' 可选：增加错误捕获避免偶发元素加载异常报错
    With IE
        .Visible = True
        .Navigate2 url
        While .Busy Or .readyState < 4: DoEvents: Wend
        ' 可选：当前站点是Angular开发，前端渲染可能有延迟，增加1秒等待确保元素加载完成
        Application.Wait Now + TimeValue("00:00:01")
        Set Html = .document
    End With

    ' 匹配实际HTML的登录按钮a标签title属性，准确判断是否处于未登录状态
    Set idCheck = Html.querySelector("a[title="" Log In""]")
    If Not idCheck Is Nothing Then
        ' 用id属性定位用户名、密码输入框，和实际HTML完全匹配
        Html.querySelector("#Content1_UserIDView_txtUserid_UiInput").Value = "username"
        Html.querySelector("#Content_UserIDView_tbxPassword_UiInput").Value = "password"
        ' 直接点击已经找到的登录按钮
        idCheck.Click
        While IE.Busy Or IE.readyState < 4: DoEvents: Wend
    End If
    On Error GoTo 0 ' 关闭错误捕获
    
    ' 清理对象避免内存泄漏
    Set idCheck = Nothing
    Set Html = Nothing
    Set IE = Nothing
End Sub

如果需要更严谨的判断，可以在赋值用户名密码前也分别检测两个输入框是否存在，避免极端情况下页面结构变化导致报错。

内容的提问来源于stack exchange，提问作者TCritical