51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

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

[原创] 描述性编程脚本回放有误!

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-5-11 17:11:44 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我在系统中以一个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对象。
希望大家帮帮忙!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-5-11 17:30:36 | 只看该作者
1.父对象描述是否正确
2.父对象正确,看对象本身属性描述是否正确
3.父对象和本身属性描述正确,看对象属性描述是否能匹配唯一的对象
回复 支持 反对

使用道具 举报

  • TA的每日心情
    擦汗
    2017-5-23 20:24
  • 签到天数: 14 天

    连续签到: 1 天

    [LV.3]测试连长

    3#
    发表于 2010-5-12 09:17:00 | 只看该作者
    不知道给出的是不是全部的脚本,那个quoteid赋值了嘛?
    如果run-time对象找不到就,多放几个属性进去,还得保证属性和值是否正确
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
     楼主| 发表于 2010-5-12 15:03:38 | 只看该作者
    谢谢你们的回答!
        我给出的是脚本中的一段代码而已,quoteid取出来的,而且我也对比过,和运行时的对象是一样的。
    看来我得多加几个属性一起判断试试。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2010-5-12 15:55:19 | 只看该作者
    我试了,还是不得行,会报找不到Browser父对象。
    下面是我对几个对象的截图,希望大家帮我分析下,该如何写才正确。

    本帖子中包含更多资源

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

    x
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
     楼主| 发表于 2010-5-13 10:45:31 | 只看该作者
    以下是脚本部分代码:
    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
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2010-5-13 14:05:12 | 只看该作者
    你Browser的title描述和Browser属性列表里title的值不一样啊
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
     楼主| 发表于 2010-5-14 14:58:54 | 只看该作者
    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的全部值都取出来了,还是不对啊?
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-23 08:01 , Processed in 0.091152 second(s), 29 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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