中科院软件测试视频教程03QTP自动化测试

夕阳西下°

lsekfe

夕阳西下° 发表于 2013-7-31 15:30

    支持下~

跑跑跑跑

哈哈，我看过了

helenhuoyy

收藏

lulu3

很好啊,按照这个步骤,我刚刚完成一个项目登录的测试脚本,唯一的差别就是错误提示是弹出框,我另加了一个if判读语句,都调试好了,,我把它发上来

Dim i                           '定义行号
Dim outputvalue     '定义读取系统的实际提示信息的变量
Dim  istatus             '定义读取预期提示信息的变量

For i=1 to datatable.GetSheet("login").getrowcount   '获得行数



Browser("登录到 NoteExpressWeb").Page("登录到 NoteExpressWeb").WebEdit("username").Click
wait(2)
Browser("登录到 NoteExpressWeb").Page("登录到 NoteExpressWeb").WebEdit("username").Set DataTable("username", dtLocalSheet)
wait(2)
Browser("登录到 NoteExpressWeb").Page("登录到 NoteExpressWeb").WebEdit("password").Click
wait(2)
Browser("登录到 NoteExpressWeb").Page("登录到 NoteExpressWeb").WebEdit("password").SetSecure DataTable("passworld", dtLocalSheet)
wait(2)
Browser("登录到 NoteExpressWeb").Page("登录到 NoteExpressWeb").WebElement("WebElement").Click
wait(2)

If  Window("Windows Internet Explorer").Dialog("来自网页的消息").Exist Then     '判断是否有弹出提示框
                Window("Windows Internet Explorer").Dialog("来自网页的消息").Static("请填写用户名！").Output CheckPoint("请填写用户名！") '插入弹出框文本的输出点
        outputvalue = datatable("outmsg",dtlocalsheet)   ''将实际输出值赋于变量outputvalue
        istatus = datatable("status",dtlocalsheet)          '将预期输出值赋于变量istatus
        If outputvalue<>istatus Then
            reporter.ReportEvent micFail,"登录功能测试","预期值为: "& istatus & "实际值为:" & outputvalue
        End If
        datatable.GetSheet("login").setnextrow  '获取login中的下一行数据
    Window("Windows Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
End If

Next

Browser("登录到 NoteExpressWeb").Page("我的题录").WebElement("题录").Click
wait(2)
Browser("登录到 NoteExpressWeb").Page("我的题录").WebElement("题录").Click
wait(2)
Browser("登录到 NoteExpressWeb").Page("我的题录").Link("注销").Click