|
本帖最后由 mmysloves 于 2013-9-26 21:28 编辑
'启动QTP程序
Dim Qtp
Dim arrTestAddins
Dim blnNcAddins
Set Qtp = createobject("QuickTest.Application") '创建一个QTP应用程序实例对象
arrTestAddins = Qtp.GetAssociatedAddinsForTest("D:\mercury")
blnNcAddins = false
For each testAddins in arrTestAddins
'如果插件未加载,则加载修改插件的关联设置
If Qtp.Addins(TestAddins).Status <> "Active" Then
blnNcAddins = true
Exit for
End If
Next
' 如果需要修改插件设置,则退出QTP
If Qtp.Launched and blnNcAddins Then
Qtp.Quit
End If
'重新加载插件
If blnNcAddins Then
Dim blnActivateOK
'加载相关插件并且检查是否加载成功
blnActivateOK = Qtp.SetActiveAddins(arrTestAddins,errorDescription)
If Not blnActivateOK Then
msgbox errorDescription
WScript.Quit
End If
End If
If Not Qtp.Launched Then
Qtp.Launch
End If
Qtp.Visible = true
Qtp.Open "D:\mercury",False
Dim QtOptions
Set QtOptions = createobject("QuickTest.RunResultsOptions") '设置运行结果存储到相对的目录上
QtOptions.ResultsLocation = "C:\"
Qtp.Test.Run QtOptions,True 报错是报这句,改来改去不知道错在哪。
Qtp.Test.Save '保存测试脚本
Qtp.Quit 't退出QTP
Set QtOptions = Nothing '释放QtOptions对象
Set Qtp = Nothing '释放应用程序对象
求救大神。 |
|