51Testing软件测试论坛

标题: 我写的一段关于修改密码的脚本，出了问题，请高手帮我解答一下吧！ [打印本页]

作者: aishary 时间: 2007-9-12 13:17
标题: 我写的一段关于修改密码的脚本，出了问题，请高手帮我解答一下吧！
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOperatorID").Output CheckPoint("txtOperatorID")
   '必添项检查
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebButton("确定").Click
   Browser("后台管理系统").Dialog("Windows Internet Explorer").Static("- 必须输入原密码！ - 必须输入新密码！").Check CheckPoint("- 必须输入原密码！  - 必须输入新密码！  - 必须输入确认新密码！")
   Browser("后台管理系统").Dialog("Windows Internet Explorer").WinButton("OK").Click
For i=1 to Datatable.GetRowCount
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOldPassword").Click
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOldPassword").SetSecure DataTable("Old_password", dtLocalSheet)
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword1").Click
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword1").SetSecure DataTable("New_password", dtLocalSheet)
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword2").Click
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword2").SetSecure DataTable("Confirm_newpassword", dtLocalSheet)

   a= Browser("后台管理系统").Dialog("Windows Internet Explorer").Static
   Select Case  a

                        '原密码不正确
                        Case  "-原密码错误！"       break
                                    '原密码正确，新密码与确认密码不一致
                        Case a="- 两次输入的新密码不同！"    break
                        '原密码正确，新密码与确认密码一致
                        Case a= "- 密码修改成功!"  break
                        End Select
                     Browser("社区综合服务平台后台管理系统").Dialog("Windows Internet Explorer").WinButton("OK").Click
            datatable.localSheet.SetNextRow
   Next
'关闭窗体
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebButton("取消").Click
页面是一个密码修改页面,当修改不能成功时,会弹出各种不同信息提示的对话框,图片见下:
我是个qtp新手,我的问题在
a= Browser("后台管理系统").Dialog("Windows Internet Explorer").Static
   Select Case  a

                        '原密码不正确
                        Case  "-原密码错误！"       break
                                    '原密码正确，新密码与确认密码不一致
                        Case a="- 两次输入的新密码不同！"    break
                        '原密码正确，新密码与确认密码一致
                        Case a= "- 密码修改成功!"  break
                        End Select

我将旧密码,新密码,确认新密码都进行了参数化,并在datatable里添了能引起各种情况的值,我想通过数据表中的值,来判断应该出现什么样的信息提示,可是在上面的那段代码处,运行有问题,谁能帮我解答一下吗?

[ 本帖最后由 aishary 于 2007-9-12 16:20 编辑 ]

作者: aishary 时间: 2007-9-12 13:33
下面是能够运行的脚本，上面是我想变通一下，看能否简化一下脚本，帮助我一下吧！
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOperatorID").Output CheckPoint("txtOperatorID")
'必添项检查
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebButton("确定").Click
Browser("后台管理系统").Dialog("Windows Internet Explorer").Static("- 必须输入原密码！  - 必须输入新密码！").Check CheckPoint("- 必须输入原密码！  - 必须输入新密码！  - 必须输入确认新密码！")
Browser("后台管理系统").Dialog("Windows Internet Explorer").WinButton("OK").Click
'原密码不正确
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOldPassword").Click
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOldPassword").SetSecure "46e64b0bb70af111d5eb60f5"
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword1").Click
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword1").SetSecure "46e64b0c17485aa4"
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword2").Click
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword2").SetSecure "46e64b0e61a43cdc"
Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebButton("确定").Click
Browser("后台管理系统").Dialog("Windows Internet Explorer").Static("- 必须输入原密码！  - 必须输入新密码！").Check CheckPoint("- 原密码错误！_2")
Browser("后台管理系统").Dialog("Windows Internet Explorer").WinButton("OK").Click

