QuickTestPro处理带有IFRAME的问题

QuickTestPro处理带有IFRAME的问题
 
文章出处:51tesing博客 作者:pcl 发布时间:2006-07-19
 

问题原文

我的web页最下面一块是引入iframe的版权页面.导致我动态读取不到iframe外的其它链接。
我的动态读取语句如下:
set oDesc = Description.Create()
oDesc("Class Name").value="Link"
set objColl = 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 3οnlοad="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 objPage = Browser("Browser").Page("Page").Object
Set objTag = 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 oDesc = 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 objPage = iframe(i).Object
 Set objTag = 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  oDesc=nothing
'######################################

以上代码在中Window2000ad sp4+qtp8.2上调试通过。

备注:

 解决这个问题的方法很多,在51testing cpe工具使用培训的课程中就提到了解决这个问题的技术,我还写了一套代码同样解决这个问题。

 

原稿出处:

本文初衷为解决论坛中提到的问题,链接:http://bbs.51testing.com/viewthread.php?tid=35723&extra=page%3D1

问题原文

我的web页最下面一块是引入iframe的版权页面.导致我动态读取不到iframe外的其它链接。
我的动态读取语句如下:
set oDesc = Description.Create()
oDesc("Class Name").value="Link"
set objColl = 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 3οnlοad="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 objPage = Browser("Browser").Page("Page").Object
Set objTag = 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 oDesc = 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 objPage = iframe(i).Object
 Set objTag = 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  oDesc=nothing
'######################################

以上代码在中Window2000ad sp4+qtp8.2上调试通过。

备注:

 解决这个问题的方法很多,在51testing cpe工具使用培训的课程中就提到了解决这个问题的技术,我还写了一套代码同样解决这个问题

 
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值