如何通過(guò)計(jì)劃任務(wù)調(diào)用QuickTest測(cè)試腳本
更新時(shí)間:2007年03月30日 00:00:00 作者:
我們可以編寫(xiě)一個(gè)Vbs腳本,直接在Windows平臺(tái)下直接運(yùn)行調(diào)用qtp的測(cè)試腳本,也可以將這個(gè)腳本添加到計(jì)劃任務(wù)中,可以定時(shí)執(zhí)行。
腳本如下:
---------------------------------------
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
腳本如下:
---------------------------------------
復(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
相關(guān)文章
vbs中關(guān)于計(jì)算機(jī)名的相關(guān)討論
vbs中關(guān)于計(jì)算機(jī)名的相關(guān)討論...2007-03-03VBS教程:正則表達(dá)式簡(jiǎn)介 -建立正則表達(dá)式
VBS教程:正則表達(dá)式簡(jiǎn)介 -建立正則表達(dá)式...2006-11-11利用wscript執(zhí)行文件[包括可執(zhí)行exe文件]vbs腳本
利用wscript執(zhí)行文件[包括可執(zhí)行exe文件]vbs腳本...2007-02-02vbs小程序圖標(biāo)更改方法的實(shí)現(xiàn)
這篇文章主要介紹了vbs小程序圖標(biāo)更改方法的實(shí)現(xiàn),文中通過(guò)示例代碼介紹的非常詳細(xì),對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2020-03-03VBS中獲取系統(tǒng)本次及上次開(kāi)關(guān)機(jī)時(shí)間的代碼(WinXP/win2003/Win7兼容版)
獲取系統(tǒng)本次及上次開(kāi)關(guān)機(jī)時(shí)間的vbs代碼,經(jīng)測(cè)試兼容WinXP/win2003/Win7系統(tǒng),喜歡的朋友可以收藏下2013-01-01vbs腳本實(shí)現(xiàn)批量轉(zhuǎn)換文件編碼
這篇文章主要介紹了vbs腳本實(shí)現(xiàn)批量轉(zhuǎn)換文件編碼,可以批量對(duì)文件在Gb2312和UTF-8編碼間互相轉(zhuǎn)換,需要的朋友可以參考下2014-06-06