51Testing软件测试论坛

标题: QTP找不到对象？ [打印本页]

作者: zhengpeipei 时间: 2009-6-8 17:23
标题: QTP找不到对象？
最近刚学QTP，录制了一个注册的脚本，经过修改后回放，总是提示找不到对象，请哪位高手指点一下，谢谢！脚本如下：

Dim check_user,check_passwd,check_pswcopy, check_email

Browser("欢迎光临 xxx招聘网站首页").Page("欢迎光临 xxx招聘网站首页").Link("企业免费注册").Click

Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebEdit("userName").Set DataTable("user", dtGlobalSheet)
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").Image("sure").Check CheckPoint("sure_1")
check_user=DataTable.Value("check_user","Action1")
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebElement(check_user).Check CheckPoint(check_user)

Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebEdit("password").SetSecure DataTable("passwd", dtGlobalSheet)
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").Image("sure").Check CheckPoint("sure_2")
check_passwd=DataTable.Value("check_passwd",Action1)
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebElement(check_passwd).Check CheckPoint(check_passwd)

Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebEdit("passwordCopy").SetSecure DataTable("pswcopy", dtGlobalSheet)
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").Image("sure").Check CheckPoint("sure_3")
check_pswcopy=DataTable.Value("check_pswcopy",Action1)
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebElement(check_pswcopy).Check CheckPoint(check_pswcopy)

Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebEdit("email").Set DataTable("email", dtGlobalSheet)
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").Image("sure").Check CheckPoint("sure_4")
check_email=DataTable.Value("check_email",Action1)
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebElement(check_email).Check CheckPoint(check_email)

Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebButton("《xxx企业会员服务协议》").Click
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebCheckBox("comProtocolBox").Set "ON"
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebButton("下一步").Click

If Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebElement(check_user).Exist(1) Then
Select Case check_user
Case "请输入企业帐号"
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册失败",check_user
Case "企业帐号长度为6-20位！"
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册失败",check_user
Case "企业帐号只能由字母或数字组成"
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册失败",check_user
Case "该帐号已被使用"
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册失败",check_user
Case else
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micFail,"注册失败","异常错误！"
End Select

elseIf Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebElement(check_passwd).Exist(1) Then
Select Case check_passwd
Case "请输入密码"
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册失败",check_passwd
Case "密码长度为6-20位！"
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册失败",check_passwd
Case "密码只能由字母或数字组成！"
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册失败",check_passwd
Case else
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micFail,"注册失败","异常错误！"
End Select

elseIf Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebElement(check_pswcopy).Exist(1) Then
Select Case check_pswcopy
Case "不能为空"
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册失败",check_pswcopy
Case "两次输入的密码不一致"
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册失败",check_pswcopy
Case else
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micFail,"注册失败","异常错误！"
End Select

elseIf Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebElement(check_email).Exist(1) Then
Select Case check_email
Case "请输入电子邮箱"
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册失败",check_email
Case "电子邮箱格式不正确"
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册失败",check_email
Case else
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micFail,"注册失败","异常错误！"
End Select

else
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册_2").WebEdit("homepage").Set "http://www.baidu.com"
Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册_2").WebButton("完成注册").Click
Browser("欢迎光临 xxx招聘网站首页").Page("企业管理首页").Sync
Browser("欢迎光临 xxx招聘网站首页").Close
Reporter.ReportEvent micPass,"注册成功","成功注册！"
end if

DataTable.ExportSheet "D:\bbb\aaa.xls",1

回放后提示：The "sure_1" CheckPoint object was not found in the Object Repository.
Check the Object Repository to confirm that the object exists or to find the correct name for the object.
Line (6): "Browser("欢迎光临德才源招聘网站首页").Page("德才源－企业注册").Image("sure").Check CheckPoint("sure_1")".

作者: zhengpeipei 时间: 2009-6-8 17:43
哪位高手指点我们新手一下下啊

作者: xiaonan 时间: 2009-6-8 17:45
把你做检查点的对象加到对象库里面去

作者: zhengpeipei 时间: 2009-6-8 17:48
试试

作者: zhengpeipei 时间: 2009-6-8 17:53
不行啊，还是一样

作者: zhengpeipei 时间: 2009-6-8 18:05
将 Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").Image("sure").Check CheckPoint("sure_1") 注释掉以后，下一行 Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebElement(check_user).Check CheckPoint(check_user) 也识别不出来

作者: zhengpeipei 时间: 2009-6-8 18:06
高手指点下啊

作者: fei.ge 时间: 2009-6-8 19:22
提示的信息是....?

作者: zhengpeipei 时间: 2009-6-9 17:14
标题: 回复8#
和原来的相同

作者: fei.ge 时间: 2009-6-10 09:39
The "sure_1" CheckPoint object was not found in the Object Repository.
Check the Object Repository to confirm that the object exists or to find the correct name for the object.

【将 Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").Image("sure").Check CheckPoint("sure_1") 注释掉以后，下一行 Browser("欢迎光临 xxx招聘网站首页").Page("xxx－企业注册").WebElement(check_user).Check CheckPoint(check_user) 也识别不出来】

<<<对象不存在……，需要添加对象到对象库……

作者: kuangquanshui 时间: 2009-6-10 11:04
用对象管理吧用这个捕捉一下然后加到你的脚本中

作者: zhengpeipei 时间: 2009-6-11 09:44
标题: 回复11#的帖子
具体怎么操作啊，我是新手，对这块不是很熟悉，感谢！！！

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