今天帮一个加拿大的朋友解决VB调用QTP的问题,自己写了一个Demo 。 下边是源代码 1.新建工程,引入QuickTest Professional 8.0 object library 2.编写代码如下: Private strScriptName As String Private strRunScript As String Private Sub cmdAddScript_Click() strScriptName = InputBox("请输入QuickTestPro脚本的路径以及名字", "Select Script") lstQtpScript.AddItem strScriptName strScriptName = "" End Sub
Private Sub cmdRunScript_Click() If strRunScript = "" Then MsgBox "please select you want to a running script in listbox" Else 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 = True ' Make the QuickTest application visible ' Set QuickTest run options qtApp.Options.Run.CaptureForTestResults = "OnError" qtApp.Options.Run.RunMode = "Fast" qtApp.Options.Run.ViewResults = False qtApp.Open strRunScript, True ' Open the test in read-only mode ' set run settings for the test Set qtTest = qtApp.Test 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 Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object qtResultsOpt.ResultsLocation = strRunScript + "Res1" ' 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 QuickTestPro Set qtResultsOpt = Nothing ' Release the Run Results Options object Set qtTest = Nothing ' Release the Test object Set qtApp = Nothing ' Release the Application object strRunScript = "" End If End Sub Private Sub Form_Load() strScriptName = "" strRunScript = "" End Sub Private Sub lstQtpScript_Click() strRunScript = lstQtpScript.Text End Sub
由于不是具体讲vb的使用所以里面如何新建工程等都省略掉了,如果大家有兴趣可以自己找相关书籍学习。 以上代码在vb6.0 winxp sp2调试通过。 转载请注明出处:www.51testing.com |