51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1673|回复: 3
打印 上一主题 下一主题

[原创] Action脚本怎么用function实现以及Sub

[复制链接]
  • TA的每日心情
    奋斗
    2015-3-30 15:24
  • 签到天数: 3 天

    连续签到: 1 天

    [LV.2]测试排长

    跳转到指定楼层
    1#
    发表于 2013-7-1 14:02:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    '-------------------脚本说明---------------
    '产品版本BPM(V1.0)
    '测试员:Anna
    '编写日期:2013-05-17
    '测试功能:登陆
    '脚本类型:VBS
    '被测试对象初始状态:
    '进展程度:第一阶段
    '--------------------脚本内容-------------

    '通过读取Excel数据登录系统
    Dim i,rowcount,filepath
    filepath = "d:\data\login.xls"
    datatable.AddSheet("TestData")
    datatable.ImportSheet filepath,"Sheet1","TestData"
    rowcount = datatable.GetSheet("TestData").GetRowCount

    'Function getExcelDataInfo(filepath,rowcount,DataTable)
    '        DataTable.AddSheet("TestData")
    '        DataTable.ImportSheet filepath,"Sheet1","TestData"
    '        rowcount = datatable.GetSheet("TestData").GetRowCount
    'End Function

    With Browser("业务流程管理系统登录页面")
            For i = 1 to rowcount
                    datatable.SetCurrentRow i
                    UserName = datatable("username","TestData")
                    PassWord = datatable("password","TestData")
                    With .Page("业务流程管理系统登录页面")
                            .WebElement("html id:=bu").Click'请输入用户名
                            .WebEdit("name:=txt_Username","html id:=txt_Username").Set UserName'用户名
                            wait 3
                            .WebElement("html id:=bp").Click'请输入密码
                            .WebEdit("name:=txt_Password","html id:=txt_Password").SetSecure PassWord'密码
                            wait 3
                            .WebButton("登   录").Click
                    End With
                    wait 2
                    With .Dialog("来自网页的消息")
                            If .WinButton("确定").Exist(7) Then
                                    Reporter.ReportEvent micPass,"登录失败","Display"
                                    .WinButton("确定").Click
                            ELSE
                                    Reporter.ReportEvent micPass,"登陆成功","pass"
                            End If
                    End With
                    datatable.SetNextRow '下一行
                    If datatable.GetCurrentRow > rowcount then  '如果当前行大于总行数,退出循环
                            Exit for
                    End If
            Next
            RunAction"创建设备",onelteration
    End With
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

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

    连续签到: 1 天

    [LV.10]测试总司令

    2#
    发表于 2013-7-2 09:53:10 | 只看该作者
    支持LZ的分享~
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    3#
    发表于 2013-7-4 14:29:39 | 只看该作者
    回复 1# fsweicaixia


        写的不错,登录可以再用个Function封装一下
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2015-3-30 15:24
  • 签到天数: 3 天

    连续签到: 1 天

    [LV.2]测试排长

    4#
     楼主| 发表于 2013-7-5 16:25:21 | 只看该作者
    是的 现在就是不会封装成function或sub

    帖子的标题就是:Action脚本怎么用function实现以及Sub
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-24 04:48 , Processed in 0.072563 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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