我是如何使用QTP去测试的(三)

上接http://www.51testing.com/index.php?uid-287227-action-viewspace-itemid-21945051Testing软件测试网nu0|S2Y

4、’验证loginCase文档中login_004至login_00951Testing软件测试网9?w$t){E

For i=2 to 7

        ‘读取data中，login的数据

        Dim username,password,expected

        username=ReadExcelCell(dataPath, "login", i, 1)

        password=ReadExcelCell(dataPath, "login", i, 2)

        expected=ReadExcelCell(dataPath,"login",i,3)

‘执行登录操作，将读取到的username参数化给下面的数据51Testing软件测试网-S{/c|5P)p%I9YX

        Browser("Browser").Page("在线考试系统").Frame("main").WebEdit("username").Set username

        Browser("Browser").Page("在线考试系统").Frame("main").WebEdit("pwd").Set password

        Browser("Browser").Page("在线考试系统").Frame("main").WebButton("登 录").Click51Testing软件测试网2Q:{*t;jc"w:kcn~

        ‘判断登录是否成功的文本字符51Testing软件测试网 ?1Y5h^(}.c P

        popok=Browser("Browser").Page("在线考试系统").Frame("left").WebElement("考生姓名：123状   态：已登录").Exist(3)51Testing软件测试网sM*Q}$A5F.U0}2i

        popno=Browser("Browser").Page("在线考试系统").Frame("main_2").WebElement("操作失败").Exist(3)

        ‘依据期望结果进行判断

  If expected="ok" Then51Testing软件测试网7z;MC8`;X7y@

                  If popok Then

                    '将数据源中的期待结果写为pass51Testing软件测试网e\A"g[$@5~ s%B

                           Write_Excel dataPath,"login",i,"D","Pass"51Testing软件测试网1Gw%o7eX-[2m

                           '将此结果在测试用例中进行体现51Testing软件测试网!}#j+tsS)F} cT4tm7gI6G

                           Write_Excel casePath,"login",i+3,"D","Pass"

                           '返回登录界面，执行下一轮数据的操作

                           Browser("Browser").Page("在线考试系统").Frame("top").Link("【注销登录】").Click51Testing软件测试网\i`mE s V(nG

                           Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("确定").Click51Testing软件测试网5Ysp b#z(U

                           Browser("Browser").Page("在线考试系统").Frame("top").Link("【登录系统】").Click

                  else51Testing软件测试网4Wq9GFH`~W1_

                            '如果出现错误，则截图并保存到指定文件夹中51Testing软件测试网g6ceZV_8W3U

                           QTP_Capture capturePath,"login_"&i+351Testing软件测试网/l2p2j q6M2k

                          '将数据源中的期待结果写为fail51Testing软件测试网^`#`(} [I;K

                           Write_Excel dataPath,"login",i,"D","Fail"51Testing软件测试网Br,E
F7[2z:G-QUY

                          Write_Excel dataPath,"login",i,"E","正确用户名和密码登录失败"

 51Testing软件测试网a'b5KOyV"p)[2u aL

                            '将此结果在测试用例中进行体现51Testing软件测试网'y5@/g,]%s)k~:fo[

                           Write_Excel casePath,"login",i+3,"D","Fail"51Testing软件测试网:t)cH^ P
