首页 新闻 搜索 专区 学院

VBS无法关闭UFT11.5弹窗(许可证警告)

0
悬赏园豆:5 [待解决问题]

实现代码:

path1="E:\UFT\APITest\APITest.st"
path= "C:\Program Files (x86)\HP\Unified Functional Testing\bin\UFT.exe"

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run path1,1,true
TimeOut=10
StartTime=Now()
WScript.sleep 500

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

hedy-zhou的主页 hedy-zhou | 初学一级 | 园豆:193
提问于:2016-10-18 13:41
< >
分享
所有回答(1)
0

把run参数的true改成false,即可继续执行一下代码

hedy-zhou | 园豆:193 (初学一级) | 2016-10-18 17:23
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册