QTP登录脚本（含验证码）

zhengpeipei

最近在学习QTP，录制了一个登录脚本（含验证码），先贴出来谨供参考。脚本如下：

Dim status,input'status为状态参数，input为接收手动输入的验证码

Browser("My JSP 'admin_login.jsp'").Page("My JSP 'admin_login.jsp'").WebEdit("webUsers").Set DataTable("username", dtGlobalSheet)
Browser("My JSP 'admin_login.jsp'").Page("My JSP 'admin_login.jsp'").WebEdit("password").SetSecure DataTable("passwd", dtGlobalSheet)

wait(3)'等待3秒钟记忆验证码
input=inputbox("请输入验证码：")
Browser("My JSP 'admin_login.jsp'").Page("My JSP 'admin_login.jsp'").WebEdit("validatorCode").Set input
Browser("My JSP 'admin_login.jsp'").Page("My JSP 'admin_login.jsp'").WebArea("http://10.1.1.80:8080/DsrRecru").Click

status=DataTable.Value("status",dtGlobalSheet)'获取DataTable中的status值，即预期结果

If Browser("My JSP 'admin_login.jsp'").Dialog("Microsoft Internet Explorer").Exist(1) Then'出现第三方界面情况，即登录失败
        If status="用户名或密码错误！" Then
        Browser("My JSP 'admin_login.jsp'").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
                Browser("My JSP 'admin_login.jsp'").Page("My JSP 'admin_login.jsp'").Sync
                Browser("My JSP 'admin_login.jsp'").Close
                Reporter.ReportEvent micPass,"登录失败",status
        End If

        If status="请输入验证码！" Then
        Browser("My JSP 'admin_login.jsp'").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
                Browser("My JSP 'admin_login.jsp'").Page("My JSP 'admin_login.jsp'").Sync
                Browser("My JSP 'admin_login.jsp'").Close
                Reporter.ReportEvent micPass,"登录失败",status
        End If

        If status="验证码错误！" Then
        Browser("My JSP 'admin_login.jsp'").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
                Browser("My JSP 'admin_login.jsp'").Page("My JSP 'admin_login.jsp'").Sync
                Browser("My JSP 'admin_login.jsp'").Close
                Reporter.ReportEvent micPass,"登录失败",status
        End If

        If status="请输入密码！" Then
        Browser("My JSP 'admin_login.jsp'").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
                Browser("My JSP 'admin_login.jsp'").Page("My JSP 'admin_login.jsp'").Sync
                Browser("My JSP 'admin_login.jsp'").Close
                Reporter.ReportEvent micPass,"登录失败",status
        End If

        If status="请输入用户名！" Then
        Browser("My JSP 'admin_login.jsp'").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
                Browser("My JSP 'admin_login.jsp'").Page("My JSP 'admin_login.jsp'").Sync
                Browser("My JSP 'admin_login.jsp'").Close
                Reporter.ReportEvent micPass,"登录失败",status
        End If

else'登录成功
        Browser("My JSP 'admin_login.jsp'").Page("欢迎光临！xxx招聘网站后台管理系统").Sync
        Browser("My JSP 'admin_login.jsp'").Close
        Reporter.ReportEvent micPass,"登录成功","成功登录！"

End If

DataTable.ExportSheet "D:\aaa\Result.xls",1'导出测试用例

[ 本帖最后由 zhengpeipei 于 2010-4-17 11:57 编辑 ]

xiaoyaoke

好的不学学这些...

验证码问题的确是自动化测试中的一个大问题,一直关注是否有合理的解决办法,前阵子大师小榕出了个验证码自动获取小工具,最近很忙没时间细看,有时间的朋友可以看看能不能利用

这个问题需要持续解决,如果谁有好的办法建议拿出来分享

blizzardlyk

知识是用来分享的,不是用来卖钱的.只想说一句,鄙视!

zhengpeipei

只是设置一下看看效果

blizzardlyk

小小的建议,用SELECT CASE 代替那么多IF ,会更好.

zhengpeipei

试试

zhengpeipei

有关于注册的脚本吗？急需！！！
可否共享下，多谢！

blizzardlyk

你的需求不明确啊 ,注册脚本,这个太抽象了吧,你至少要列出你要注册的WEB的URL吧? 还有注册时候如果有验证码,那又将是个难题.

zhengpeipei

试了一下，效果和用if差不多。

zhengpeipei

脚本内容要包括各种情况，像：帐号不能为空、该帐号已注册、Email格式不正确等。

zhengpeipei

这是我刚录制的脚本：

Browser("欢迎光临 xxx招聘网站 首页").Page("欢迎光临 xxx招聘网站 首页").Link("企业免费注册").Click
Browser("欢迎光临 xxx招聘网站 首页").Page("xxx－企业注册").WebEdit("userName").Set "1234567"
Browser("欢迎光临 xxx招聘网站 首页").Page("xxx－企业注册").WebEdit("password").SetSecure "4a28dfdc1bcd14a4177a62a897f6eb049a35f215"
Browser("欢迎光临 xxx招聘网站 首页").Page("xxx－企业注册").WebEdit("passwordCopy").SetSecure "4a28dfe034b374aeec5061c7df52b2e8431809c1"
Browser("欢迎光临 xxx招聘网站 首页").Page("xxx－企业注册").WebEdit("companyName").Set "1234567"
Browser("欢迎光临 xxx招聘网站 首页").Page("xxx－企业注册").WebEdit("lastName").Set "123"
Browser("欢迎光临 xxx招聘网站 首页").Page("xxx－企业注册").WebEdit("firstName").Set "123"
Browser("欢迎光临 xxx招聘网站 首页").Page("xxx－企业注册").WebEdit("phone").Set "1234567"
Browser("欢迎光临 xxx招聘网站 首页").Page("xxx－企业注册").WebEdit("email").Set "111@123.com"
Browser("欢迎光临 xxx招聘网站 首页").Page("xxx－企业注册").WebCheckBox("comProtocolBox").Set "ON"
Browser("欢迎光临 xxx招聘网站 首页").Page("xxx－企业注册").WebButton("下一步").Click
Browser("欢迎光临 xxx招聘网站 首页").Page("xxx－企业注册_2").Sync
Browser("欢迎光临 xxx招聘网站 首页").Close

希望可以给出修改后的脚本，包括各种情况的。谢谢！！！！！！！

zhengpeipei

onlonely

不会吧,,,,验证码是自己手工输入的呀..
更本没解决验证码问题...

whistler.j

试一下！

Camael

还是没有解决根本问题呀。

hzr2006

看过自己变成的时候还会遇到很多想不到的问题

lirenbing01

回复 8# blizzardlyk
其实是本机自己编写的登录JSP

lightliliang

这个真的可以突破 验证码？？