QTP自动化测试

4uWI#kp T?z4AG;rn0*******QTP自动化测试演示例程--QTP自带飞机订票系统，下面的代码用以实现登录测试，代码还有不足例如没有考虑用户名密码不正确登录成功的验证**********51Testing软件测试网
_g&c1E"y%ro1H4BeN

Call OpenFlight() 'main function
9xqU}P,XZwNb0Function OpenFlight()51Testing软件测试网$O&Px!o\an
  systemutil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"51Testing软件测试网H H yB#jUfb
        DataTable.GetSheet( "E:\qtp_test\testcase.xls")   '导入用例
`-S`kCh!@!O8V1L%^0  j=DataTable.GetRowCount   '获取用例数51Testing软件测试网M#LO7@G%Yb}
  'msgbox j51Testing软件测试网_MrF7]#Q+n
  For i=1 to j
1c
P`ce8G+NgG0   usename=DataTable.value("usename")
A4p1rMzK:H0   password=DataTable.value("password")
'P(T"|:q N2BoFhI0   expectmsg=DataTable.Value("expectresult") '期望结果
o y#_uO/R a0       
X0BT_
U({4\(w0   Dialog("Login").WinEdit("Agent Name:").Set usename51Testing软件测试网(o;LGpPx4vT[
   Dialog("Login").WinEdit("Password:").Set  password51Testing软件测试网 oQH!u$m SCK
   Dialog("Login").WinButton("OK").Click51Testing软件测试网Zh3rr"P,o G8L7b

8L%W*wX"A0   If  dialog("Login").Dialog("Flight Reservations").Exist(5)Then  '有错误信息提示显示框
%G,j?1K XSZ"F\A%n0    dialog("Login").Dialog("Flight Reservations").CaptureBitmap "E:\qtp_test\testpic"&i&".png"  '抓取图片
8U V^ t;dpbZ0    actualmsg=dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").GetROProperty("text")  '获取错误信息
$g6T$Pt:Qmv2G%^0       If (actualmsg=expectmsg)Then   '比较实际结果与期望结果51Testing软件测试网3f9pA2~1wa4wVB~
        msg="第"&i&"条用例-----------Success---------"&actualmsg
*R2M$q8BeZ pI0        Call WriteToFile(msg) '写日志
#u/M E5P/F!fxzy0       else
5lr DF7Ib0        msg="第"&i&"条用例-----------Failed------------,预期结果是："&expectmsg&",实际结果是："&actualmsg
~-gY^]
pLr6Y
j0        DataTable.ExportSheet("E:\qtp_test\testcase.xls","actualresult")=result '将执行实际结果些到用例表中51Testing软件测试网o3i#A(`
]\PVF
        Call WriteToFile(msg)
#f4O w9x~.U/x0       End If
O8O m6kd-w3m0    
@I0ix)_e$poy0    dialog("Login").dialog("Flight Reservations").WinButton("确定").Click  '单击提示信息框确定按钮
wH/h9r9E"lw0    else
;w$Iz8e9s0    window("Flight Reservation").Close   '  关闭订票窗口
RqE/g7zY;p)ncg*x0   End If
2c[:h9~C tbgH-y^0   datatable.SetNextRow51Testing软件测试网_/o/sU
V
  Next51Testing软件测试网#G9O]Hr^
End Function
K0q:S;E[_0'x写日志代码
yK*J!nb*x0Function WriteToFile(result)
Ih3FSY5Nf'sK0   Const  ForWriting = 2,forappending=8
H.kX/Ty-r/Sz4{e0   Dim fso, f51Testing软件测试网*V(z0ex"C5pe
   Set fso = CreateObject("Scripting.FileSystemObject")
~"X*^Ope l3mJ
o0   Set f = fso.OpenTextFile("E:\qtp_test\testlog.txt", forappending, True)
(Z*S}/eEg0   f.Writeline (date() & " " & hour(now) & ":" & minute(now) & ":" & second(now) & ": " & result)
'V\ b7v4ujL0   f.Close
/a5jb{8w1[0End Function51Testing软件测试网i1\'e[d4vG._L

jJ\zS+JjK/O \l0目前还在学习中，只是个人练习而已，请高手指点，在以后的工作中会继续努力。51Testing软件测试网 q;P;b4n5oNa&}H8X

 51Testing软件测试网n"k{
q
I7m

KF7[ aroa0 51Testing软件测试网8rhJMZ"g s
wH

JleI `u0 

Jn5GuXPe0 

7A%IH-f.O/j1Pnn0 

^1U~)ur}gC"h0 51Testing软件测试网 I,i&j#P3} L

 51Testing软件测试网AB&ZW!Q&R

0I9}
GKVe:^ kc^0 

B)rhFN
{!V6?#S(z0
#\FX0{ y%v3u*H3Q0