Quick Test Professional 自动化脚本示例

执行基本操作：

配置运行选项并运行测试

'************************************************************************************************************************

'描述：

'

'该示例打开测试，配置运行选项和设置，

'运行该测试，然后检查测试运行的结果。

'

'假定：

'QuickTest 中当前未打开没有保存的测试。

'有关详细信息，请参阅 Test.SaveAs 方法的示例。

'打开 QuickTest 时，将加载测试所必需的加载项。

'有关详细信息，请参阅 Test.GetAssociatedAddins 方法的示例。

'************************************************************************************************************************

Dim qtApp ' As QuickTest.Application ' 声明 Application 对象变量

Dim qtTest 'As QuickTest.Test ' 声明 Test 对象变量

Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' 声明 Run Results Options 对象变量

Set qtApp = CreateObject("QuickTest.Application") ' 创建 Application 对象

qtApp.Launch ' 启动 QuickTest

qtApp.Visible = True ' 使 QuickTest 应用程序可见

' 设置 QuickTest 运行选项

qtApp.Options.Run.CaptureForTestResults = "OnError"

qtApp.Options.Run.RunMode = "Fast"

qtApp.Options.Run.ViewResults = False

qtApp.Open "C:\Tests\Test1", True ' 以只读模式打开测试

' 为测试设置运行设置

Set qtTest = qtApp.Test

qtTest.Settings.Run.IterationMode = "rngIterations" ' 仅运行循环 2 到 4

qtTest.Settings.Run.StartIteration = 2

qtTest.Settings.Run.EndIteration = 4

qtTest.Settings.Run.OnError = "NextStep" ' 指示 QuickTest 在发生错误时执行下一步骤

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' 创建 Run Results Options 对象

qtResultsOpt.ResultsLocation = "C:\Tests\Test1\Res1" ' 设置结果位置

qtTest.Run qtResultsOpt ' 运行测试

MsgBox qtTest.LastRunResults.Status ' 检查测试运行的结果

qtTest.Close ' 关闭测试

Set qtResultsOpt = Nothing ' 释放 Run Results Options 对象

Set qtTest = Nothing ' 释放 Test 对象

Set qtApp = Nothing ' 释放 Application 对象

执行基本操作：

检查测试状态并保存测试

'************************************************************************************************************************

'描述：

'

'该示例保存已修改的测试，以便可以打开新的测试

'或退出应用程序，而不丢失任何未保存的信息。

'************************************************************************************************************************

Dim qtApp ' As QuickTest.Application ' 声明 Application 对象变量

Set qtApp = CreateObject("QuickTest.Application") ' 创建 Application 对象

qtApp.Launch ' 启动 QuickTest（如果未启动）

qtApp.Visible = True ' 使其可见

' 保存当前测试并根据需要决定是否打开一个新的测试

If qtApp.Test.Modified Then ' 如果修改了测试

If qtApp.Test.IsNew Then ' 如果是新的测试（无标题）

qtApp.Test.SaveAs "C:\Temp\TempTest" ' 使用临时名称保存测试（覆盖现有的临时测试）

Else ' 如果存在测试（具有名称）

qtApp.Test.Save ' 保存更改

End If

End If

If Not qtApp.Test.IsNew Then ' 如果当前测试不是新的测试

qtApp.New ' 打开新的测试

End If

Set qtApp = Nothing ' 释放 Application 对象

执行基本操作：

配置 QuickTest 显示选项

'************************************************************************************************************************

'描述：

'

'该示例配置 QuickTest 视图和窗格，以便以可见模式运行 QuickTest。

'************************************************************************************************************************

Dim qtApp ' As QuickTest.Application ' 声明 Application 对象变量

Set qtApp = CreateObject("QuickTest.Application") ' 创建 Application 对象

qtApp.Launch ' 启动 QuickTest

qtApp.ActivateView "ExpertView" ' 显示专家视图

qtApp.ShowPaneScreen "ActiveScreen", True ' 显示 Active Screen 窗格

qtApp.ShowPaneScreen "DataTable", False ' 隐藏“数据表”窗格

qtApp.ShowPaneScreen "DebugViewer", True ' 显示“调试查看器”窗格

qtApp.WindowState = "Maximized" ' 最大化 QuickTest 窗口

qtApp.Visible = True ' 使 QuickTest 窗口可见

Set qtApp = Nothing ' 释放 Application 对象

执行基本操作：

为业务流程测试新建业务组件

'************************************************************************************************************************

'描述：

'

' 该示例为特定的业务流程测试找到关联的加载项的列表。

' 然后新建业务组件，并与关联 BPT 的业务组件

'关联相同的加载项。

'

'************************************************************************************************************************

Dim qtApp ' As QuickTest.Application ' 声明 Application 对象变量

Dim arrBCAddins ' 声明变量，用于存储与组件关联的加载项

Dim blnNeedChangeAddins ' 声明一个标志，用于指明当前是否已加载与组件关联的加载项

Set qtApp = CreateObject("QuickTest.Application") ' 创建 Application 对象

qtApp.Launch ' 启动 QuickTest

qtApp.Visible = True ' 使 QuickTest 应用程序可见

qtApp.TDConnection.Connect "http://qcserver/qcbin", _

"MY_DOMAIN", "My_Project", "James", "not4you", False ' 连接到 Quality Center

If qtApp.TDConnection.IsConnected Then ' 如果连接成功

'找到与业务流程测试关联的加载项，并关联到具有新的业务组件的

