51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1947|回复: 4
打印 上一主题 下一主题

[原创] 我写的一段关于修改密码的脚本,出了问题,请高手帮我解答一下吧!

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-9-12 13:17:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
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 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2007-9-12 13:33:08 | 只看该作者
下面是能够运行的脚本,上面是我想变通一下,看能否简化一下脚本,帮助我一下吧!
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
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2018-4-22 12:50
  • 签到天数: 393 天

    连续签到: 1 天

    [LV.9]测试副司令

    3#
    发表于 2007-9-12 14:08:19 | 只看该作者
    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试一下.
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
     楼主| 发表于 2007-9-12 14:25:37 | 只看该作者
    谢谢·!我试试~
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2007-9-12 16:19:10 | 只看该作者
    楼上的说的通不过,还是谢了。
    哈哈!我找到我的错误了,正确脚本如下:

        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
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-11 03:22 , Processed in 0.086824 second(s), 29 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表