51Testing软件测试论坛

标题: QTP环境变更参数化后报找不到父对象 [打印本页]

作者: abbybeach 时间: 2008-7-31 16:39
标题: QTP环境变更参数化后报找不到父对象
请教：以下代码有什么错，要如何调整

pbrowser=environment.Value("browser")　　　'browser page webedit为环境变量
ppage=environment.Value("page")
Dim pwebedit
Set pwebedit=description.Create()
pwebedit("type").value="text"
pwebedit("name").value=environment.Value("webedit")

SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","http://baidu.com","C:\Program Files\Internet Explorer\iexplore.exe"
Browser("title:="&pbrowser).Page("title:="&ppage).WebEdit(pwebedit).Set "测试"

运行时报如下错误：Cannot find the "WebEdit" object's parent "Browser" (class Browser). Verify that parent properties match an object currently displayed in your application.

作者: abbybeach 时间: 2008-7-31 16:41
还有以下描述性编辑也是报同一个错误：

'两种不依靠对象打开页面的方法
'InvokeApplication "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.cn/"

SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe ","http://baidu.com","C:\Program Files\Internet Explorer\iexplore.exe"

'定义browser对象
Dim descbrowser
Set descbrowser=description.Create()
descbrowser("title").value="Browser"
descbrowser("openurl").value="http://baidu.com"

'定义page对象
Dim descpage
Set descpage=description.Create()
descpage("title").value="百度一下，你就知道"
descpage("url").value="http://baidu.com"

'定义Link对象
Dim descLink
Set descLink=description.Create()
descLink("html tag").value="A"

Dim descwebedit
Set descwebedit=description.Create()
descwebedit("name").value="wd"

Browser("title:="&descbrowser).Page("title:="&descpage).WebEdit(descwebedit).Set "林"
Browser(descbrowser).Page(descpage).WebButton("text:=百度一下").Click

作者: ppent 时间: 2008-7-31 17:16
标题: 回复 1# 的帖子
检查一下这种写法上，和对象库里面的对象识别属性是否一致，即确保对象是可以正确找到的。

作者: abbybeach 时间: 2008-8-1 09:01
用编程语言不是不依赖对象的吗？

作者: abbybeach 时间: 2008-8-1 09:03
我重新定义了browser与page的属性，可以运行成功了

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)