Excel VBA网页登录问题：修改输入框值后网站仍等待输入

嘿，我一眼就瞅出问题啦——这个登录页面用的是AngularJS框架，你直接用VBA修改输入框的value，根本触发不了它的内部数据绑定机制！Angular靠自己的双向绑定（就是HTML里的ng-model）来同步表单状态，普通DOM改值后，它的vm.credentials.username和vm.credentials.password模型还是空的，所以表单一直显示“未输入”，登录按钮也一直灰着。

给你几个靠谱的解决方案，按好用程度排：

方法1：直接改Angular的模型（最稳妥） #

Angular允许我们通过DOM元素拿到它的Scope（作用域），直接修改绑定的模型值，这样表单状态会立刻同步：

Sub AngularLogin()
    Dim IE As Object
    Dim usernameInput As Object
    Dim passwordInput As Object
    Dim angularScope As Object
    
    ' 启动IE并打开登录页
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "你的登录页面地址"
    
    ' 等页面加载完
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' 获取用户名和密码输入框
    Set usernameInput = IE.Document.getElementById("loginUsername")
    Set passwordInput = IE.Document.getElementById("loginPassword")
    
    ' 拿到Angular的作用域（针对AngularJS 1.x，你的页面就是这个版本）
    Set angularScope = IE.Document.parentWindow.angular.element(usernameInput).scope()
    
    ' 直接给模型赋值
    angularScope.vm.credentials.username = "你的邮箱或用户名"
    angularScope.vm.credentials.password = "你的密码"
    
    ' 触发数据变更事件，强制Angular更新表单状态
    angularScope.vm.loginDataChange()
    angularScope.$apply()
    
    ' 点登录按钮
    IE.Document.getElementById("login-button").Click
End Sub

方法2：触发Angular监听的输入事件 #

要是拿不到Scope，就模拟触发Angular盯着的input事件，让它“感知”到值变了：

Sub TriggerEventLogin()
    Dim IE As Object
    Dim usernameInput As Object
    Dim passwordInput As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "你的登录页面地址"
    
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    Set usernameInput = IE.Document.getElementById("loginUsername")
    Set passwordInput = IE.Document.getElementById("loginPassword")
    
    ' 先设置输入框值
    usernameInput.Value = "你的邮箱或用户名"
    passwordInput.Value = "你的密码"
    
    ' 关键！触发Angular的input事件
    TriggerAngularEvent usernameInput, "input"
    TriggerAngularEvent passwordInput, "input"
    
    ' 给表单一点时间更新状态
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 点击登录
    IE.Document.getElementById("login-button").Click
End Sub

' 辅助函数：创建并触发指定事件
Sub TriggerAngularEvent(element As Object, eventName As String)
    Dim eventObj As Object
    Set eventObj = element.Document.createEvent("HTMLEvents")
    eventObj.initEvent eventName, True, False
    element.dispatchEvent eventObj
End Sub

方法3：模拟手动键盘输入（最像真人操作） #

如果上面两种都不行，就模拟手动敲键盘，完全复刻用户输入的过程：

Sub SimulateKeyboardLogin()
    Dim IE As Object
    Dim usernameInput As Object
    Dim passwordInput As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "你的登录页面地址"
    
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' 聚焦用户名框，输入内容
    Set usernameInput = IE.Document.getElementById("loginUsername")
    usernameInput.Focus
    SendKeys "你的邮箱或用户名", True
    
    ' 聚焦密码框，输入内容
    Set passwordInput = IE.Document.getElementById("loginPassword")
    passwordInput.Focus
    SendKeys "你的密码", True
    
    ' 按回车登录
    IE.Document.getElementById("login-button").Focus
    SendKeys "{ENTER}", True
End Sub

小提醒： #

• 方法3的SendKeys容易受窗口焦点影响，运行时要确保IE在最前面。
• 从你的HTML看，页面用的是AngularJS 1.x（有ng-pristine、ng-model这些老指令），所以方法1肯定能用。
• 页面加载一定要等完全，不然找不到元素，必要时可以多等几秒。

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