QTP Launch

本文介绍了一段使用QuickTest Professional (QTP)进行自动化测试的VBScript脚本。该脚本展示了如何设置QTP环境变量,加载测试库,运行测试案例,并整合测试结果。此外,还介绍了如何通过QTP与其他应用程序(如Excel)交互来实现自动化测试流程。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

Dim qtApp, qtTest, qtResult, oShell. ResultCode
Wscript.echo WScript.ScriptFullName & " Starting"
Set oShell = CreatObject("WScript.Shell")
Wscript.Quit ResultCode
WScript.Sleep (1000)
Set qtApp = CreatObject("QuickTest.Application")
qtApp.Launch
BuildTag=oShell.ExpandEnvironmentStrings("%BUILD_TAG%")'“%path%”会扩充成完整路径
If BuildTag="%BUILD_TAG%" Then
     qtApp.visible = true
Else
     qtApp.visible = false
End If
qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResult = False
qtApp.Open oShell.ExpandEnvironmentStrings("%Result%") & "TestCodeCasesRunner", True 'Open on Read-only mode
set qtTest = qtApp.Test
Dim fso
fso = CreatObject("scripting.FileSystemObject")
qtTest.Environment.Value("ResultFolder") = oShell.ExpandEnvironmentStrings("%Result%") & "Report"
Set oExl = CreatObject("Excel.Application")
Set oWorkBook = oExl.Workbooks.Open(qtTest.Environment.Value("WorkSpace") & "" OriginalGlobalData, ,_
True, ,vbNullString)
oExl .application.visible=false
oExl .application.displayalerts=false
oWorkBook.Saves qtTest.Environment.Value("ResultFolder") & "" & SourceData, 43
oExl .application.Quit
set oExl = Nothing
Sub Load
If qtApp.test.Settings.Resources.Libraries.Count >0 Then
     qtApp.test.Settings.Resources.Libraries.RemoveAll
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set CommFol=fso.GetFolder(LibPath & "Common")
Set AllFiles=CommFol.Allfile
For Each FuncFile in AllFiles
    If Instr(FuncFile .name, ".vbs")> 0 or Instr(FuncFile .name, ".qfl")> 0 Then
           qtApp.test.Settings.Resources.Libraries.Add LibPath & "Common" & FunFile.name
     End If
Next
For Each FuncFile in AllFiles
    If Instr(FuncFile .name, ".vbs")> 0 or Instr(FuncFile .name, ".qfl")> 0 Then
           qtApp.test.Settings.Resources.Libraries.Add LibPath & "Project" & FunFile.name
     End If
Next
Set fso = Nothing
End Sub
Sub Run
    TmpResult = qtTest.Environment.Value ("ResultFolder") & "tmp"
    qtTest.Settings.Run.IterationMode = "rngIterations"
    qtTest.Settings.Run.StartIteration = 1
    qtTest.Settings.Run.EndIteration = 1
    qtTest.Settings.Run.Error = "NextStep"
    Wscript.echo qtApp.GetStatus
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
    qtResultsOpt.ResultLocation = tmpResult
    qtTest.Run qtResultsOpt 'run test
Wscript.echo qtApp.GetStatus
Wscript.echo qtTest.LastRunResults.Status
Wscript.echo qtTest.LastRunResults.Path
Wscript.echo qtTest.LastRunResult.LastError
RunStatus = qtTest.LastRunResults.Status
RunStatus = UCase(runStatus)
If RunStatus <> "PASSED" Then
  REsultCode = 1
End If
oShell.currentdirectory = qtTest.Environment.Value("ResultFolder")
cmd="Reporter.exe"+"HTML"
oShell.Run cmd, 1,True
Wscript.echo "[info] QTP test finished and QTP closed."
End Sub
Sub Close
   qtTest.close
qtApp.quit
set qtTest = nothing
set qtApp = nothing
End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值