等待刷新过程完成，然后再进入代码的下一行

Question

我正在尝试使用VBScript打开外部应用程序并使用Sendkeys刷新它。如何在sendkeys“ R”行中暂停代码（使用刷新数据），并在刷新操作完成后转到下一行？

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("""C:\Users\PC\Documents\CAP.pbix""")
do
WScript.Sleep 15000
objShell.AppActivate"CAP"
objShell.SendKeys"%{H}"
WScript.Sleep 1500
objShell.SendKeys"R"
WScript.Sleep 1500
objShell.SendKeys"%{H}"
WScript.Sleep 1500
objShell.SendKeys"PU" 
WScript.Sleep 1500
objShell.SendKeys"{Enter}"
WScript.Sleep 1500
objShell.SendKeys"{Esc}"
WScript.Sleep 2500
loop

Answer 1

您只能sleep，并希望它足够长。没有其他方法可以知道应用程序是否已完成刷新。