在QTP中判断一个网页是否已经被开启

Dim descBrowser
Set descBrowser = Descrīption.Create()
descBrowser("openurl").value = "http://www.google.cn/"

Set child = desktop.ChildObjects(descBrowser)

msgbox child.count()

If child.count()=0 Then
    print "该网页没有被开启\"
Else
    For i =1 to child.count()
         child(i-1).close
    Next
End If

原文转自：http://www.ltesting.net