设为首页收藏本站
开启辅助访问 软件测试门户软件测试培训软件测试论坛测试解决方案文章资料精选软件测试博客软件测试招聘

51Testing软件测试论坛

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

QQ登录

只需一步，快速开始

微信登录，快人一步

手机号码，快捷登录

51Testing软件测试论坛 »软件测试论坛 › [管理工具] › [自动化测试工具及框架] › [QuickTest Professional] › 我写的一段关于修改密码的脚本，出了问题，请高手帮我解 ...
返回列表 发新帖
查看: 1951|回复: 4
打印 上一主题 下一主题

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

[复制链接]
aishary

该用户从未签到
跳转到指定楼层
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 编辑 ]
修改密码, Explorer, Explorer, internet, windows, 后台管理

本帖子中包含更多资源

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

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

相关帖子

【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！
回复

使用道具 举报

aishary

该用户从未签到
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
回复 支持 反对

使用道具 举报

sterson
  • 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试一下.
    【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！
    回复 支持 反对

    使用道具 举报

    aishary

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

    使用道具 举报

    aishary

    该用户从未签到
    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-28 09:52 , Processed in 0.078208 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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