平铺专门命名为windows / applications

Question

我试图水平平铺两个窗口，即相当于从任务管理器中选择两个程序并水平选择平铺。

目前我只能通过最小化所有窗口然后恢复我想要平铺的两个窗口来实现这一点，如下面的代码所示。

无论如何使用VBScript（或其他方式）平铺两个特定名称的应用程序，而不是最小化所有内容而不必通过VBScript加载应用程序？

Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.MinimizeALL
WScript.Sleep 500 
Set shl = CreateObject("WScript.Shell")
shl.AppActivate "Application 1"
WScript.Sleep 500  
shl.SendKeys "% r"
WScript.Sleep 500  
shl.AppActivate "Application 2"
shl.SendKeys "% r"
WScript.Sleep 500  
objShell.TileVertically  
Set shl = Nothing
Set objShell = Nothing