51Testing软件测试论坛

标题: qtp 脚本问题，红色部分老出错 [打印本页]

作者: xq369 时间: 2011-8-24 17:57
标题: qtp 脚本问题，红色部分老出错
'生产环境地址
'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

作者: xq369 时间: 2011-8-24 17:59
参数化的是商户号，如果号都配制正确的话，是用不着红色部分的...就不会有问题，关键我觉得红色部分我写的有问题...求助啊，有大侠帮忙啊...

作者: binllyyu 时间: 2011-8-25 11:19
出的什么错，这么不说一下呢

作者: xq369 时间: 2011-8-25 17:12
就是如果参数化的商户号是有问题的（商户没配制好，就直接跳到系统未知错误页面）脚本就卡住了...我想在商户这记录下错误，然后跑循环的下一条...

作者: guchenggao 时间: 2011-8-27 21:13
问非所答啊，关键把出错的图截来看看啊

作者: xq369 时间: 2011-8-31 15:24
\quote]出的什么错，这么不说一下呢
binllyyu 发表于 2011-8-25 11:19

[/quote][attach]75064[/attach]

作者: xq369 时间: 2011-8-31 15:25

问非所答啊，关键把出错的图截来看看啊
guchenggao 发表于 2011-8-27 21:13

图放上来了..

作者: hsjzfling 时间: 2011-8-31 16: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

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