51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2901|回复: 4
打印 上一主题 下一主题

[原创] 自动启动QTP执行测试的vbs脚本!

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-10-27 10:48:24 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
  1. Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
  2. Dim pDefColl 'As QuickTest.ParameterDefinitions ' Declare a Parameter Definitions collection
  3. Dim pDef ' As QuickTest.ParameterDefinition ' Declare a ParameterDefinition object
  4. Dim rtParams 'As QuickTest.Parameters ' Declare a Parameters collection
  5. Dim rtParam ' As QuickTest.Parameter ' Declare a Parameter object
  6. 'Dim cnt, Indx As Integer

  7. Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
  8. qtApp.Launch ' Start QuickTest
  9. qtApp.Visible = True ' Make the QuickTest application visible
  10. qtApp.Open "D:\Test1"  //该目录为用例的QTP文件保存文件夹
  11. qtApp.Test.Run , True' Run the test with changed parameters.
复制代码
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-10-27 21:07:37 | 只看该作者
补充一下,这个是QTP中的automation object model中的一点点内容,楼主贴的只是帮助中的一小部分代码,更多详情尽在帮助中~~
当然QTP中有几处Generate script的,点了之后也能生成这样的代码,都是对QTP中相关设置的保存~
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2007-10-28 13:23:37 | 只看该作者
//该目录为用例的QTP文件保存文件夹
这句前面加“‘”标为注释...
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2007-10-29 20:07:42 | 只看该作者
我将在我的 地址中增加完整的 东西
我已经写好了 改天 加进来  呵呵
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2007-10-29 20:44:17 | 只看该作者
每个人的习惯不同,并且针对不同的被测对象和不同的需求,对QTP都会有不同的设置,所以只要知道这个东西是怎么回事就好了,真的弄个完整的过来也没多大意义——知道方法的人都会弄
在我正在设计、开发的框架中其实就有一点内容关于automation object model,用来载入框架默认的和user指定的各种设置,动态加载对象库也会用到这个~
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-11 17:37 , Processed in 0.067928 second(s), 29 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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