问题原文
“我的web页最下面一块是引入iframe的版权页面.导致我动态读取不到iframe外的其它链接。
我的动态读取语句如下:
set Desc = Description.Create()
oDesc("Class Name").value="Link"
set bjColl = Browser("供应商").Page("供应商").ChildObjects(oDesc)
NumberOfLists =ObjectColl.Count()
-----页面上本来有十几个link的,但因为页面下面有iframe的原因,跟踪以上语句发现读取的是iframe里的link,始终读取不到iframe外的link ,请问如何解决?
”
这道问题核心是取得所有的页面链接然后进行处理,但是由于其中包含了iframe导致利用集合无法得到页面中的所有链接(link)对象。为了解决这个问题,我自己模拟了一个环境,写了带有iframe的页面,然后利用qtp进行处理。
html代码如下:
1.带有iframe的html代码
<html>
<body>
<p>这是一个测试</p>
<p>
<a href="com">com</a>
</p>
<p>
<a href="nethttp://edu.51testing.net">net</a>
</p>
<iframe. src="包含的页面路径\url.html" width=100% name=comment frameborder=0 3onload="document.all['comment'].style.height=comment.document.body.scrollHeight"></iframe>
</body>
</html>
2.iframe包含的页面文件Html代码- url.html
<html>
<body>
<p>
<a href="sohuhttp://www.sohu.com">sohu</a>
</p>
<p>
<a href="hao123http://www.hao123.com">hao123</a>
</p>
</body>
</html>
qtp代码如下:枚举所有的页面link
Dim objPage
Dim objTag
Dim intTotalLink
Dim intCtr
Dim strLink
Dim strHref
Dim oDesc
Dim NumberOfiframe
'枚举网页中除了带有iframe里所有外部的链接
'#############################################
Set bjPage = Browser("Browser").Page("Page").Object
Set bjTag = objPage.GetElementsByTagName("A")
intTotalLink = objTag.Length - 1
For intCtr = 0 to intTotalLink
strLink = objTag(intCtr).InnerText
strHref = objTag(intCtr).Href
msgbox strLink
msgbox strHref
Next
'#############################################
'枚举iframe内的所有链接
Set Desc = Description.Create()
oDesc("html tag").Value = "iframe"
Set iframe. = Browser("Browser").Page("Page").ChildObjects(oDesc)
NumberOfiframe. = iframe.Count()
For i = 0 To NumberOfiframe. - 1
Set bjPage = iframe(i).Object
Set bjTag = objPage.GetElementsByTagName("A")
intTotalLink = objTag.Length - 1
For intCtr = 0 to intTotalLink
strLink = objTag(intCtr).InnerText
strHref = objTag(intCtr).Href
msgbox strLink
msgbox strHref
Next
Next
Set Desc=nothing
'######################################
以上代码在中Window2000ad sp4+qtp8.2上调试通过。
备注:
解决这个问题的方法很多,在51testing cpe工具使用培训的课程中就提到了解决这个问题的技术,我还写了一套代码同样解决这个问题。
今天一上blog就看到有人转我的文章!发了这篇文章很久了,但是一直都没有人问我另外一个问题,就是我解决这个问题所用到的另外一套代码是什么,很遗憾,所以今天看到其他人转这篇文章的时候,我把另外一套代码也贴出来,共享给大家!
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://bbs.51testing.com/viewthread.php?tid=35723&extra=page%3D1