VBS关闭不了UFT许可证弹窗

path1="E:\UFT\APITest\APITest.st"
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run path1,1,true
TimeOut=10
StartTime=Now()
WScript.sleep 1000
Do While DateDiff("s", StartTime, Now()) < TimeOut
WScript.sleep 50
MsgBox "no"
WshShell.appactivate("Unified Functional Testing")
If WshShell.appactivate("Unified Functional Testing")=true Then

WshShell.SendKeys "{ESC}"
Exit Do
End If
Loop

1、WshShell.run path1,1,true改成WshShell.run path1,1,false
2、去掉调试信息MsgBox "no"