Execute可以用于在脚本中执行一个或多个语句，利用这个功能，可以在QTP的脚本中执行一些临时拼凑的语句，例如测试对象的赋值语句。

下面的脚本启动被测试程序，然后从环境变量读入测试对象信息，然后使用Execute执行测试对象赋值语句，把读入的测试对象信息组合成一个完整可用的测试对象，然后使用该测试对象：

Dim TestObj ,QTPClass,DPID

' 启动被测试程序

SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"

' 从环境变量读入测试对象信息

QTPClass = Environment.Value("QTPClass")

DPID =  Environment.Value("DPID")

' 使用Execute执行测试对象赋值语句

Execute "Set TestObj = " & QTPClass & "(" & Chr(34) & DPID & Chr(34) & ")"

' 使用测试对象

TestObj.Activate

' ...

TestObj.Close

自动化测试工程师可以利用Execute的这种动态脚本构建的特性，抛开QTP的对象库，改为从外部文件读入测试对象信息然后构造成完整的测试对象，从而实现自己定义的测试框架。

发表于 @ 2008年04月19日 21:24:00|评论(loading...)