用Schedule定时运行QTP脚本

创建一个.vbs，在控制面板的Schedule里面定义自己的task就好51Testing软件测试网|Z0a4Mis

F7] G*AKf\eQ0vbs的脚本如下：
2XFHM!wX$C051Testing软件测试网}S`c\
51Testing软件测试网 |VH V]oPw+i
51Testing软件测试网4Eg-L
p$Xe
Dim qtApp 'As QuickTest.Application ' Declare the Application object variable51Testing软件测试网uXL_,L:S7dM"KeV
51Testing软件测试网JN[-R4v8tD
Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
H.P/Z9Y/[0
'r R#u(l*yc2]O0Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable51Testing软件测试网%rMA'v"J_*Q7E1DG

7O#XbEX0Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
`EY']Te051Testing软件测试网s8Jh Bu/J
qtApp.Launch ' Start QuickTest
t%H-Ih|*M[xU051Testing软件测试网o3n~WC4Tl
qtApp.Visible = True ' Make the QuickTest application visible51Testing软件测试网~/^l@
IA }

4C0`R;n3v`Ah S0' Set QuickTest run options51Testing软件测试网
gK4E?%W/[3nqI
51Testing软件测试网 s
kD2m0QG/m S-v
qtApp.Options.Run.ImageCaptureForTestResults = "OnError"
(Ae
qKPR5A0
CF^5d_2e3f}
r0qtApp.Options.Run.RunMode = "Fast"
^D3g;cz5wxM0
TCwW$]0qtApp.Open "C:\ Your Test Path Here", True ' Open the test in read-only mode51Testing软件测试网:K%I!DtZt
51Testing软件测试网Ep8]tJ AE]I
' set run settings for the test51Testing软件测试网?:L'W^&cv8H
51Testing软件测试网Fu?^vr1g$s
Set qtTest = qtApp.Test

k&NKV!Td,Q%xP0
&lTwNp"FG2BN!`;N0qtTest.Settings.Run.OnError = "NextStep" ' Instruct QuickTest to perform. next step when error occurs
w8Nb4Ge051Testing软件测试网 t9R%R5}1p
y6p
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object51Testing软件测试网G+l&j|!W#SY1X2O
51Testing软件测试网6q/F:|n1WR'd4d9?f6F"}'w
qtResultsOpt.ResultsLocation = "C:\Your Results Path Here" ' Set the results location51Testing软件测试网&y;_7G-^,jeL7~#d
51Testing软件测试网J-Dz]
{
qtTest.Run ' Run the test
G)D!JHV"\0
`!~-_x-g0'qtTest.Close ' Close the test
d RU ~ rXR8{051Testing软件测试网Ud/P3wb
Q H
Set qtResultsOpt = Nothing ' Release the Run Results Options object
.U!h4scz051Testing软件测试网U7w[7XX;V
Set qtTest = Nothing ' Release the Test object
B:TF!Dj8j!U0
8Gi,DK f,A0Set qtApp = Nothing ' Release the Application object

m8\ A,z0P4n-c0转自

'M&s
|\ egS!@b0http://www.ltesting.net/html/87/n-154787.html51Testing软件测试网 U!lq:yg`%X6a a

N4A[;S#?#xaH+f6Q0 51Testing软件测试网pyJ7p `;x.F_

MwH^H0备注：玩这个的关键有两个 1，添加计划任务时输入windows账号密码 2 启动windows 的task Schedule51Testing软件测试网U(vL'`3C_9w1U?
W6F