'原密码错误，新密码与确认新密码不正确
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebEdit("txtOldPassword").Click
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebEdit("txtOldPassword").SetSecure "46e6468dfb80322a"
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebEdit("txtNewPassword1").Click
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebEdit("txtNewPassword1").SetSecure "46e6468f8d6c5452"
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebEdit("txtNewPassword2").Click
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebEdit("txtNewPassword2").SetSecure "46e6469248a40cce6c21"
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebButton("确定").Click
Browser("后台管理系统").Dialog("Windows Internet Explorer").Static("- 必须输入原密码！  - 必须输入新密码！").Check CheckPoint("- 两次输入的新密码不同！")
Browser("后台管理系统").Dialog("Windows Internet Explorer").WinButton("OK").Click
'原密码正确，新密码与确认密码不正确
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebEdit("txtOldPassword").SetSecure "46e646d670655cc1d99e58e61182309647d0"
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebButton("确定").Click
Browser("后台管理系统").Dialog("Windows Internet Explorer").Static("- 必须输入原密码！  - 必须输入新密码！").Check CheckPoint("- 两次输入的新密码不同！_2")
Browser("后台管理系统").Dialog("Windows Internet Explorer").WinButton("OK").Click
'原密码正确，新密码与确认密码一致
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebEdit("txtNewPassword1").Click
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebEdit("txtNewPassword1").SetSecure "46e647282b7650d570af1e5569de08726eae"
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebEdit("txtNewPassword2").SetSecure "46e6472c100063e932397ac49a14d0e1e3c3"
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebButton("确定").Click
Browser("后台管理系统").Dialog("Windows Internet Explorer").Static("- 必须输入原密码！  - 必须输入新密码！").Check CheckPoint("- 密码修改成功！")
Browser("后台管理系统").Dialog("Windows Internet Explorer").WinButton("OK").Click
'关闭窗体
Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebButton("取消").Click

作者: sterson 时间: 2007-9-12 14:08
a= Browser("后台管理系统").Dialog("Windows Internet Explorer").Static
      Select Case  a

                           '原密码不正确
                           Case  "-原密码错误！" :
                                    msgStr="原密码错误"
                                    break

                           '原密码错误，新密码与确认新密码不一致
                           case  "- 两次输入的新密码不同！" :
                                    msgStr="两次输入的新密码不同"
                                    break

                           '原密码正确，新密码与确认密码不一致
                           Case a="- 两次输入的新密码不同！" :
                                       msgStr="两次输入的新密码不同"
                                       break

                           '原密码正确，新密码与确认密码一致
                           Case a= "- 密码修改成功!" :
                                    msgStr="密码修改成功"
                                    break
      End Select
在next后面加上msgobx msgSt试一下.

作者: aishary 时间: 2007-9-12 14:25
谢谢·！我试试~

作者: aishary 时间: 2007-9-12 16:19
楼上的说的通不过，还是谢了。
哈哈！我找到我的错误了，正确脚本如下：

Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOperatorID").Output CheckPoint("txtOperatorID")
For i=1 to Datatable.GetRowCount

   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOldPassword").Click
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtOldPassword").SetSecure DataTable("Old_password", dtLocalSheet)
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword1").Click
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword1").SetSecure DataTable("New_password", dtLocalSheet)
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword2").Click
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame_2").WebEdit("txtNewPassword2").SetSecure DataTable("Confirm_newpassword", dtLocalSheet)
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebButton("确定").Click

   a= Browser("后台管理系统").Dialog("Windows Internet Explorer").static("- 必须输入原密码！  - 必须输入新密码！").GetROProperty("text")
   Select Case  a
                           '必添项检查
                        Case "- 必须输入原密码！  - 必须输入新密码！  - 必须输入确认新密码！" break
                        '原密码不正确
                        Case  "-原密码错误！"          break
                        '原密码错误，新密码与确认新密码不一致
                        Case "-两次输入的新密码不同！" break
                        '原密码正确，新密码与确认密码一致
                        Case "- 密码修改成功!"    break
                        End Select
                     Browser("后台管理系统").Dialog("Windows Internet Explorer").WinButton("OK").Click
            datatable.localSheet.SetNextRow
   Next
'关闭窗体
   Browser("后台管理系统").Page("后台管理系统").Frame("Frame").WebButton("取消").Click

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)