QTP关闭所有的应用程序窗口,场景恢复


'当运行的过程中可能会有其它程序,或其它窗口导致运行失败。可以在初始化或场景恢复时执行以下脚本;

Set MyDescription = Description.Create()

set TaskNames = desktop.ChildObjects(MyDescription)
NoOfTaskNames = TaskNames.Count
For Counter=1 to NoOfTaskNames-1
    TaskTitle = TaskNames(Counter).getroproperty("text")
    If left(TaskTitle,2) = "HP" or left(TaskTitle,15) = "Program Manager" or TaskTitle = "" Then
        print Counter & " :保留-- " & TaskNames(Counter).getroproperty("text")
    else
    '这种方式关闭的浏览器会停留退出确认界面
    'a(Counter).close
    print Counter & " :关闭 -- " & TaskNames(Counter).getroproperty("text")
    systemutil.CloseProcessByWndTitle (TaskNames(Counter).getroproperty("text"))
    End If
Next

版权声明:本文为博主原创文章,未经博主允许不得转载

相关信息

更多
您的回应...

相关话题

查看全部

也许你感兴趣

换一批

热门标签

更多