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

上接http://www.51testing.com/index.php?uid-287227-action-viewspace-itemid-219450

4、’验证loginCase文档中login_004至login_009

For i=2 to 751Testing软件测试网_-{eB9mk

        ‘读取data中，login的数据

        Dim username,password,expected51Testing软件测试网(^9P
J6K"x

        username=ReadExcelCell(dataPath, "login", i, 1)51Testing软件测试网SmD5HFd

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

        expected=ReadExcelCell(dataPath,"login",i,3)51Testing软件测试网:Y8MM;O*t8u`

‘执行登录操作，将读取到的username参数化给下面的数据51Testing软件测试网+Tz;bF2o

        Browser("Browser").Page("在线考试系统").Frame("main").WebEdit("username").Set username51Testing软件测试网 `Kg MiL4h

        Browser("Browser").Page("在线考试系统").Frame("main").WebEdit("pwd").Set password51Testing软件测试网P*NnzYD1X4k ~

        Browser("Browser").Page("在线考试系统").Frame("main").WebButton("登 录").Click51Testing软件测试网'J)Rt|8ig4[$] C}

        ‘判断登录是否成功的文本字符51Testing软件测试网Xchd:e5s;XG:M

        popok=Browser("Browser").Page("在线考试系统").Frame("left").WebElement("考生姓名：123状   态：已登录").Exist(3)

        popno=Browser("Browser").Page("在线考试系统").Frame("main_2").WebElement("操作失败").Exist(3)51Testing软件测试网w&mm9Y WD2M+{Y

        ‘依据期望结果进行判断

  If expected="ok" Then51Testing软件测试网$^8|+Nu
n7CjO

                  If popok Then51Testing软件测试网5SRf {J_"iS

                    '将数据源中的期待结果写为pass51Testing软件测试网\c c.A[ pF'O

                           Write_Excel dataPath,"login",i,"D","Pass"51Testing软件测试网J4A!?vly0WvJ|

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

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

                           '返回登录界面，执行下一轮数据的操作51Testing软件测试网 VJ@o Y2{{6^ ]c Q

                           Browser("Browser").Page("在线考试系统").Frame("top").Link("【注销登录】").Click51Testing软件测试网V%z1dL%M-P? OB!?

                           Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("确定").Click

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

                  else51Testing软件测试网+jM7bX8BEL#R

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

                           QTP_Capture capturePath,"login_"&i+3

                          '将数据源中的期待结果写为fail51Testing软件测试网 j!s;o5AP;YQ7Y

                           Write_Excel dataPath,"login",i,"D","Fail"

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

                            '将此结果在测试用例中进行体现51Testing软件测试网#k1s^3|#Qt,Oay

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

                           Write_Excel casePath,"login",i+3,"E","正确用户名和密码登录失败"51Testing软件测试网G FJ'SC4o?.C7f

                           '出错后，重新进入登录界面51Testing软件测试网QKL-Q-r5v

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

                  End If51Testing软件测试网#p.R {O BuD7G3Q.A't

        else51Testing软件测试网{bh#vQ
kC0["f

                  If popno Then

                           'msgbox "no"

                           '将数据源中的期待结果写为pass51Testing软件测试网~4I(op8_,V&m

                           Write_Excel dataPath,"login",i,"D","Pass"51Testing软件测试网,CZ2L9J_

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

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

                           ‘pass后返回登录界面，继续执行下一轮操作

                           Browser("Browser").Page("在线考试系统").Frame("main_2").WebButton("返回上一页").Click51Testing软件测试网~]C!tFx!Zpt

                  elseif popok then

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

                     QTP_Capture capturePath,"login_"&i+351Testing软件测试网S$u.cp,\"Sa ZA]T

                           51Testing软件测试网O6H q6u&ea0A:d

                     '将数据源中的期待结果写为fail51Testing软件测试网j:?'aF/R%p9prTt

                           Write_Excel dataPath,"login",i,"E","错误用户名或密码，登录成功"51Testing软件测试网*Z+B{(}
B.p

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

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

 51Testing软件测试网3P+M5GR'ax

                           '返回登录界面，继续验证相关数据51Testing软件测试网4\PWB'N"eJml

                           Browser("Browser").Page("在线考试系统").Frame("top").Link("【注销登录】").Click51Testing软件测试网5Z'vhG?6N;_f[

                           Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("确定").Click

                           Browser("Browser").Page("在线考试系统").Frame("top").Link("【登录系统】").Click51Testing软件测试网[A'Y7l9m
V
H/I

                  else51Testing软件测试网lm9I&\Q7O*T

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

                           QTP_Capture capturePath,"login_"&i+3

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

                           Write_Excel dataPath,"login",i,"D","Fail"51Testing软件测试网ut$rq!g

                       Write_Excel dataPath,"login",i,"E","错误数据，但提示语不正确"51Testing软件测试网(]Pz*l1u%~ ZvmF.J

 51Testing软件测试网%sM*DDVlmL

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

                           Write_Excel casePath,"login",i+3,"D","Fail"51Testing软件测试网Cz6QG-U*y b

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

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

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

                  End If

 End If51Testing软件测试网4~;R W3w6r]H8v

Next

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

'执行完之后，关闭网页

Browser("Browser").Close51Testing软件测试网5mY XDt&N1}
Bg

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

Dim Body '邮件的内容51Testing软件测试网%\D
N7M/vU1RG;P

Dim sendto'收件人的地址

Dim subject '邮件主题

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

sendto="wen.qingshan@byd.com"51Testing软件测试网Q G9dT#KP.|/r

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

SendMail sendto,subject, Body, casePath51Testing软件测试网A'C6~k}H ^

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

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

 51Testing软件测试网d$_aP8J*S3m

作者：文青山

2010-8-30