51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3344|回复: 4
打印 上一主题 下一主题

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

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2013-7-31 15:30:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1
回复

使用道具 举报

  • TA的每日心情
    无聊
    3 天前
  • 签到天数: 1050 天

    连续签到: 1 天

    [LV.10]测试总司令

    2#
    发表于 2013-8-1 09:30:24 | 只看该作者
    夕阳西下° 发表于 2013-7-31 15:30



        支持下~
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
    发表于 2013-8-1 09:41:31 | 只看该作者
    哈哈,我看过了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
    发表于 2013-8-1 16:31:24 | 只看该作者
    收藏
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2017-1-5 13:46
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    5#
    发表于 2013-8-13 17:20:02 | 只看该作者
    本帖最后由 lulu3 于 2013-8-13 17:21 编辑

    很好啊,按照这个步骤,我刚刚完成一个项目登录的测试脚本,唯一的差别就是错误提示是弹出框,我另加了一个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
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-24 05:37 , Processed in 0.075760 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表