QuickTestPro处理带有IFRAME的问题 - QTP - 中国测试社区 powered by www.3atesting.com

>首页 -> 功能测试 -> QTP

TOP

QuickTestPro处理带有IFRAME的问题

[ 录入者:无名 | 时间:2007-08-02 23:49:02 | 作者:pcl | 来源:51testing | 浏览:479次 ]

欢迎光临！

问题原文

欢迎光临！I5m3atestingsfwtrBnG

“我的web页最下面一块是引入iframe的版权页面.导致我动态读取不到iframe外的其它链接。

欢迎光临！I5m3atestingsfwtrBnG

我的动态读取语句如下：

欢迎光临！I5m3atestingsfwtrBnG

set oDesc = Description.Create()

欢迎光临！I5m3atestingsfwtrBnG

oDesc("Class Name").value="Link"

欢迎光临！I5m3atestingsfwtrBnG

set objColl = Browser("供应商").Page("供应商").ChildObjects(oDesc)

欢迎光临！I5m3atestingsfwtrBnG

NumberOfLists =ObjectColl.Count()

欢迎光临！I5m3atestingsfwtrBnG

-----页面上本来有十几个link的，但因为页面下面有iframe的原因，跟踪以上语句发现读取的是iframe里的link，始终读取不到iframe外的link , 请问如何解决?

欢迎光临！I5m3atestingsfwtrBnG

”

欢迎光临！I5m3atestingsfwtrBnG

这道问题核心是取得所有的页面链接然后进行处理，但是由于其中包含了iframe导致利用集合无法得到页面中的所有链接（link）对象。为了解决这个问题，我自己模拟了一个环境，写了带有iframe的页面，然后利用qtp进行处理。

欢迎光临！I5m3atestingsfwtrBnG

html代码如下：

欢迎光临！I5m3atestingsfwtrBnG

1.带有iframe的html代码

欢迎光临！I5m3atestingsfwtrBnG

<html>

欢迎光临！I5m3atestingsfwtrBnG

<body>

欢迎光临！I5m3atestingsfwtrBnG

这是一个测试

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

</body>

欢迎光临！I5m3atestingsfwtrBnG

</html>

欢迎光临！I5m3atestingsfwtrBnG

2.iframe包含的页面文件Html代码 - url.html

欢迎光临！I5m3atestingsfwtrBnG

<html>

欢迎光临！I5m3atestingsfwtrBnG

<body>

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

</body>

欢迎光临！I5m3atestingsfwtrBnG

</html>

欢迎光临！I5m3atestingsfwtrBnG

qtp代码如下：枚举所有的页面link

欢迎光临！I5m3atestingsfwtrBnG

Dim objPage

欢迎光临！I5m3atestingsfwtrBnG

Dim objTag

欢迎光临！I5m3atestingsfwtrBnG

Dim intTotalLink

欢迎光临！I5m3atestingsfwtrBnG

Dim intCtr

欢迎光临！I5m3atestingsfwtrBnG

Dim strLink

欢迎光临！I5m3atestingsfwtrBnG

Dim strHref

欢迎光临！I5m3atestingsfwtrBnG

Dim oDesc

欢迎光临！I5m3atestingsfwtrBnG

Dim NumberOfiframe

欢迎光临！I5m3atestingsfwtrBnG

'枚举网页中除了带有iframe里所有外部的链接

欢迎光临！I5m3atestingsfwtrBnG

'#############################################

欢迎光临！I5m3atestingsfwtrBnG

Set objPage = Browser("Browser").Page("Page").Object

欢迎光临！I5m3atestingsfwtrBnG

Set objTag = objPage.GetElementsByTagName("A")

欢迎光临！I5m3atestingsfwtrBnG

intTotalLink = objTag.Length - 1

欢迎光临！I5m3atestingsfwtrBnG

For intCtr = 0 to intTotalLink

