在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.anti-gravitydesign.com