zoukankan      html  css  js  c++  java
  • 【QTP专题-优化】VBS脚本启动QTP并运行测试

     使用vbs脚本启动QTP并运行测试,startQTP.vbs

    '************************************************************************************************************************
    'Description:
    '
    'This example opens a test, configures run options and settings,
    'runs the test, and then checks the results of the test run.
    '
    'Assumptions:
    'There is no unsaved test currently open in QuickTest.
    'For more information, see the example for the Test.SaveAs method.
    'When QuickTest opens, it loads the add-ins required for the test.
    'For more information, see the example for the Test.GetAssociatedAddins method.
    '************************************************************************************************************************
    
    Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
    Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
    Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable
    
    Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
    qtApp.Launch ' Start QuickTest
    qtApp.Visible = False ' Make the QuickTest application visible
    
    ' Set QuickTest run options
    qtApp.Options.Run.ImageCaptureForTestResults = "OnError"
    
    qtApp.Options.Run.RunMode = "Fast"
    qtApp.Options.Run.ViewResults = False
    
    qtApp.Open "D:NewTestScriptsBeforeGlobalLogin", False ' Open the test in read-only mode
    
    ' set run settings for the test
    Set qtTest = qtApp.Test
    qtTest.Settings.Run.IterationMode = "oneIteration"  ' Runs the test only once, using only the first row in the global Data Table
    'qtTest.Settings.Run.IterationMode = "rngIterations" ' Run only iterations 2 to 4
    'qtTest.Settings.Run.StartIteration = 2
    'qtTest.Settings.Run.EndIteration = 4
    qtTest.Settings.Run.OnError = "NextStep" ' Instruct QuickTest to perform next step when error occurs
    qtApp.Test.Settings.Web.BrowserNavigationTimeout = 60000 ' Configure other Web settings




    Set
    qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object qtResultsOpt.ResultsLocation = "D:NewTestRes1" ' Set the results location qtTest.Run qtResultsOpt ' Run the test 'MsgBox qtTest.LastRunResults.Status ' Check the results of the test run qtTest.Close ' Close the test qtApp.Quit 'Close the QTP Set qtResultsOpt = Nothing ' Release the Run Results Options object Set qtTest = Nothing ' Release the Test object Set qtApp = Nothing ' Release the Application object

    更多详细信息可以参考QTP帮助文件AutomationObjectModel.chm中Application Object (若chm内容为空,可参考CHM文件使用问题

  • 相关阅读:
    菜单代码
    一个三角形证明题
    根号7和根号13的正数部分
    绝对值是大问题,a^2-b^2=2009
    化学
    二次函数错题本:y=ax^2+4ax+3
    大阴线空中加油最厉害!比亚迪等几个分析图
    大阴线空中加油最厉害!比亚迪等几个分析图
    09-使用a标签实现锚链接的两种方法
    08-a超链接标签
  • 原文地址:https://www.cnblogs.com/sylvia-liu/p/3713190.html
Copyright © 2011-2022 走看看