欢迎光临！I5m3atestingsfwtrBnG

strLink = objTag(intCtr).InnerText

欢迎光临！I5m3atestingsfwtrBnG

strHref = objTag(intCtr).Href

欢迎光临！I5m3atestingsfwtrBnG

msgbox strLink

欢迎光临！I5m3atestingsfwtrBnG

msgbox strHref

欢迎光临！I5m3atestingsfwtrBnG

'#############################################

欢迎光临！I5m3atestingsfwtrBnG

'枚举iframe内的所有链接

欢迎光临！I5m3atestingsfwtrBnG

Set oDesc = Description.Create()

欢迎光临！I5m3atestingsfwtrBnG

oDesc("html tag").Value = "iframe"

欢迎光临！I5m3atestingsfwtrBnG

Set iframe = Browser("Browser").Page("Page").ChildObjects(oDesc)

欢迎光临！I5m3atestingsfwtrBnG

NumberOfiframe = iframe.Count()

欢迎光临！I5m3atestingsfwtrBnG

For i = 0 To NumberOfiframe - 1

欢迎光临！I5m3atestingsfwtrBnG

Set objPage = iframe(i).Object

欢迎光临！I5m3atestingsfwtrBnG

Set objTag = objPage.GetElementsByTagName("A")

欢迎光临！I5m3atestingsfwtrBnG

intTotalLink = objTag.Length - 1

欢迎光临！I5m3atestingsfwtrBnG

For intCtr = 0 to intTotalLink

欢迎光临！I5m3atestingsfwtrBnG

strLink = objTag(intCtr).InnerText

欢迎光临！I5m3atestingsfwtrBnG

strHref = objTag(intCtr).Href

欢迎光临！I5m3atestingsfwtrBnG

msgbox strLink

欢迎光临！I5m3atestingsfwtrBnG

msgbox strHref

欢迎光临！I5m3atestingsfwtrBnG

Set oDesc=nothing

欢迎光临！I5m3atestingsfwtrBnG

'######################################

欢迎光临！I5m3atestingsfwtrBnG

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

欢迎光临！I5m3atestingsfwtrBnG

备注：

欢迎光临！I5m3atestingsfwtrBnG

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

欢迎光临！I5m3atestingsfwtrBnG

原稿出处：

欢迎光临！I5m3atestingsfwtrBnG

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

欢迎光临！I5m3atestingsfwtrBnG

问题原文

欢迎光临！I5m3atestingsfwtrBnG

“我的web页最下面一块是引入iframe的版权页面.导致我动态读取不到iframe外的其它链接。

欢迎光临！I5m3atestingsfwtrBnG

我的动态读取语句如下：

欢迎光临！I5m3atestingsfwtrBnG

set oDesc = Description.Create()

欢迎光临！I5m3atestingsfwtrBnG

oDesc("Class Name").value="Link"

欢迎光临！I5m3atestingsfwtrBnG

set objColl = Browser("供应商").Page("供应商").ChildObjects(oDesc)

欢迎光临！I5m3atestingsfwtrBnG

NumberOfLists =ObjectColl.Count()

欢迎光临！I5m3atestingsfwtrBnG

-----页面上本来有十几个link的，但因为页面下面有iframe的原因，跟踪以上语句发现读取的是iframe里的link，始终读取不到iframe外的link , 请问如何解决?

欢迎光临！I5m3atestingsfwtrBnG

”

欢迎光临！I5m3atestingsfwtrBnG

html代码如下：

欢迎光临！I5m3atestingsfwtrBnG

1.带有iframe的html代码

欢迎光临！I5m3atestingsfwtrBnG

<html>

欢迎光临！I5m3atestingsfwtrBnG

<body>

欢迎光临！I5m3atestingsfwtrBnG

这是一个测试

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

</body>

欢迎光临！I5m3atestingsfwtrBnG

</html>

欢迎光临！I5m3atestingsfwtrBnG

