基于Web的QTP研究

  看到网上有许多关于QTP自动化测试的文章，恰好我的毕业设计就是这个方向，所以和大家探讨探讨。51Testing软件测试网/{pF5k#BVp(x*tl

Tr&\FOQe.`)S6i0Dim i'定义循环变量51Testing软件测试网$@ y_6Y)Ku8~M
Dim expa'定义预期输出值
k?9P]1t:PM0Dim fact'定义实际输出值51Testing软件测试网.~3d6w8T_a3Gf-W0z

For i=1to datatable.GetSheet("Action1_1").getrowcount'读取本地表中的数据

Browser("Web Tours").Page("Web Tours").Frame("navbar").WebEdit("username").Set DataTable("username", dtLocalSheet)
n.S.aso5ukp2h0Browser("Web Tours").Page("Web Tours").Frame("navbar").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
/TWW^v"FT }0Browser("Web Tours").Page("Web Tours").Frame("navbar").Image("Login").Click 12,12
?"Fp/o(Fx0Browser("Web Tours").Page("Web Tours").Frame("info").WebElement("Web Tours Error - Incorrect Password").Output CheckPoint("Web Tours Error - Incorrect Password")

g]6_%[c1s0expa=datatable("expect",dtlocalsheet)'将设置好的预期值赋予expa51Testing软件测试网 }5x/P jVa-O&Y
fact=datatable("outmsg",dtlocalsheet)'将设置好的预期值赋予fact
!XS\$i(Hm-x4A`-x0If expa<>fact Then
^}YWc2GXC0 reporter.ReportEvent 1,"登陆功能测试","预期值为："+expa+"实际值为："+fact51Testing软件测试网?y X&Z~
End If51Testing软件测试网"m-I1}6yU1v"PD

a0h"g1MHe0datatable.GetSheet("Action1_1").setnextrow51Testing软件测试网3KRQ5m9mU;b E$I8b%z
Next51Testing软件测试网OF8C
f;LKL
上边是预期错误的用户名登录测试的脚本

%zl3I)i j,w(~-YhD^0下边是预期正确的用户名登录测试的脚本51Testing软件测试网Q
SdJ'G$O

-A `D jd(Y0           以上两种情况密码输入的都是正确的密码。

Dim i'定义循环变量51Testing软件测试网%|bF+\[!GU
Dim expa'定义预期输出值
'R.t;p
C_8~r\`-O0Dim fact'定义实际输出值51Testing软件测试网@tOz]h
Dim name151Testing软件测试网q sq&i;L(|
'DataTable.ImportSheet "D:\project\testData\Sign_On Sign_Off\User Name Verification Date.xls" ,2 ,"Action1_2"51Testing软件测试网LB+j/NCy? i,_
For i=1to datatable.GetSheet("Action1_2").getrowcount'读取本地表中的数据
H2v0K6VN%dD2G0 name1=datatable("expect",dtlocalsheet)51Testing软件测试网Qpi6Wt&my3{O7L
Browser("Web Tours").Page("Web Tours").Frame("navbar").WebEdit("username").Set DataTable("username", dtLocalSheet)
2t2KK^&tA6Tv)m0Browser("Web Tours").Page("Web Tours").Frame("navbar").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)51Testing软件测试网 ~d|l` \ ^b]
Browser("Web Tours").Page("Web Tours").Frame("navbar").Image("Login").Click 28,1051Testing软件测试网C'c%`H%TM
Browser("Web Tours").Page("Web Tours").Frame("info_2").WebElement("admin").Output CheckPoint("admin")51Testing软件测试网@@nn7f o
Browser("Web Tours").Page("Web Tours").Frame("navbar").Image("SignOff Button").Click
uB3qqX Yi1D!b0expa=datatable("expect",dtlocalsheet)'将设置好的预期值赋予expa
0e9ZK ?xL5X0fact=datatable("outmsg",dtlocalsheet)'将设置好的预期值赋予fact51Testing软件测试网1UDt hRc`^;O
If expa<>fact Then
T,ih.YuB&V8K0 reporter.ReportEvent 1,"登陆功能测试","预期值为："+expa+"实际值为："+fact
BD3V;H6_DA1XSM \-K0End If

y8R!_K%h9fZ2M0datatable.GetSheet("Action1_2").setnextrow
d,cK"u3g? r/FE0Next
e7uqe'q_y0Browser("Web Tours").Page("Web Tours").Sync51Testing软件测试网2Kg l n-b}3z{IF
Browser("Web Tours").Close51Testing软件测试网8`g2?-|NjdI

这个是我录制LR自带网站的一段脚本，主要测的是登陆功能中用户的验证51Testing软件测试网"i5aB1n5A

这两段代码跑起来都是有问题的，当然少量测试数据的话有可能是正确的。

请大家多多指教！！51Testing软件测试网9P ]N \#Q,bNv

多多找问题！！51Testing软件测试网M |hQ[)~ U%f3`J