如何在锁定的Windows机器上自动登录QuickBooks Desktop？

我正在开发一个自动化项目，需要打开QuickBooks Desktop并输入信息完成登录。当前实现是通过VBA代码打开文件，搭配VBScript和任务计划程序定时触发，但遇到的问题是：当电脑处于锁定状态（Win+L）或休眠状态时，这个自动化流程完全无法运行。

现有实现代码 #

VBA代码 #

Public Sub openQB()
    Dim qbPathStr As String
    qbPathStr = "QuickBooks File Location"

    Dim Shex As Object
    Set Shex = CreateObject("Shell.Application")
    On Error Resume Next
    
    Shex.Open (qbPathStr)
    Application.Wait Now + #12:00:30 AM#
    
    AppActivate "QuickBooks Desktop Pro 2021"
    
    SendKeys ("Password")
    SendKeys ("~")
End Sub

VBScript代码 #

Set objExcel = CreateObject("Excel.Application") 

objExcel.Visible = True 
objExcel.DisplayAlerts = False
    
Set objWorkbook = objExcel.Workbooks.Open("Excel file with VBA code")

objExcel.run "openQB"

objExcel.Quit

Set objExcel = Nothing
Set objWorkbook = Nothing
    
wscript.quit

解决建议 #

1. 调整系统与任务计划基础设置 #

• 任务计划程序配置：找到目标任务进入设置选项卡，勾选唤醒计算机运行此任务，取消勾选计算机空闲时停止任务；在常规选项卡选择不管用户是否登录都要运行，并勾选使用最高权限运行。
• 电源设置：设置Windows从不自动休眠，延长锁屏超时时间（或禁用锁屏），确保任务执行期间电脑处于活跃会话状态。

2. 替换依赖桌面会话的操作逻辑 #

SendKeys和AppActivate完全依赖活跃的桌面交互会话，锁屏时会话被挂起必然失效，建议改用以下方案：

• 使用Windows API替代：通过FindWindow、FindWindowEx定位QuickBooks登录窗口的输入控件，再用SendMessage发送密码等内容，无需依赖前台桌面。
• 改用QuickBooks官方SDK：使用QBXML SDK直接和QuickBooks进行数据交互，完全绕过UI操作，稳定性和兼容性更高。

3. 增加会话状态检测逻辑 #

在VBA中添加锁屏状态检测，提前判断环境是否支持执行：

' VBA检测锁屏状态示例（中文系统）
Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Function IsLocked() As Boolean
    Dim hwnd As Long
    Dim windowText As String * 255
    hwnd = GetForegroundWindow()
    GetWindowText hwnd, windowText, 255
    IsLocked = InStr(windowText, "锁定") > 0
End Function

检测到锁屏时，可选择记录日志后终止流程，或通过API解锁（需管理员权限）。

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