xq369 发表于 2011-8-24 17:57:33

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:14

参数化的是商户号，如果号都配制正确的话，是用不着红色部分的...就不会有问题，关键我觉得红色部分我写的有问题...求助啊，有大侠帮忙啊...

binllyyu 发表于 2011-8-25 11:19:24

出的什么错，这么不说一下呢

xq369 发表于 2011-8-25 17:12:47

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

guchenggao 发表于 2011-8-27 21:13:28

问非所答啊，关键把出错的图截来看看啊

xq369 发表于 2011-8-31 15:24:01

\quote]出的什么错，这么不说一下呢
binllyyu 发表于 2011-8-25 11:19 http://bbs.51testing.com/images/common/back.gif

xq369 发表于 2011-8-31 15:25:41

问非所答啊，关键把出错的图截来看看啊
guchenggao 发表于 2011-8-27 21:13 http://bbs.51testing.com/images/common/back.gif


图放上来了..

hsjzfling 发表于 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]
查看完整版本: qtp 脚本问题，红色部分老出错