(转)QuickTestPro处理带有IFRAME的问题
上一篇 /
下一篇 2008-12-29 13:58:27
/ 个人分类：QTP
“我的web页最下面一块是引入iframe的版权页面.导致我动态读取不到iframe外的其它链接。
我的动态读取语句如下：
set ōDesc = Descrīption.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 = Descrīption.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上调试通过。
收藏
举报
TAG:
