【互动QTP】
【互动QTP】作者：卢晨之 转载请注明
脱离了QC的QTP，仿佛就是一个独行侠，如何能够更好的与其它程序做通讯，让它实时做出相应的操作是我们所期望的。我们能否模仿出QC让QTP停就停，跑即跑的功能呢？答案是可以的。
一，了解QTP Automation object model
打开QTP的帮助文档，我们可以在QuickTest Advanced这里看到QTP Automation object model。而它提供给我们操作QTP Application对象的方法与属性等。它的子对象，方法都非常丰富，其中有大家熟悉的如何配置启动一个QTP程序等等，而我们今天文章的内容不是如何去启动它，而是获取它，并和它对话。
先看看，我们使用下面代码来获取已经打开或者在运行中的QTP Application的环境变量，代码是VBS，我们可以新建一个GetQTPEnvironmentValue.Vbs:
VBS代码：
Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")
Msgbox qtApp.Test.Environment.Value("NeedHelp")
然后我们或者打开一个QTP，添加进去一个环境变量，名字为：“NeedHelp”，值是“True”，接着我们再写个死循环让它跑：
QTP
While Environment("NeedHelp")
i=i+1
Wend
Msgbox i
接着我们运行GetQTPEnvironmentValue,Vbs这个文件，这个时候，我们可以看到跳出了提示窗口是“True”。
二，让外部脚本给QTP下“命令”
看完上面小小代码片，大家或者已经知道，原来我们使用Set qtApp = CreateObject("QuickTest.Application")语句是可以获取正在运行的QTP对象，同时我们也能够获取它的一些属性与设置等等。
同样，我们也能够对它做操作，把上面的VBS文件内容稍微做改变：
VBS代码：
Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Test.Environment.Value("NeedHelp")=False
这个时候，我们让QTP的那个死循环跑起来，接着运行这个VBS文件，就能看到Popup出来的i值了。
哪么，我们是否只能通过这样的方法呢？当然不是，我们看到在Application.Test对象下面，不但有Environment这个属性，同样它还有Run,Stop,Continue,Pause等方法。所以，使用这些方法我们同样也能够让外部程序或者VBS来让QTP跑或者停或者继续，功能就和QC一般。
VBS代码：
Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")
If qtApp.Test.Environment.Value("NeedHelp")then
qtApp.Test.Pause
WScript.Sleep 5000
qtApp.Test.Continue
qtApp.Test.Environment.Value("NeedHelp")=False
End if
QTP VBS：
While Environment("NeedHelp")
i=i+1
Wend
msgbox i
三，“偷”出QTP的对象
同样，有了环境变量这个东西，我们可以把QTP的对象复给它，并“偷出城”去，为我们自己所用。不过自然它能使用的方法都是QTP封装 To的方法与属性，不能使用Ro属性，例如只能使用GetTopropert而不能使用GetRopropert,但是我们如果想要获取它原装的方法与属性，可以使用.Object方法去操作它。
首先，我们可以添加一个对象到对象库中，接着在QTP的代码
Environment("NeedHelp")=browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下")
Msgbox “123” ‘这里需要停住，让QTP运行，如果QTP停止了，外面的VBS脚本就会出现缺少对象情况。
VBS代码：
Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")
MsgBox qtApp.Test.Environment.Value("NeedHelp").GetRoproperty("Name")
MsgBox qtApp.Test.Environment.Value("NeedHelp").Object.id
[ 本帖最后由 假装不在 于 2009-12-3 23:48 编辑 ] 支持！ 支持原创！
支持！
刚开始学测试，看的晕忽忽的！ 原帖由 zzxxbb112 于 2009-12-4 10:03 发表 http://bbs.51testing.com/images/common/back.gif支持！
::yxiao::: 一起学习。 原帖由 lantianwei 于 2009-12-4 13:45 发表 http://bbs.51testing.com/images/common/back.gif
支持原创！
::yiwusuoyou::: 谢谢。 原帖由 donglei1205 于 2009-12-4 16:30 发表 http://bbs.51testing.com/images/common/back.gif
刚开始学测试，看的晕忽忽的！
可以先看点简单的。 阿晨强大啊 原帖由 timfung 于 2009-12-11 10:50 发表 http://bbs.51testing.com/images/common/back.gif
阿晨强大啊
好奇怪的叫法。::yiwusuoyou::: 问个弱弱的问题：
MsgBox qtApp.Test.Environment.Value("NeedHelp").GetRoproperty("Name")－－这里的("Name")取出的是什么?
MsgBox qtApp.Test.Environment.Value("NeedHelp").Object.id－－这个是否可以用作将QTP运行异常时抛出其Object.id? 原帖由 ivykkk 于 2009-12-15 22:43 发表 http://bbs.51testing.com/images/common/back.gif
问个弱弱的问题：
MsgBox qtApp.Test.Environment.Value("NeedHelp").GetRoproperty("Name")－－这里的("Name")取出的是什么?
MsgBox qtApp.Test.Environment.Value("NeedHelp").Object.id－－这个是否可以用作 ...
第一个抛出来的是这个button的name.而第2个是用dom对象的属性，也就是获取它的ID。
而你的第2个问题“这个是否可以用作将QTP运行异常时抛出其Object.id?”看不明白。Object.id不一定什么都有，像web的Web Element也不都一定有id。而像CS之类的对象，主要是使用句柄hwnd，不是id。 原帖由 donglei1205 于 2009-12-4 16:30 发表 http://bbs.51testing.com/images/common/back.gif
刚开始学测试，看的晕忽忽的！
me too me too:( 看过那个轻量级qtp框架，但是它是把QTP作为驱动工具，vbs作为脚本来运行，手动代码量比较大，且失去了qtp的自动化录制的优势，
改进了一下，用VB.net写了个qtp的运行管理工具，也算是个框架，来驱动QTP的工作，和LZ的想法差不多，其实这样也满好的。 原帖由 kongfucat 于 2010-1-28 11:10 发表 http://bbs.51testing.com/images/common/back.gif
看过那个轻量级qtp框架，但是它是把QTP作为驱动工具，vbs作为脚本来运行，手动代码量比较大，且失去了qtp的自动化录制的优势，
改进了一下，用VB.net写了个qtp的运行管理工具，也算是个框架，来驱动QTP的工作，和 ...
期待你能把你的工具,或者工作原理以贴图或文档的形式发到论坛来...那样对大家都有很大帮助:handshake
回复 13# 的帖子
我们的名字后都有"cat"呵呵:lol请问：可以用对象方法，获取设置Action Run 属性吗
想解决：由外部传入指定 Action Run DataTable 的某几行数据。 路过，学习了。 没有什么新意，通篇一句话就可以概括：QTP提供二次开发接口 好像这里的环境变量只能是原来设置了什么值，就是什么后，原面重新赋值都没有用 支持
页:
[1]
