Windows 11中Shell命令返回错误TaskID致AppActivate失败求助

下面是几个可行的解决思路：

思路一：直接通过窗口标题激活记事本 #

记事本启动后的默认标题为无标题 - 记事本，可以跳过依赖TaskID的步骤，直接用窗口标题调用AppActivate：

Clipboard Msg & vbCrLf
Shell "Notepad", vbNormalFocus
' 给记事本预留窗口启动时间
Sleep 500 ' 若WinWrap不支持Sleep，可改用DoEvents循环实现延迟
On Error Resume Next
AppActivate "无标题 - 记事本"
If Err.Number = 0 Then
    SendKeys "^V", 1
End If
On Error GoTo 0

注：非中文系统需替换为对应语言的记事本标题，比如英文系统用Untitled - Notepad。

思路二：获取记事本真实PID用于激活 #

Win11中Shell返回的TaskID可能是启动器进程ID而非记事本主进程ID，可通过WMI查询刚启动的记事本进程获取真实PID：

Clipboard Msg & vbCrLf
Shell "Notepad", vbNormalFocus
Sleep 1000

' 通过WMI查询记事本进程
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT ProcessId FROM Win32_Process WHERE Name='notepad.exe'")

For Each objProcess In colProcesses
    TaskID = objProcess.ProcessId
    On Error Resume Next
    AppActivate TaskID
    If Err.Number = 0 Then
        SendKeys "^V", 1
        Exit For
    End If
Next

注：若存在多个记事本窗口，可结合进程启动时间筛选最新的进程，避免激活旧窗口。

思路三：添加错误重试机制 #

Win11中窗口就绪可能存在延迟，可在捕获错误后重试几次AppActivate：

Clipboard Msg & vbCrLf
TaskID = Shell("Notepad", vbNormalFocus)
RetryCount = 3
Success = False

Do While RetryCount > 0 And Not Success
    On Error Resume Next
    AppActivate TaskID
    If Err.Number = 0 Then
        SendKeys "^V", 1
        Success = True
    Else
        Sleep 500
        RetryCount = RetryCount - 1
    End If
    On Error GoTo 0
Loop

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