2.iframe包含的页面文件Html代码 - url.html

欢迎光临！I5m3atestingsfwtrBnG

<html>

欢迎光临！I5m3atestingsfwtrBnG

<body>

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！I5m3atestingsfwtrBnG

</body>

欢迎光临！I5m3atestingsfwtrBnG

</html>

欢迎光临！I5m3atestingsfwtrBnG

qtp代码如下：枚举所有的页面link

欢迎光临！I5m3atestingsfwtrBnG

Dim objPage

欢迎光临！I5m3atestingsfwtrBnG

Dim objTag

欢迎光临！I5m3atestingsfwtrBnG

Dim intTotalLink

欢迎光临！I5m3atestingsfwtrBnG

Dim intCtr

欢迎光临！I5m3atestingsfwtrBnG

Dim strLink

欢迎光临！I5m3atestingsfwtrBnG

Dim strHref

欢迎光临！I5m3atestingsfwtrBnG

Dim oDesc

欢迎光临！I5m3atestingsfwtrBnG

Dim NumberOfiframe

欢迎光临！I5m3atestingsfwtrBnG

'枚举网页中除了带有iframe里所有外部的链接

欢迎光临！I5m3atestingsfwtrBnG

'#############################################

欢迎光临！I5m3atestingsfwtrBnG

Set objPage = Browser("Browser").Page("Page").Object

欢迎光临！I5m3atestingsfwtrBnG

Set objTag = objPage.GetElementsByTagName("A")

欢迎光临！I5m3atestingsfwtrBnG

intTotalLink = objTag.Length - 1

欢迎光临！I5m3atestingsfwtrBnG

For intCtr = 0 to intTotalLink

欢迎光临！I5m3atestingsfwtrBnG

strLink = objTag(intCtr).InnerText

欢迎光临！I5m3atestingsfwtrBnG

strHref = objTag(intCtr).Href

欢迎光临！I5m3atestingsfwtrBnG

msgbox strLink

欢迎光临！I5m3atestingsfwtrBnG

msgbox strHref

欢迎光临！I5m3atestingsfwtrBnG

'#############################################

欢迎光临！I5m3atestingsfwtrBnG

'枚举iframe内的所有链接

欢迎光临！I5m3atestingsfwtrBnG

Set oDesc = Description.Create()

欢迎光临！I5m3atestingsfwtrBnG

oDesc("html tag").Value = "iframe"

欢迎光临！I5m3atestingsfwtrBnG

Set iframe = Browser("Browser").Page("Page").ChildObjects(oDesc)

欢迎光临！I5m3atestingsfwtrBnG

NumberOfiframe = iframe.Count()

欢迎光临！I5m3atestingsfwtrBnG

For i = 0 To NumberOfiframe - 1

欢迎光临！I5m3atestingsfwtrBnG

Set objPage = iframe(i).Object

欢迎光临！I5m3atestingsfwtrBnG

Set objTag = objPage.GetElementsByTagName("A")

欢迎光临！I5m3atestingsfwtrBnG

intTotalLink = objTag.Length - 1

欢迎光临！I5m3atestingsfwtrBnG

For intCtr = 0 to intTotalLink

欢迎光临！I5m3atestingsfwtrBnG

strLink = objTag(intCtr).InnerText

欢迎光临！I5m3atestingsfwtrBnG

strHref = objTag(intCtr).Href

欢迎光临！I5m3atestingsfwtrBnG

msgbox strLink

欢迎光临！I5m3atestingsfwtrBnG

msgbox strHref

欢迎光临！I5m3atestingsfwtrBnG

Set oDesc=nothing

欢迎光临！I5m3atestingsfwtrBnG

'######################################

欢迎光临！I5m3atestingsfwtrBnG

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

欢迎光临！I5m3atestingsfwtrBnG

