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 编辑 ]

lightliliang

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

lirenbing01

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

hzr2006

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

Camael

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

whistler.j

试一下！

onlonely

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

zhengpeipei

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

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

zhengpeipei

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

blizzardlyk

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

zhengpeipei

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

zhengpeipei

试试

blizzardlyk

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

zhengpeipei

只是设置一下看看效果

blizzardlyk

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

xiaoyaoke

好的不学学这些...

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

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