QTP实例-一个批处理Test的脚本

TY0JX9_4f0一个批处理Test的脚本，很早以前看过的的代码，贴出来给需要的朋友参考下51Testing软件测试网'\/d
Y$|U_I

还是用txt来做配置文件的，呵呵，不推荐使用这种方法

参考下思路就好了51Testing软件测试网\sat4P&BY'~
W

51Testing软件测试网s$u8y1^$t y.n#I]r
Runlist.txt中写需要运行的Test列表

%D&AW9G%T]U?B g(d0
Y3f
F3x#\`t6Kb0On Error Resume Next51Testing软件测试网[Cf6H3d)^y
error.clear51Testing软件测试网3dzP;fn
zC%x8V
Dim qtApp51Testing软件测试网\X5Y$b+nnex3f\
Dim qtTest
_I%@ o$s
l @c0Dim qtResultsOpt
~-d9W!pi-F4h*A0Dim fso, MyFile,TestName
Cr
C6{K{0Const ForReading = 1, ForWriting = 251Testing软件测试网#it,I)v-s"JA

5v,e+Zmu?;Z0Set WshShell = CreateObject("Wscrīpt.Shell")
ZBOV#z'`d0WshShell.Popup "开始批量执行自动化测试脚本！", 3, "AutoTest", 0 + 6451Testing软件测试网5G'~qoQ8w"E

;v,x"b`3aqJ0Set qtApp = CreateObject("QuickTest.Application")
2nh;g(`y$}8q?0qtApp.Launch

z4ttzx8zq0qtApp.Visible = False51Testing软件测试网RD'`*B!y}P
qtApp.Options.Run.RunMode = "Fast"
y po,KteMZ0qtApp.Options.Run.ViewResults = False

Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网[xy7vgp5O&N
T
Set MyFile = fso.OpenTextFile(".\RunList.txt", ForReading, True)51Testing软件测试网*~,n$A{-A$Ug D&?O
Do While MyFile.AtEndOfStream <> True51Testing软件测试网:s9nQ-O'e}!c
        TestName = MyFile.ReadLine

        qtApp.Open TestName, True
9j*xF-N#_A`#Uv6z0        Set qtTest = qtApp.Test51Testing软件测试网;_rk$Cov~
        qtTest.Settings.Run.OnError = "Dialog"
6@ QJ(O#Nr0       
u7]\)q/V0        Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
J-p6_K)O0`!k0        qtResultsOpt.ResultsLocation = TestName &"\AutoRes"

        qtTest.Run qtResultsOpt, True51Testing软件测试网w[.BFW,`
        'qtTest.close51Testing软件测试网xgK;kU V
Loop

MyFile.Close51Testing软件测试网2f3[9FvJx
qtApp.Quit51Testing软件测试网tjh4y
VE;D2B%P5O

3}im u{0}8r4I0MsgBox "自动化测试脚本执行完毕！脚本测试结果存放在各自的AutoRes目录下，请用QTP result工具查看"

;PA8a HRi}]y&K0Set fso = Nothing
/b-n*X8?W.\4BY0Set qtResultsOpt = Nothing        
'c)n)l3kpZ&?\ ^9m
R3~0Set qtTest = Nothing       
.Kq%aU}0Set qtApp = Nothing
Z*a4_7JMB0zY8i0Set WshShell = Nothing51Testing软件测试网)tNfh:P

S(F!E*i }ZE051Testing软件测试网
]5Nar4Ut)|
RunList.txt保存Test路径，和这个vbs放在同一目录下

J `tz/f0格式就是51Testing软件测试网6h:@9|?9Y7d7gO

C:\autotest\Test1
&xGVQ{` \X Mi0C:\autotest\Test251Testing软件测试网syU5z.` x0s
C:\autotest\Test351Testing软件测试网AR_9\WJ