Excel VBA - 停止运行由 Shell 启动的程序

Sub StopProgram()
    Dim progPath As String
    Dim progID As Double
    
    ' 设置要启动的程序路径和程序ID
    progPath = "C:\Program Files\Program\program.exe"
    progID = Shell(progPath, vbNormalFocus)
    
    ' 等待一段时间以确保程序启动
    Application.WAIt Now + TimeValue("00:00:05")
    
    ' 发送Ctrl + C键给程序，停止其运行
    AppActivate progID
    SendKeys "^{C}"
End Sub