|
最近刚学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")". |
|