Excel VBA：暂停脚本至网页完全加载及相关问题咨询

你遇到的这两个问题是浏览器自动化场景里的典型痛点——动态页面加载时机把控和反爬验证触发，我给你整理几个实用的解决思路和优化方案：

一、处理代码在页面完全加载前执行的问题 #

你推测的原因完全正确：很多物流网站会在初始页面加载完成后，通过JavaScript动态拉取或刷新物流数据，这时候单纯等待页面readyState变为complete是不够的。这里有两种可靠的处理方式：

• 等待目标元素出现：不要只等页面整体加载完成，而是直接等待你需要提取的物流信息元素（比如追踪状态、时间节点的DOM元素）加载完毕。示例VBA代码：

  ' 先等待页面初始加载完成
  Do While IE.Busy Or IE.document.readyState <> "complete"
      DoEvents
  Loop
  ' 循环等待目标元素（比如ID为tracking-status的状态元素）出现
  Dim targetElement As Object
  Set targetElement = Nothing
  Do While targetElement Is Nothing
      On Error Resume Next
      Set targetElement = IE.document.getElementById("tracking-status")
      On Error GoTo 0
      DoEvents
      ' 每1秒检查一次，避免占用过多系统资源
      Application.Wait Now + TimeValue("00:00:01")
  Loop
  

• 监听页面二次加载事件：如果页面存在明确的二次刷新行为，可以监听IE的DocumentComplete事件，在事件触发时再执行提取逻辑，这种方式适合对VBA事件处理熟悉的场景。

二、优化鼠标未移动触发人机验证的问题 #

图片验证码是网站的反爬机制，完全避免确实有难度，但我们可以通过模拟人类操作习惯来大幅降低触发概率：

• 模拟随机鼠标移动：在VBA中调用Windows API模拟鼠标在IE窗口内的随机移动，让网站判定为人类操作。示例代码（需在模块顶部声明API）：

  ' 声明所需Windows API（放在模块最顶部）
  Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
  Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
  Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As RECT) As Long
  Type RECT
      Left As Long
      Top As Long
      Right As Long
      Bottom As Long
  End Type
  
  ' 模拟鼠标在IE窗口内随机移动的函数
  Sub SimulateMouseMove(IE As Object)
      Dim ieRect As RECT
      GetWindowRect IE.hwnd, ieRect
      ' 生成窗口内的随机坐标（避开边缘区域）
      Dim randX As Long, randY As Long
      randX = ieRect.Left + 50 + Int(Rnd() * (ieRect.Right - ieRect.Left - 100))
      randY = ieRect.Top + 50 + Int(Rnd() * (ieRect.Bottom - ieRect.Top - 100))
      ' 移动鼠标到目标位置
      SetCursorPos randX, randY
      ' 触发鼠标移动事件，让网站感知到操作
      mouse_event &H1, 0, 0, 0, 0
  End Sub
  

  你可以在页面加载完成后调用这个函数，甚至在每次输入运单号码、切换页面前后都模拟一次移动。

• 添加随机操作延迟：模拟人类操作的间隔节奏，比如在打开新页面、输入运单号码后，等待2-5秒的随机时间，避免操作过于机械：

  ' 等待随机2-5秒
  Application.Wait Now + TimeValue("00:00:" & CStr(2 + Int(Rnd() * 4)))
  

• 手动介入处理验证：如果还是频繁触发验证，可以在代码中加入判断逻辑，当检测到验证码元素出现时，暂停代码并提示你手动完成验证，之后再继续执行：

  Do While Not IE.document.querySelector(".captcha-container") Is Nothing
      MsgBox "请完成页面上的人机验证，点击确定后继续执行"
      DoEvents
  Loop
  

• 备选方案：直接调用物流API：如果目标物流服务商提供公开的查询API，直接通过VBA发送HTTP请求获取数据会比浏览器自动化更稳定，完全避开页面加载和验证问题——你可以去物流服务商的开发者平台查看是否有相关接口。

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