Дождитесь завершения процесса обновления, прежде чем переходить к следующей строке кода

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 и надеяться, что это достаточно долго.Нет другого способа узнать, завершило ли приложение обновление.