|
下面是我录制的脚本,大家来找错吧。
Dim user_check,passwd_check,pwdcopy_check,email_check,title_check
Browser("xxx大餐厅").Page("欢迎光临 xxx招聘网站 首页").Link("个人会员注册").Click
Browser("xxx大餐厅").Page("信息注册条款").WebButton("我接受").Click
Browser("xxx大餐厅").Page("xxx-个人注册").WebEdit("perUserName").Set DataTable("user", dtGlobalSheet)
user_check=DataTable.Value("user_check","Action1")
If Browser("xxx大餐厅").Page("xxx-个人注册").WebElement(user_check).Exist(1) Then
If user_check="错误!会员名称不能为空!" Then
Reporter.ReportEvent micPass,"注册失败",user_check
elseIf user_check="错误!此用户名已被使用,请重新填写" Then
Reporter.ReportEvent micPass,"注册失败",user_check
end if
end if
Browser("xxx大餐厅").Page("xxx-个人注册").WebEdit("perPassWord").SetSecure DataTable("passwd", dtGlobalSheet)
passwd_check=DataTable.Value("passwd_check","Action1")
If browser("xxx大餐厅").Page("xxx-个人注册").WebElement(passwd_check).Exist(1) Then
If passwd_check = "错误!密码不能为空!" Then
Reporter.ReportEvent micPass,"注册失败",passwd_check
elseIf passwd_check="密码长度错误!由6-20个字符组成。" Then
Reporter.ReportEvent micPass,"注册失败",passwd_check
end if
end if
Browser("xxx大餐厅").Page("xxx-个人注册").WebEdit("textfield3").SetSecure DataTable("pwdcopy", dtGlobalSheet)
pwdcopy_check=DataTable.Value("pwdcopy_check","Action1")
If browser("xxx大餐厅").Page("xxx-个人注册").WebElement(pwdcopy_check).Exist(1) Then
If pwdcopy_check = "错误!确认密码不能为空!" Then
Reporter.ReportEvent micPass,"注册失败",pwdcopy_check
elseIf pwdcopy_check="两次密码输入不一样,重复输入上面设置的密码!" Then
Reporter.ReportEvent micPass,"注册失败",pwdcopy_check
end if
end if
Browser("xxx大餐厅").Page("xxx-个人注册").WebEdit("perEmail").Set DataTable("email", dtGlobalSheet)
email_check=datatable.Value("email_check","Action1")
If browser("xxx大餐厅").Page("xxx-个人注册").WebElement(email_check).Exist(1) Then
If email_check = "错误!邮件地址不能为空!" Then
Reporter.ReportEvent micPass,"注册失败",email_check
elseIf email_check="电子邮件格式不正确!" Then
Reporter.ReportEvent micPass,"注册失败",email_check
elseIf email_check = "错误!此邮箱已被使用!" Then
Reporter.ReportEvent micPass,"注册失败",email_check
end if
end if
Browser("xxxx大餐厅").Page("xxxx-个人注册").WebButton("下一步").Click
If Browser("xxxx大餐厅").Page("xxxx-个人注册").Exist(1) Then
Browser("xxx大餐厅").Close
elseIf Browser("xxx大餐厅").Page("简历属性设置").Exist(1) Then
Browser("金禾泰大餐厅").Page("简历属性设置").WebEdit("title").Set DataTable ("title",dtGlobalSheet)
title_check=DataTable.Value("title_check","Action1")
If Browser("xxx大餐厅").Page("简历属性设置").WebElement(title_check).Exist(1) Then
If title_check="错误!简历标题不能为空!" Then
Reporter.ReportEvent micPass,"注册失败",title_check
else
Browser("xxx大餐厅").Page("简历属性设置").WebRadioGroup("operType").Select DataTable("opertype", dtGlobalSheet)
Browser("xxx大餐厅").Page("简历属性设置").WebList("select").Select DataTable("language", dtGlobalSheet)
Browser("xxx大餐厅").Page("简历属性设置").WebRadioGroup("showType").Select DataTable("showtype", dtGlobalSheet)
Browser("xxx大餐厅").Page("简历属性设置").WebButton("下一步").Click
Browser("xxx大餐厅").Page("xxx").WebButton("返回首页").Click
Browser("xxx大餐厅").Page("欢迎光临 xxx招聘网站 首页").Link("安全退出").Click
Browser("xxx大餐厅").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Browser("xxx大餐厅").Page("欢迎光临 xxx招聘网站 首页_2").Sync
Browser("xxx大餐厅").Close
Reporter.ReportEvent micPass,"注册成功","注册成功!"
end if
End If
end if
DataTable.ExportSheet "D:\招聘网站\个人注册.xls",1
因为输入不合法的数据给出提示信息后,输入的数据会自动清空,所以我输入一个数据后就进行判断。希望大家多多发表意见,谢谢!!! |
|