求助：Excel VBA宏实现网站登录失败，输入凭证仍被判定为空

这种情况我碰到过好多次——现在的网站大多用React、Vue这类前端框架，直接通过VBA修改DOM元素的Value属性，根本不会触发框架需要的输入事件，导致网站的JS逻辑完全没察觉到你填了账号密码，所以才会出现「明明填了却判定未输入」的奇怪现象。

给你几个针对性的解决方案，一步步来调整：

1. 模拟真实输入事件，而非直接赋值 #

直接改.Value只是修改了DOM的静态值，但框架依赖input、change这类事件来同步内部状态。我们可以写一个辅助函数，先赋值再触发必要的事件：

Sub SetInputValue(elem As Object, inputVal As String)
    elem.Value = inputVal
    ' 触发input事件（适配大多数现代框架）
    elem.FireEvent "oninput"
    ' 额外触发change事件作为兜底
    elem.FireEvent "onchange"
End Sub

2. 更精准的元素等待逻辑 #

原来的While .Busy Or .readyState < 4只能确保页面基本加载完成，但很多动态渲染的元素（比如登录表单）可能还没完全初始化。可以加一个循环等待目标元素存在：

Function WaitForElement(IE As InternetExplorer, elemId As String) As Object
    Dim elem As Object
    Do
        On Error Resume Next
        Set elem = IE.document.getElementById(elemId)
        On Error GoTo 0
        DoEvents
    Loop Until Not elem Is Nothing
    Set WaitForElement = elem
End Function

3. 改用JS触发点击事件 #

直接调用.Click有时候也会被框架拦截，换成通过JS执行点击更可靠：

Sub TriggerElementClick(elem As Object)
    elem.document.parentWindow.execScript "arguments[0].click();", elem
End Sub

修改后的完整代码 #

把这些整合到你的宏里，替换原来的赋值和点击逻辑：

Public Sub GetInfo()
    Dim IE As New InternetExplorer
    Dim emailElem As Object, pwdElem As Object, submitElem As Object
    
    With IE
        .Visible = True
        .navigate "https://apiweb.biomerieux.com/login"
        
        ' 等待页面加载完成
        While .Busy Or .readyState < 4: DoEvents: Wend
        
        ' 等待邮箱输入框加载
        Set emailElem = WaitForElement(IE, "signupEmail")
        emailElem.Focus
        SetInputValue emailElem, "xxxx"
        
        Application.Wait Now + TimeSerial(0, 0, 1) ' 短暂等待确保事件触发
        
        ' 等待密码输入框加载
        Set pwdElem = WaitForElement(IE, "signupPassword")
        pwdElem.Focus
        SetInputValue pwdElem, "yyyy"
        
        Application.Wait Now + TimeSerial(0, 0, 1)
        
        ' 等待登录按钮加载并触发点击
        Set submitElem = WaitForElement(IE, "signupSubmit")
        submitElem.Focus
        TriggerElementClick submitElem
        
        ' .Quit ' 按需取消注释
    End With
End Sub

' 辅助函数：设置输入值并触发事件
Sub SetInputValue(elem As Object, inputVal As String)
    elem.Value = inputVal
    elem.FireEvent "oninput"
    elem.FireEvent "onchange"
End Sub

' 辅助函数：等待元素加载完成
Function WaitForElement(IE As InternetExplorer, elemId As String) As Object
    Dim elem As Object
    Do
        On Error Resume Next
        Set elem = IE.document.getElementById(elemId)
        On Error GoTo 0
        DoEvents
    Loop Until Not elem Is Nothing
    Set WaitForElement = elem
End Function

' 辅助函数：通过JS触发点击
Sub TriggerElementClick(elem As Object)
    elem.document.parentWindow.execScript "arguments[0].click();", elem
End Sub

为什么原来的代码失效？ #

简单说，现代前端框架（比如React）会维护自己的内部状态，不会实时监听DOM的value变化。只有当用户实际输入（触发input事件）时，框架才会同步状态到自己的变量里。你之前的代码直接改了DOM的value，但没触发这些事件，所以网站的表单验证逻辑读取的还是框架里的初始空值，自然判定凭证未输入。

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