QuickTest Professional 自动化对象模型

发表于:2008-9-25 15:44

字体: | 上一篇 | 下一篇 | 我要投稿

 作者:xiaonan    来源:51Testing软件测试博客

#
QTP
分享:

本文出自xiaonan的51Testing软件测试博客,转载请保留出处及链接:http://www.51testing.com/?26649

  正如使用 QuickTest 实现应用程序测试自动化一样,也可以使用 QuickTest Professional 自动化对象模型实现 QuickTest 操作自动化。 可以使用由 QuickTest 自动化对象模型公开的对象、方法和属性来编写程序,用以配置 QuickTest 选项和运行测试或业务组件,而不必使用 QuickTest 界面手动执行这些操作。

  自动化程序在以下情形特别有用:多次执行相同任务或就多个测试或组件执行相同任务;根据特定环境或应用程序的需要快速配置QuickTest。

  其实要自动化运行QuickTest 相当简单,只需自己在电脑上建个vbs文件,完成后双击运行就可以实现了。下面给个最简单的配置QuickTest自动化启动,打开测试脚本,然后保存测试结果,然后自己关闭QuickTest程序的例子脚本。

dim qtApp

dim qttest

set qtApp = Createobject("QuickTest.Application")   '创建 Application 对象

qtApp.launch   ' 启动

qtApp.Options.Run.ViewResults = true

qtApp.Visible = True  '可见

qtApp.open "E:\Test1",true   '用只读的方法打开测试脚本

Set qtTest = qtApp.Test   '创建 Test 对象

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' 创建 Run Results Options 对象

qtResultsOpt.ResultsLocation = "E:\Test1\Res1" ' 设置测试结果保存位置

qtTest.run qtResultsOpt   '   执行测试

qtTest.close   ' 关闭测试

qtApp.quit    '关闭QTP

Set qtTest = Nothing ' 释放 Test 对象

set qtApp =nothing   '释放

  有兴趣的可以自己再研究更深层次的配置运行,QTP中基本上大多数的配置都可以通过它提供的对象及其方法和属性来通过代码实现。



《2023软件测试行业现状调查报告》独家发布~

关注51Testing

联系我们

快捷面板 站点地图 联系我们 广告服务 关于我们 站长统计 发展历程

法律顾问:上海兰迪律师事务所 项棋律师
版权所有 上海博为峰软件技术股份有限公司 Copyright©51testing.com 2003-2024
投诉及意见反馈:webmaster@51testing.com; 业务联系:service@51testing.com 021-64471599-8017

沪ICP备05003035号

沪公网安备 31010102002173号