利用VBS自动化QTP

1J/e;}#hJ.yTd8O!|0    dim time1,time2,path151Testing软件测试网E0q/WU)EK
C
    time1 = inputbox("请输入预定执行的小时","复蓝你好") '输入要执行脚本的小时数，为24进制
i*d&v+wSj:u0    time2 = inputbox("请输入预定执行的分钟","复蓝你好") '输入要执行脚本的分钟数51Testing软件测试网c-x3K-qD`
    path1 = inputbox("请输入脚本路径","复蓝你好")       '输入要执行脚本放置的文件夹
S'k%}Tt"t!z!UR0Do While  True   '隔1秒判断一次是否达到运行时间51Testing软件测试网-@$rXnZ y
    Wscrīpt.Sleep 1000  
.f
~g-kQ5vz0if cstr(Hour(now)) = time1  then
UZ e
L9Io,g]0if cstr(Minute(now)) = time2 then
"x qg\%e/fp-e0    driver(path1)51Testing软件测试网0v8B2_Ar8tP
exit do
iYQ)}X3\O0end if51Testing软件测试网,p8@le+Og
end if
z4k1sWE&n[5J0Loop 51Testing软件测试网2m"G
R+D;yd)Y%^
Function driver(path1)  '函数,功能为运行QTP和脚本
:h!Htr:`bLj0 Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
6eAW'a v(wM:G$q0 Dim qtTest 'As QuickTest.Test ' Declare a Test object variable51Testing软件测试网+P$T$i#D)J7u,E
 Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable
0|0oZ pu[Q)D0 Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
5It&I i\/K0 qtApp.Launch ' Start QuickTest51Testing软件测试网:|1JkSk,PZ
 qtApp.Visible = True ' Make the QuickTest application visible
B,SK"UE'W0 ' Set QuickTest run options
~'Crpx8a
F{0 qtApp.Options.Run.CaptureForTestResults = "OnError"51Testing软件测试网sc9t5h+o
b
 qtApp.Options.Run.RunMode = "Fast"51Testing软件测试网)}4PzH{1MA
 qtApp.Options.Run.ViewResults = False51Testing软件测试网&e%A%R(T|Y
        Set ōbjFSO = CreateObject("scrīpting.FileSystemObject") '创建文件系统目标51Testing软件测试网(s JF}F0k7aS
        Set ōbjFolder = objFSO.GetFolder(path1)  '取得指定文件夹51Testing软件测试网u\x XQ
for each subfolder in objFolder.SubFolders '将所有脚本执行一遍
q0f7mBA[
~0 qtApp.Open subfolder, False, False  ' 打开入口的测试脚本,可写，不保存51Testing软件测试网}6P:`/W#Hz9j^
        Set qtTest = qtApp.Test51Testing软件测试网]Mh6~:x
        qtTest.Settings.Run.OnError = "NextStep"  '错误处理机制为NextStep51Testing软件测试网KS1kf(l/[!v+fd
        Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")51Testing软件测试网)o[*or1Q+vl
        qtResultsOpt.ResultsLocation = subfolder&"\001"  '运行结果保存到临时文件夹001中51Testing软件测试网"pJmp hC w ~k
 qtTest.Run qtResultsOpt, True  
WVE vnnNN0Y0 qtTest.Close51Testing软件测试网/?&KTy0dr4x C[
 Set qtResultsOpt = Nothing ' Release the Run Results Options object51Testing软件测试网)N$Cu!k#o]0qS7~
 Set qtTest = Nothing ' Release the Test object51Testing软件测试网1S#Go%?%[]
next 51Testing软件测试网y g'G \3Q:G
 qtApp.quit
Q:qsj:L-?3?h+[0 Set qtApp = Nothing ' Release the Application object51Testing软件测试网rg{a0wrr0wON
End Function51Testing软件测试网g/|Oil&Ge?2C.Z(U

 51Testing软件测试网-kjs_fn d!F