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