SendKeys并不总是通过ProcessId将键宏发送到AppActivate到另一个进程

Question

[Task：编写一个程序，该程序在单击时仅显示3个按钮，该程序模拟在另一个窗口中按下组合键（Ctrl + Z组合键）。

我做了什么：我的代码：

Public Class Form1
    Dim FigmaWindowName As String
    Dim Processes

    Public Sub New()
        'init form
        InitializeComponent()

        'set top position
        TopMost = True


    End Sub

    Private Sub ButtonUndo_Click(sender As Object, e As EventArgs) Handles ButtonUndo.Click

        Processes = GetObject("winmgmts:").InstancesOf("Win32_Process")

        For Each Process In Processes
            If StrComp(Process.Name, "Figma.exe", vbTextCompare) = 0 Then

                ' Activate the window using its process ID...
                With CreateObject("WScript.Shell")
                    .AppActivate(Process.ProcessId)
                    .SendKeys("(^z)")

                End With

                ' We found our process. No more iteration required...
                Exit For

            End If
        Next

        '....other buttons
    End Sub
End Class

问题：不稳定。如果不起作用，则单击时两个窗口都会闪烁，并且组合键不会发送到其他应用。 https://www.loom.com/share/89c47dfa38bc4bb6b1d3ff8b97b84ac8

问题我做错了什么？

Answer 1

首先，我不相信有一个稳定的应用程序可以使用“发送密钥”。但是，如果这是实现自动化的唯一方法，那么这里需要对您的代码进行一些额外的检查。

Dim wShell = CreateObject("WScript.Shell")

Dim isWindowActive As Boolean = False
Do 
    'AppActivate will return true when window is really active'
    isWindowActive = wShell.AppActivate(Process.ProcessId) 
    WScript.Sleep 100
Loop Until isWindowActive 
wShell.sendKeys("(^z)")