G&N

                           Write_Excel casePath,"login",i+3,"E","正确用户名和密码登录失败"51Testing软件测试网/Yfyf$R~h){6~~1r

 51Testing软件测试网;e1[-S'` hYT6O

                           '出错后，重新进入登录界面

                           Browser("Browser").Page("在线考试系统").Frame("top").Link("【登录系统】").Click51Testing软件测试网0t3g9s.sR8sG^

                  End If51Testing软件测试网K]%kp&RRis7kl_z

        else

                  If popno Then

                           'msgbox "no"51Testing软件测试网L*met6@KA

                           '将数据源中的期待结果写为pass51Testing软件测试网$f o]f(|9itTAg

                           Write_Excel dataPath,"login",i,"D","Pass"51Testing软件测试网tn
J!mJ#D3dN/`

                            '将此结果在测试用例中进行体现51Testing软件测试网a`r@P1z {-S? F

                           Write_Excel casePath,"login",i+3,"D","Pass"51Testing软件测试网Jo:u/y+sl*^9~'?L

                           ‘pass后返回登录界面，继续执行下一轮操作51Testing软件测试网$c+D)t\6A UX

                           Browser("Browser").Page("在线考试系统").Frame("main_2").WebButton("返回上一页").Click51Testing软件测试网:{1f*lDJ3\ I

                  elseif popok then

                            '如果出现错误，则截图并保存到指定文件夹中51Testing软件测试网;z9v:E\\?0p:C(WmZ

                     QTP_Capture capturePath,"login_"&i+351Testing软件测试网RL9wNQj

                           51Testing软件测试网 C0L)?3{ez-XR

                     '将数据源中的期待结果写为fail51Testing软件测试网 z;A*x f.d6F L+e

                           Write_Excel dataPath,"login",i,"E","错误用户名或密码，登录成功"51Testing软件测试网tcHH |7P

                           51Testing软件测试网/X ^/r1fW&gP4k

                           ' '将此结果在测试用例中进行体现

                           Write_Excel casePath,"login",i+3,"E","错误用户名或密码，登录成功"

 51Testing软件测试网$u O,ed\\,C4|

                           '返回登录界面，继续验证相关数据51Testing软件测试网6ivMAtO+P/V/J2u

                           Browser("Browser").Page("在线考试系统").Frame("top").Link("【注销登录】").Click

                           Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("确定").Click51Testing软件测试网!|oqQ7[(}

                           Browser("Browser").Page("在线考试系统").Frame("top").Link("【登录系统】").Click51Testing软件测试网0a^2kF0X+w-x.tK/k

                  else51Testing软件测试网xu^M)b

                            '如果出现错误，则截图并保存到指定文件夹中

                           QTP_Capture capturePath,"login_"&i+351Testing软件测试网-_,c+M.bp

                           '将数据源中的期待结果写为fail

                           Write_Excel dataPath,"login",i,"D","Fail"51Testing软件测试网Z4`EV8b(c*G

                       Write_Excel dataPath,"login",i,"E","错误数据，但提示语不正确"

                            '将此结果在测试用例中进行体现51Testing软件测试网a4x_8rt1})u&E"l

                           Write_Excel casePath,"login",i+3,"D","Fail"51Testing软件测试网aY8D%|^4c

                           Write_Excel casePath,"login",i+3,"E","错误数据，但提示语不正确"51Testing软件测试网1ODySs%wR+h w-W

                           '出错后，重新进入登录界面51Testing软件测试网.yw-D8YNP{
v

                           Browser("Browser").Page("在线考试系统").Frame("top").Link("【登录系统】").Click51Testing软件测试网,?'X6{Xf7Z

                  End If51Testing软件测试网VC)Y.yB*Z*s#O

 End If51Testing软件测试网lj0AD$j6PO#h2kkna

Next

D、执行脚本后，关闭网页和发送相关文档到相关人员的邮箱之中

'执行完之后，关闭网页51Testing软件测试网l1m/A@[

Browser("Browser").Close

 51Testing软件测试网 } wvV| t0@

'执行完此模块的测试后，将测试结果发送到指定的邮件之中

Dim Body '邮件的内容51Testing软件测试网|].xJ0fr;?0n-p6p]T%N

Dim sendto'收件人的地址

Dim subject '邮件主题51Testing软件测试网&^2O:l$@,Fw,mL&?4D Y

Body="Hi:"&vbCrLf&"此文件为本次自动化测试的Case结果。请查收！谢谢!"&vbCrLf&vbCrLf&"from qwen"&vbCrLf&Now()

sendto="wen.qingshan@byd.com"51Testing软件测试网OpR2bQ6cZ

subject=now()&"自动化测试的结果"

SendMail sendto,subject, Body, casePath51Testing软件测试网p
f8Le]1al$pE

一直以来不清楚大家是怎么去使用QTP测试的，甚至也不太清楚我这么去做是否能称得上算一个QTP的框架，不过我就是这样使用QTP去做测试的。最后，十分感谢您能够有耐心地看到这里，谢谢。51Testing软件测试网$I$u*Vsb2T{

另外，不知道是不是因为51这个发表日志框将回车后剩余的空格也认成字符了， 一次发表所有内容老被截断，这点挺另人晕的.

 51Testing软件测试网!b'UQ^.@L*N(I1L

作者：文青山

2010-8-30