VBA Selenium Basic自动化登录网站时按钮无法点击如何解决

使用VBA结合Selenium、Chrome浏览器实现目标网站自动登录授权流程，代码此前运行正常，当前执行出现异常：手动访问网站输入账号密码点击提交可正常登录，运行VBA代码时提交按钮无法点击，登录流程中断。

问题复现代码：

Sub Run_Test()
Dim dr As New ChromeDriver
Dim el As WebElement
Dim Login, password As String

Login = "vasilenko12": password = "1204"

dr.Get ("https://www.perevirkaznan.com/")
Sleep 1000

Set el = dr.FindElementByXPath("//a[@class='navigation__enter js-modal']")
el.Click
Sleep 30

Set el = dr.FindElementByXPath("//input[@name='login']")
el.SendKeys Login
Sleep 30

Set el = dr.FindElementByXPath("//input[@name='password']")
el.SendKeys password
Sleep 30

Set el = dr.FindElementByXPath("//label[@class='checkbox']")
el.Click
Sleep 30

Set el = dr.FindElementByXPath("//button[@class='btn btn-blue-transparent modal-submit']")
el.Click
Sleep 1000

dr.Get ("https://www.perevirkaznan.com/account/course")
Sleep 30
End Sub

• 等待逻辑缺陷：代码全部使用固定时长Sleep等待，未判断元素实际加载、可交互状态。登录弹窗渲染、复选框点击后的按钮状态激活需要一定时间，30毫秒等待时长过短，执行提交点击时按钮大概率处于未激活、事件未绑定完成的不可交互状态。
• 元素操作逻辑不兼容：直接点击checkbox关联的label标签，部分前端框架下自动化触发的label点击不会同步更新input复选框的勾选状态，导致前端“同意条款”校验不通过，提交按钮持续保持禁用。
• 自动化检测拦截：目标站点更新了前端防护规则，可识别Selenium驱动的浏览器自动化特征，会拦截自动化脚本触发的提交按钮点击事件，手动操作无特征标记所以可正常登录。
• 点击事件不匹配：Selenium默认的Click方法是触发DOM元素的onclick事件，部分站点的提交按钮绑定的是鼠标mousedown/mouseup原生事件，DOM点击无法触发提交逻辑。

• 替换固定等待为显式等待，每次操作前等待目标元素处于可交互状态，不再使用固定毫秒级等待。
• 调整复选框定位逻辑，直接定位内部的input复选框元素执行点击，必要时通过JS执行点击，确保勾选状态被前端正确识别。
• 提交按钮点击优先使用JS触发方式，绕过前端对点击事件来源的校验，点击前可先判断按钮是否存在disabled属性，确认按钮已激活。
• 配置ChromeDriver启动参数，隐藏Selenium自动化标识，绕过站点的自动化检测。

修复后参考代码：

Sub Run_Test_Fixed()
Dim dr As New ChromeDriver
Dim el As WebElement
Dim Login, password As String

Login = "vasilenko12": password = "1204"

' 配置启动参数隐藏自动化特征
dr.SetCapability "goog:chromeOptions", Array("args", Array("--disable-blink-features=AutomationControlled", "--start-maximized"))
dr.Get "https://www.perevirkaznan.com/"

' 等待登录入口按钮可点击后操作
dr.FindElementByXPath("//a[@class='navigation__enter js-modal']", timeout:=5000).Click

' 等待账号输入框加载完成后输入
Set el = dr.FindElementByXPath("//input[@name='login']", timeout:=5000)
el.SendKeys Login

' 等待密码输入框加载完成后输入
Set el = dr.FindElementByXPath("//input[@name='password']", timeout:=5000)
el.SendKeys password

' 直接定位复选框input元素点击，避免label点击失效
Set el = dr.FindElementByXPath("//label[@class='checkbox']//input[@type='checkbox']", timeout:=5000)
If Not el.IsSelected Then el.Click

' 等待提交按钮激活后，通过JS点击绕过事件校验
Set el = dr.FindElementByXPath("//button[@class='btn btn-blue-transparent modal-submit']", timeout:=5000)
dr.ExecuteScript "arguments[0].click();", el

' 等待登录完成后跳转个人页面
dr.Wait 1000
dr.Get "https://www.perevirkaznan.com/account/course"
End Sub

注意：如果执行后仍无法点击，可在提交前增加100-300毫秒的短等待，给前端留足按钮状态更新的时间；若提示自动化访问拦截，可额外配置Chrome加载真实用户的浏览器配置文件启动，进一步降低被检测概率。

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