51Testing软件测试论坛

标题: 描述性编程脚本回放有误！ [打印本页]

作者: mowandao1985 时间: 2010-5-11 17:11
标题: 描述性编程脚本回放有误！
我在系统中以一个Quote去做返单。如下是其中的一段代码：每次都试用同一个Quote的话脚本回放正常。
Browser("Quote List - MYRO Electronic").Window("Copy-Quote From Q1005108591").Window("Specification Modify -").Page("Specification Modify -").WebEdit("expect_lead_time").Set "12"
为了可以认其他的Quote做返单时也可以使用这个脚本来完成，我使用了描述性编程，如下：
Dim title，quoteid
title = ”Copy-Quote From “&quoteid
以上代码改为：
Browser("title:=Quote List - MYRO Electronic").Window("text:="&title).Page("title:="&title).WebButton("name:= NEXT >>").click
再次运行脚本，就会报错：找不window对象。
希望大家帮帮忙！

作者: Haereticus 时间: 2010-5-11 17:30
1.父对象描述是否正确
2.父对象正确，看对象本身属性描述是否正确
3.父对象和本身属性描述正确，看对象属性描述是否能匹配唯一的对象

作者: edison1256 时间: 2010-5-12 09:17
不知道给出的是不是全部的脚本，那个quoteid赋值了嘛？
如果run-time对象找不到就，多放几个属性进去，还得保证属性和值是否正确

作者: mowandao1985 时间: 2010-5-12 15:03
谢谢你们的回答！
我给出的是脚本中的一段代码而已，quoteid取出来的，而且我也对比过，和运行时的对象是一样的。
看来我得多加几个属性一起判断试试。

作者: mowandao1985 时间: 2010-5-12 15:55
我试了，还是不得行，会报找不到Browser父对象。
下面是我对几个对象的截图，希望大家帮我分析下，该如何写才正确。

作者: mowandao1985 时间: 2010-5-13 10:45
以下是脚本部分代码：
Dim title,regex,QID
QID = Right(quoteId,10)
'regex = "Copy-Quote From "&quoteId
'msgbox DataTable.Value("bAmount","Action1")
title = "Copy-Quote From "&quoteId
bname = quoteId&"(Quote) MYRO Electronic Control Devices Inc. [Admin Manager] - MyRO ERP 3.0"
Browser("title:=Quote List - MYRO Electronic").Window("text:="&title).Page("title:="&title).WebButton("name:= Next >>").Click
Browser("Quote List - MYRO Electronic").Window("Copy-Quote From Q1005128696").Window("Specification Modify -").Page("Specification Modify -").WebEdit("expect_lead_time").Set "12"
Browser("Quote List - MYRO Electronic").Window("Copy-Quote From Q1005128696").Window("Specification Modify -").Page("Specification Modify -").WebButton("Submit").Click
Browser("Quote List - MYRO Electronic").Window("Copy-Quote From Q1005128696").Window("Specification Modify -_2").Page("Specification Modify -").WebEdit("expect_lead_time").Set "11"
Browser("Quote List - MYRO Electronic").Window("Copy-Quote From Q1005128696").Window("Specification Modify -_2").Page("Specification Modify -").WebButton("Submit").Click
Browser("Quote List - MYRO Electronic").Window("Copy-Quote From Q1005128696").Page("Copy-Quote From Q1005128696").WebButton("Finished").Click
Browser("Quote List - MYRO Electronic").Page("Quote List - MYRO Electronic").Link("Quote List").Click

作者: cooleenjunjun 时间: 2010-5-13 14:05
你Browser的title描述和Browser属性列表里title的值不一样啊

作者: mowandao1985 时间: 2010-5-14 14:58
brow_title = "Quote List - MYRO Electronic Control Devices Inc. [Admin Manager] - MyRO ERP 3.0"
win_title = "Copy-Quote From "&quoteId&" - "&QID&"(Quote) MYRO Electronic Control Devices Inc. [Admin Manager] - MyRO ERP 3.0 -- 网页对话框"
page_title = "Copy-Quote From "&quoteId&" - "&QID&"(Quote) MYRO Electronic Control Devices Inc. [Admin Manager] - MyRO ERP 3.0"
Browser("title:="&brow_title).Window("text:="&win_title).Page("title:="&page_title).WebButton("name:= Next >>").Click
我把title的全部值都取出来了，还是不对啊？

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