【互动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

支持！

lantianwei

支持原创！

donglei1205

刚开始学测试，看的晕忽忽的！

假装不在

原帖由 zzxxbb112 于 2009-12-4 10:03 发表
支持！

::yxiao::: 一起学习。

假装不在

原帖由 lantianwei 于 2009-12-4 13:45 发表
支持原创！

::yiwusuoyou::: 谢谢。

假装不在

原帖由 donglei1205 于 2009-12-4 16:30 发表
刚开始学测试，看的晕忽忽的！

可以先看点简单的。

timfung

阿晨强大啊

假装不在

原帖由 timfung 于 2009-12-11 10:50 发表
阿晨强大啊

好奇怪的叫法。::yiwusuoyou:::

ivykkk

问个弱弱的问题：
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 发表
问个弱弱的问题：
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。

edison1256

原帖由 donglei1205 于 2009-12-4 16:30 发表
刚开始学测试，看的晕忽忽的！

me too me too

kongfucat

看过那个轻量级qtp框架，但是它是把QTP作为驱动工具，vbs作为脚本来运行，手动代码量比较大，且失去了qtp的自动化录制的优势，

改进了一下，用VB.net写了个qtp的运行管理工具，也算是个框架，来驱动QTP的工作，和LZ的想法差不多，其实这样也满好的。

wugecat

原帖由 kongfucat 于 2010-1-28 11:10 发表
看过那个轻量级qtp框架，但是它是把QTP作为驱动工具，vbs作为脚本来运行，手动代码量比较大，且失去了qtp的自动化录制的优势，

改进了一下，用VB.net写了个qtp的运行管理工具，也算是个框架，来驱动QTP的工作，和 ...

期待你能把你的工具,或者工作原理以贴图或文档的形式发到论坛来...那样对大家都有很大帮助

wugecat

我们的名字后都有"cat"呵呵

ivykkk

想解决：由外部传入指定 Action Run DataTable 的某几行数据。

zhengpeipei

路过，学习了。

xiaoyaoke

没有什么新意，通篇一句话就可以概括：QTP提供二次开发接口

iblues

好像这里的环境变量只能是原来设置了什么值，就是什么后，原面重新赋值都没有用

javaweb2006

支持