'同一列表。

arrBCAddins = qtApp.GetAssociatedAddinsForBPT("[QualityCenter] Subject\MyFolder\MyBPT")

qtApp.NewBusinessComponent

qtApp.BusinessComponent.SetAssociatedAddins arrBCAddins

End If

执行基本操作：

为业务组件加载正确的加载项

'************************************************************************************************************************

'描述：

'

' 该示例查找与特定业务组件关联的加载项。

' 如果尚未加载某些必需的加载项，则其加载它们，重新启动 QuickTest，打开业务组件，

' 并确认打开的文档是否确实是业务组件。

'

'************************************************************************************************************************

Dim qtApp ' As QuickTest.Application ' 声明 Application 对象变量

Dim arrBCAddins ' 声明变量，用于存储与组件关联的加载项

Dim blnNeedChangeAddins ' 声明一个标志，用于指明当前是否已加载与组件关联的加载项

Set qtApp = CreateObject("QuickTest.Application") ' 创建 Application 对象

qtApp.Launch ' 启动 QuickTest

qtApp.Visible = True ' 使 QuickTest 应用程序可见

qtApp.TDConnection.Connect "http://qcserver/qcbin", _

"MY_DOMAIN", "My_Project", "James", "not4you", False ' 连接到 Quality Center

If qtApp.TDConnection.IsConnected Then ' 如果连接成功

arrBCAddins = qtApp.GetAssociatedAddinsForBC("[QualityCenter] Components\MyFolder\MyBC")

' 检查是否已加载所有必需的加载项

blnNeedChangeAddins = False ' 假定无需作任何更改

For Each bcAddin In arrBCAddins ' 循环与组件关联的加载项列表

If qtApp.Addins(bcAddin).Status <> "Active" Then ' 如果存在未加载的关联加载项

blnNeedChangeAddins = True ' 指明需要对加载的加载项进行更改

Exit For ' 退出循环

End If

Next

If qtApp.Launched And blnNeedChangeAddins Then

qtApp.Quit ' 如果有必要进行更改，则退出 QuickTest，修改已加载的加载项

End If

If blnNeedChangeAddins Then

Dim blnActivateOK

blnActivateOK = qtApp.SetActiveAddins(arrBCAddins, errorDescription) ' 加载与组件关联的加载项并检查它们是否已加载成功。

If Not blnActivateOK Then ' 如果在加载加载项时发生问题

MsgBox errorDescription ' 显示包含错误的消息

WScript.Quit ' 并结束自动程序。

End If

End If

End If

If Not qtApp.Launched Then ' 如果尚未打开 QuickTest

qtApp.Launch ' 启动 QuickTest（已加载正确的加载项）

qtApp.Visible = True ' 使 QuickTest 应用程序可见

qtApp.TDConnection.Connect "http://qcserver/qcbin", _

"MY_DOMAIN", "My_Project", "James", "not4you", False ' 连接到 Quality Center

End If

If qtApp.TDConnection.IsConnected Then ' 如果连接成功

qtApp.OpenBusinessComponent "[QualityCenter] Components\MyFolder\MyBC", False ' 打开业务组件

MsgBox qtApp.CurrentDocumentType '确认打开的文档是否是业务组件

End If

执行基本操作：

检查和加载加载项

'************************************************************************************************************************

'描述：

'

'该示例打开一个测试，并加载所有与测试关联的加载项。

'

'假定：

'QuickTest 中当前未打开没有保存的测试。

'有关详细信息，请参阅 Test.SaveAs 方法的示例。

'************************************************************************************************************************

Dim qtApp ' As QuickTest.Application ' 声明 Application 对象变量

Dim blnNeedChangeAddins ' 声明一个标志，用于指明当前是否已加载与测试关联的加载项

Dim arrTestAddins ' 声明变量，用于存储与测试关联的加载项

Set qtApp = CreateObject("QuickTest.Application") ' 创建 Application 对象

arrTestAddins = qtApp.GetAssociatedAddinsForTest("C:\Tests\Test1") ' 创建一个数组，用于包含与该测试关联的加载项的列表

' 检查是否已加载所有必需的加载项

blnNeedChangeAddins = False ' 假定无需作任何更改

For Each testAddin In arrTestAddins ' 循环与测试关联的加载项列表

If qtApp.Addins(testAddin).Status <> "Active" Then ' 如果存在未加载的关联加载项

blnNeedChangeAddins = True ' 指明需要对加载的加载项进行更改

Exit For ' 退出循环

End If

Next

If qtApp.Launched And blnNeedChangeAddins Then

qtApp.Quit ' 如果有必要进行更改，则退出 QuickTest，修改已加载的加载项

End If

If blnNeedChangeAddins Then

Dim blnActivateOK

blnActivateOK = qtApp.SetActiveAddins(arrTestAddins, errorDescription) ' 加载与测试关联的加载项并检查它们是否已加载成功。

If Not blnActivateOK Then ' 如果在加载加载项时发生问题

MsgBox errorDescription ' 显示包含错误的消息

WScript.Quit ' 并结束自动程序。

End If

End If

If Not qtApp.Launched Then ' 如果尚未打开 QuickTest

qtApp.Launch ' 启动 QuickTest（已加载正确的加载项）

End If

qtApp.Visible = True ' 使 QuickTest 应用程序可见

qtApp.Open "C:\Tests\Test1" ' 打开测试

Set qtApp = Nothing ' 释放 Application 对象