QTP登陆脚本.doc

QTP 登录测试脚本 引用地址： 注意： 该地址仅在今日23:59:59之前有效 QTP学习有段时间了，这周也要给组里同事进行培训。为了讲解方便，特意准备一个登陆测试，简单且常用，方便他们理解。先前录制登陆成功和不成功的情况都OK，可是要把两个情况放在一个脚本里并进行数据驱动，就得用到VBScript来编写、增强测试脚本。这可是花花的弱项哦，尝试多次都不成功，于是救助网上的资料，终于搞掟。发现自己对QTP中专家视图的使用还熟练，很多对象的属性和方法不会运用，一些很实用的语句也熟悉，这得在今后的学习中加强，相信多用肯定会进步的啦。登录测试脚本的编写逻辑：1，确定正确密码与错误密码的区别。例如错误的密码就有提示，一个msgbox的存在或者是其它，正确的，就会跳出什么页面之类的。2，添加或者描述某个这个错误提示的对象。3，代码可以这样2中方式实现?? a，如果我们只判断正确的，哪么其他的就都是不通过的（姑且这么认为吧）?????? if??（通过后，某个对象出现，例如页面跳转，程序对象出现）object.exist then???????????????????? Reporter.ReportEvent micpass, 登陆成功, 用户名与密码正确?????????????? else??????????????????????Reporter.ReportEvent micfail, 登陆失败, 用户名与密码错误?????????????? end if ?????? ???? b，我们现在写的是捕获错误的。如果我们想更详细的，哪么我们就可以先得到提示框的内容text，然后通过真正表达式去判断某个字段存在去区分,例如我们在对话框中，得到的文字是“密码”或者是“用户名”?????? if??（失败后，某个对象出现，例如页面跳转，程序对象出现）object.exist then???????????????????? 捕获对话框内容，返回一个str，然后通过使用正则表达式，提取它的内容得到“a”?????????????? else??????????????????????Reporter.ReportEvent micpass, 登陆成功, 用户名与密码正确?????????????? end if ?????????????? ????????select case a???????????????????????? case 密码???????????????????????? Reporter.ReportEvent micfail, 登陆失败, 密码错误???????????????????????? case 用户名???????????????????????? Reporter.ReportEvent micfail, 登陆失败, 用户名错误???????????????????????? ??????????????????????????????????????????????????end select注：File - setting -Run- when error occurs during run session = proceed to next step 就可以在运行脚本时若有错误也会继续下一步，直到循环结果执行完毕。实例（web程序）：??????出现错误忽略，继续执行??????On Error Resume NEXT??????获取用户名??????Browser(无标题页).Page(无标题页).WebEdit(txt_Username).Set DataTable(A, ??????dtGlobalSheet)??????获取用户密码??????Browser(无标题页).Page(无标题页).WebEdit(txt_Password).SetSecure ??????DataTable(B,dtGlobalSheet)??????提交??????Browser(无标题页).Page(无标题页).Image(ImageButton3).Click 38,15??????如果用户名或密码错误，则会弹出对话框??????If Browser(无标题页).Dialog(Microsoft Internet Explorer).Exist(1) Then???????? Browser(无标题页).Dialog(Microsoft Internet ??????Explorer).WinButton(确定).Click???????? Reporter.ReportEvent micWarning