今天幫一個(gè)加拿大的朋友解決VB調(diào)用QTP的問(wèn)題，自己寫(xiě)了一個(gè)Demo 。

成都創(chuàng)新互聯(lián)公司專(zhuān)注于錦屏企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè),商城系統(tǒng)網(wǎng)站開(kāi)發(fā)。錦屏網(wǎng)站建設(shè)公司,為錦屏等地區(qū)提供建站服務(wù)。全流程定制設(shè)計(jì)，專(zhuān)業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)公司專(zhuān)業(yè)和態(tài)度為您提供的服務(wù)

下邊是源代碼

1.新建工程，引入QuickTest Professional 8.0 object library

2.編寫(xiě)代碼如下：

Private strScriptName As String
Private strRunScript As String

Private Sub cmdAddScript_Click()
strScriptName = InputBox("請(qǐng)輸入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. ' 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的使用所以里面如何新建工程等都省略掉了，如果大家有興趣可以自己找相關(guān)書(shū)籍學(xué)習(xí)。

以上代碼在vb6.0 winxp sp2調(diào)試通過(guò)。

當(dāng)前標(biāo)題：VB調(diào)用QTP-創(chuàng)新互聯(lián)
文章地址：http://chinadenli.net/article26/dhsscg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供電子商務(wù)、網(wǎng)站建設(shè)、靜態(tài)網(wǎng)站、ChatGPT、云服務(wù)器、商城網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)