今天一上blog就看到有人转我的文章！发了这篇文章很久了，但是一直都没有人问我另外一个问题，就是我解决这个问题所用到的另外一套代码是什么，很遗憾，所以今天看到其他人转这篇文章的时候，我把另外一套代码也贴出来，共享给大家！

欢迎光临！I5m3atestingsfwtrBnG

1.首先建立HTML文件，具体页面文件是什么样子请看《QuickTestPro处理带有IFRAME的问题》一文

欢迎光临！I5m3atestingsfwtrBnG

2.利用vb，建立vb工程文件，代码如下（工程需要引入MSHtml,在CPE课程中QTP自动化测试工具实现原理一章我介绍过这个对象，还有加入另外一个activex 空间SHDocVwCtl）

欢迎光临！I5m3atestingsfwtrBnG

Dim webdoc As HTMLDocument

欢迎光临！I5m3atestingsfwtrBnG

Private Sub cmdfindlink_Click()

欢迎光临！I5m3atestingsfwtrBnG

Dim ElementCollection As IHTMLElementCollection

欢迎光临！I5m3atestingsfwtrBnG

Dim x

欢迎光临！I5m3atestingsfwtrBnG

Dim kx As HTMLDocument

欢迎光临！I5m3atestingsfwtrBnG

Dim xAcollection As IHTMLElementCollection

欢迎光临！I5m3atestingsfwtrBnG

'提取超链接

欢迎光临！I5m3atestingsfwtrBnG

''定义元素集

欢迎光临！I5m3atestingsfwtrBnG

Dim Acollection As IHTMLElementCollection

欢迎光临！I5m3atestingsfwtrBnG

Set webdoc = wbBrowser.Document

欢迎光临！I5m3atestingsfwtrBnG

Set ElementCollection = webdoc.All

欢迎光临！I5m3atestingsfwtrBnG

''设置元素集为所有的Anchor元素,用tags方法引用元素

欢迎光临！I5m3atestingsfwtrBnG

Set Acollection = webdoc.All.tags("a")

欢迎光临！I5m3atestingsfwtrBnG

''把Anchor元素转换为相应的字符串表示,用items方法引用元素

欢迎光临！I5m3atestingsfwtrBnG

For i = 0 To Acollection.length - 1

欢迎光临！I5m3atestingsfwtrBnG

lstUrl.AddItem Acollection.Item(i).toString

欢迎光临！I5m3atestingsfwtrBnG

'length属性返回元素集中元素的个数

欢迎光临！I5m3atestingsfwtrBnG

For i = 0 To webdoc.frames.length - 1

欢迎光临！I5m3atestingsfwtrBnG

Set x = webdoc.frames.Item(i)

欢迎光临！I5m3atestingsfwtrBnG

Set kx = x.Document

欢迎光临！I5m3atestingsfwtrBnG

Set xAcollection = kx.All.tags("a")

欢迎光临！I5m3atestingsfwtrBnG

For j = 0 To xAcollection.length - 1

欢迎光临！I5m3atestingsfwtrBnG

lstUrl.AddItem xAcollection.Item(j).toString

欢迎光临！I5m3atestingsfwtrBnG

Set xAcollection = Nothing

欢迎光临！I5m3atestingsfwtrBnG

End Sub

欢迎光临！I5m3atestingsfwtrBnG

Private Sub cmdOpenURL_Click(Index As Integer)

欢迎光临！I5m3atestingsfwtrBnG

wbBrowser.Navigate "C:\Documents and Settings\Administrator\桌面\针对某些人的问题\test.html"

欢迎光临！I5m3atestingsfwtrBnG

End Sub

欢迎光临！I5m3atestingsfwtrBnG

实现代码如上。

欢迎光临！I5m3atestingsfwtrBnG

欢迎光临！


[上一篇]QTP Recovery Scenario 简介	[下一篇]在QTP中建立一个数据库检查点

评-论

称　　呼:
验证码:
内　　容: