這篇文章主要介紹怎么通過計劃任務(wù)調(diào)用QuickTest測試腳本，文中介紹的非常詳細，具有一定的參考價值，感興趣的小伙伴們一定要看完！

創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),普陀企業(yè)網(wǎng)站建設(shè),普陀品牌網(wǎng)站建設(shè),網(wǎng)站定制,普陀網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,普陀網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

我們可以編寫一個Vbs腳本，直接在Windows平臺下直接運行調(diào)用qtp的測試腳本，也可以將這個腳本添加到計劃任務(wù)中，可以定時執(zhí)行。

腳本如下：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

復(fù)制代碼 代碼如下:

Dim qtApp  
Dim qtTest 
Dim qtResultsOpt  

Set qtApp = CreateObject("QuickTest.Application")  
qtApp.Launch  
qtApp.Visible = True  
qtApp.Open "C:\QuickTest Professional\tests\test1\test1.usr", True 

Set qtTest = qtApp.Test  
qtTest.Settings.Run.OnError = "NextStep"  
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")  
qtResultsOpt.ResultsLocation = "C:\QuickTest Professional\tests\test1\"  
qtTest.Run 

Set qtResultsOpt = Nothing  
Set qtTest = Nothing  
Set qtApp = Nothing

以上是“怎么通過計劃任務(wù)調(diào)用QuickTest測試腳本”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對大家有幫助，更多相關(guān)知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

網(wǎng)站標題：怎么通過計劃任務(wù)調(diào)用QuickTest測試腳本-創(chuàng)新互聯(lián)
網(wǎng)站地址：http://weahome.cn/article/dchdip.html