51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2365|回复: 7
打印 上一主题 下一主题

[原创] qtp 脚本问题,红色部分老出错

[复制链接]
  • TA的每日心情
    奋斗
    2017-8-10 10:15
  • 签到天数: 62 天

    连续签到: 3 天

    [LV.6]测试旅长

    跳转到指定楼层
    1#
    发表于 2011-8-24 17:57:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    '生产环境地址
    'systemutil.run "Iexplore.exe","https://pay.ips.com.cn/icpay/test/testicpay.aspx"
    Browser("Browser").Dialog("安全警报").WinButton("是(Y)").Click
    Browser("Browser").Page("模拟测试页面").WebEdit("pMerCode").Set DataTable("visa", dtGlobalSheet)
    'Browser("Browser").Page("模拟测试页面").WebEdit("pMerVersion").Set "2.1.0"
    Browser("Browser").Page("模拟测试页面").WebList("pMerFraudGuard").Select "内部不进行反欺诈验证"
    Browser("Browser").Page("模拟测试页面").WebButton("以XML提交").Click


    Browser("Browser").Page("环迅支付").WebRadioGroup("rdCardList").Check CheckPoint("rdCardList")
    If Browser("Browser").Page("环迅支付").WebRadioGroup("rdCardList").Exist Then
        reporter.ReportEvent micPass,"参数检查","参数显示正确"
    else
      reporter.ReportEvent 3,"参数检查","参数显示不正确"
      Browser("Browser").Page("环迅支付").Sync
      Browser("Browser").Close
    End If


    Browser("Browser").Page("环迅支付").WebRadioGroup("rdCardList").Select "01005"
    Browser("Browser").Page("环迅支付").WebEdit("txtCardNo").Set "4392 2600 1555 5558"
    'Browser("Browser").Dialog("招商银行一网通网盾").Close
    Browser("Browser").Page("环迅支付").WebEdit("txtCardHolderName").Set "JackWu"
    Browser("Browser").Page("环迅支付").WebList("ddlMonth").Select "09"
    Browser("Browser").Page("环迅支付").WebList("ddlYear").Select "2013"
    Browser("Browser").Page("环迅支付").WebEdit("txtCvv").Set "755"
    Browser("Browser").Page("环迅支付").WebEdit("txtStreet").Set "shanghai"
    Browser("Browser").Page("环迅支付").WebEdit("txtCity").Set "shanghai"
    Browser("Browser").Page("环迅支付").WebEdit("txtZipCode").Set "200023"
    Browser("Browser").Page("环迅支付").WebEdit("txtPhone").Set "15221635280"
    Browser("Browser").Page("环迅支付").WebEdit("txtEmail").Set "qxia@ips.com.cn"
    Browser("Browser").Page("环迅支付").WebEdit("txtCardProvider").Set "中国银行"
    Browser("Browser").Page("环迅支付").WebButton("确认付款").Click
    'Browser("Browser").Dialog("招商银行一网通网盾").WinButton("继续").Click
    'Browser("Browser").Dialog("安全警报").Click 109,245
    Browser("Browser").Dialog("安全警报").WinButton("是(Y)").Click
    wait(5)


    Browser("Browser").Page("PAPasswd").WebElement("badjack").Check CheckPoint("badjack")

    if Browser("Browser").Page("PAPasswd").WebElement("badjack").Exist Then
       reporter.ReportEvent micPass,"参数检查","参数显示正确"
    else
       reporter.ReportEvent micPass,"参数检查","参数显示不正确"
    End If
    Browser("Browser").Page("PAPasswd").Sync

    Browser("Browser").Close
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

  • TA的每日心情
    奋斗
    2017-8-10 10:15
  • 签到天数: 62 天

    连续签到: 3 天

    [LV.6]测试旅长

    2#
     楼主| 发表于 2011-8-24 17:59:14 | 只看该作者
    参数化的是商户号,如果号都配制正确的话,是用不着红色部分的...就不会有问题,关键我觉得红色部分我写的有问题...求助啊,有大侠帮忙啊...
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
    发表于 2011-8-25 11:19:24 | 只看该作者
    出的什么错,这么不说一下呢
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2017-8-10 10:15
  • 签到天数: 62 天

    连续签到: 3 天

    [LV.6]测试旅长

    4#
     楼主| 发表于 2011-8-25 17:12:47 | 只看该作者
    就是如果参数化的商户号是有问题的(商户没配制好,就直接跳到系统未知错误页面)脚本 就卡住了...我想在商户这记录下错误,然后跑循环的下一条...
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
    发表于 2011-8-27 21:13:28 | 只看该作者
    问非所答啊,关键把出错的图截来看看啊
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2017-8-10 10:15
  • 签到天数: 62 天

    连续签到: 3 天

    [LV.6]测试旅长

    6#
     楼主| 发表于 2011-8-31 15:24:01 | 只看该作者
    \quote]出的什么错,这么不说一下呢
    binllyyu 发表于 2011-8-25 11:19 [/quote]

    本帖子中包含更多资源

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

    x
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2017-8-10 10:15
  • 签到天数: 62 天

    连续签到: 3 天

    [LV.6]测试旅长

    7#
     楼主| 发表于 2011-8-31 15:25:41 | 只看该作者
    问非所答啊,关键把出错的图截来看看啊
    guchenggao 发表于 2011-8-27 21:13



    图放上来了..
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
    发表于 2011-8-31 16:07:07 | 只看该作者
    修改红色部分,先判断对象是否存在,然后再执行检查点
    If Browser("Browser").Page("环迅支付").WebRadioGroup("rdCardList").Exist Then
    '    reporter.ReportEvent micPass,"参数检查","参数显示正确"
        Browser("Browser").Page("环迅支付").WebRadioGroup("rdCardList").Check CheckPoint("rdCardList")
    else
      reporter.ReportEvent 3,"参数检查","参数显示不正确"
      Browser("Browser").Page("环迅支付").Sync
      Browser("Browser").Close
    End If
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-7 23:35 , Processed in 0.070828 second(s), 29 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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