QuickTestPro處理帶有IFRAME的問題(續)

  1.首先建立HTML文件，具體頁面文件是什么樣子請看《QuickTestPro處理帶有IFRAME的問題》一文

   2.利用vb，建立vb工程文件，代碼如下（工程需要引入MSHtml,在CPE課程中QTP自動化測試工具實現原理一章我介紹過這個對象，還有加入另外一個activex 空間SHDocVwCtl）

   Dim webdoc As HTMLDocument

    Private Sub cmdfindlink_Click()

    Dim ElementCollection As IHTMLElementCollection
    Dim x
    Dim kx As HTMLDocument
    Dim xAcollection As IHTMLElementCollection
    '
    '提取超鏈接
    ''定義元素集
    Dim Acollection As IHTMLElementCollection
   
   
   
    Set webdoc = wbBrowser.Document
    Set ElementCollection = webdoc.All
   
   
    ''設置元素集為所有的Anchor元素,用tags方法引用元素
    Set Acollection = webdoc.All.tags("a")
    ''把Anchor元素轉換為相應的字符串表示,用items方法引用元素
    For i = 0 To Acollection.length - 1
        lstUrl.AddItem Acollection.Item(i).toString
    Next
    'length屬性返回元素集中元素的個數
   
    For i = 0 To webdoc.frames.length - 1
      Set x = webdoc.frames.Item(i)
      Set kx = x.Document
         
      Set xAcollection = kx.All.tags("a")
     
        For j = 0 To xAcollection.length - 1
            lstUrl.AddItem xAcollection.Item(j).toString
        Next
   
   
    Set xAcollection = Nothing
     

Next

End Sub

Private Sub cmdOpenURL_Click(Index As Integer)
 wbBrowser.Navigate "C:\Documents and Settings\Administrator\桌面\針對某些人的問題\test.html"
End Sub

實現代碼如上。

原文轉自：http://www.anti-gravitydesign.com