|
【互动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 编辑 ] |
|