发布新日志

  • QTP 中的ChildObjects

    2011-03-30 13:49:49

    Description

    Returns the collection of child objects contained within the object.

    返回所有对象中的子对象。

    那不是可以不用把当前页面的每个对象都添加到Object Repository中也可以运行了。之后详细的看了该函数的Example：

    Sub ChildObjects_Example()
           '建立一个空属性的对象
           Set Desc = Description.Create()
           '在空的对象中添加属性micclass，并赋值为“WebList”
           oDesc("micclass").Value = "WebList"
           '在制定界面上获取所有属性值为”“weblist”的对象，并赋值给List（注意：赋值后lists类型一个对象数组）
           Set Lists = Browser("Mercury Interactive").Page("Mercury Interactive").ChildObjects(oDesc)
           '获取lists里面所有对象的总数
           NumberOfLists = Lists.Count()
           '遍历数组中所有对象
           For i = 0 To NumberOfLists - 1
           '使用了WebList对象的select的方法
           Lists(i).Select i + 1
           Next
           End Sub

    查看(628) 评论(0) 收藏 分享 管理

  • QTP 返回报告

    2011-02-15 14:48:39

    if  .....="检查点的预期内容"  then
    reporter.ReportEvent micPass,"***检查点"," 检查点成功"
      else
       reporter.ReportEvent  micFail,"***检查点"," 检查点失败"
    end  if

    查看(290) 评论(0) 收藏 分享 管理

  • QTP 函数split

    2010-12-29 22:13:11

    myArray = split(x,",")

    myArray(0)

     

    查看(212) 评论(0) 收藏 分享 管理

  • QTP 批量注释，解除注释

    2010-12-29 21:15:22

    QTP 批量注释 CTRL+M

    解除注释 CTRL+SHIFT+M

    查看(806) 评论(0) 收藏 分享 管理

  • 动态加载QTP对象库

    2010-01-26 16:37:24

    RepositoriesCollection.Add("E:\tsoft\testObject\login.tsr")

    查看(351) 评论(0) 收藏 分享 管理

  • WaitProperty 与 Wait

    2010-01-20 20:14:52

    Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury").WebElement("Flight Confirmation #").WaitProperty"visible", true, 10000

    在规定的时间段(10秒)内,QTP会不停的检测WebElement的visible属性是否为true.如果在10秒内QTP检测到visible==true那么,将立即往下执行,在这种情况下就比我们用wait指定一个固定的时间段效率要高的多.需要注意的是:如果在规定的时间(10秒)内未能检测到所需结果,该语句将返回一个false,但并不影响程序继续执行.

    通常情况下 Wait 等待固定时间

     

    查看(369) 评论(0) 收藏 分享 管理

  • QTP 中FLEX插件安装

    2010-01-19 12:53:55

    客户端
    (1)安装QTP
    (2)装JDK
    (3)装QTP的FLEX插件
    (4)注册QTP
     
    服务器
    (1)automation.swc、automation_agent.swc、automation_dmv.swc是自动化类包，所以需要测试Flex自动化的工具都需要引用这些包的。而qtp.swc是适用与QTP的包。
    (2)编译程序后,就能进行QTP自动测试了。
     

    查看(457) 评论(0) 收藏 分享 管理

  • QTP 注释多行

    2009-03-18 18:58:31

    选择多行按CTRL+M 来注释.

    CTRL+SHIFT+M来恢复注释代码

    查看(587) 评论(1) 收藏 分享 管理

  • 批量加载VBS

    2009-03-18 18:34:48

    VBS1=VBS文件夹路径

    Function ImportUtilFun(VBS1)
          Set fso = CreateObject("Scripting.FileSystemObject")                                                      '加载VBS1目录下的所有共享库函数的VBS文件
          Set UtilFolder=fso.GetFolder(VBS1)
       Set UtilFileCollection=UtilFolder.files
       For each UtilFile in UtilFileCollection
                Executefile UtilFile.path
       Next
       Set fso = nothing
    End Function

    查看(456) 评论(0) 收藏 分享 管理

  • QTP vbs 加载方法

    2009-03-18 17:07:53

    QTP vbs 加载

    (1)手动添加

    “Test settings”->"Resources"
                      在"Associated function files"中加载VBS函数文件
                      点击“Set as Default”

    (2)程序加载

    Executefile “VBS路径”

    查看(616) 评论(0) 收藏 分享 管理

Open Toolbar