首页 | 互联网 | IT动态 | IT培训 | Cisco | Windows | Linux | Java | .Net | Oracle | 软件测试 | C/C++ | 嵌入式开发 | 存储世界 | 服务器
网络设备 | IDC | 安全 | 求职招聘 | 数字网校 | 网页设计 | 平面设计 | 技术专题 | 电子书下载 | 教学视频 | 源码下载 | 搜索 | 博客 | 论坛
中国IT实验室软件测试频道
Google
首页 资讯动态 测试技术 测试工具 行业软件测试 测试管理 测试下载 经验分享 软件质量 其他技术 RSS订阅 博客 论坛
您现在的位置: 中国IT实验室 >> 软件测试 >> 测试工具 >> Robot >> 正文

用Robot实现登陆界面的压力测试

        压力测试脚本:进行压力测试时候,同样是大数据量(100个用户)时,但是我的脚本设置改变为第一个模拟用户登陆成功后,没有退出系统,然后第二个用户登陆,如此循环100次。
         '$Include "SQAUTIL.SBH"
        Sub Main
             Dim Result As Integer
             dim i as integer
             dim username as string
             dim pwd as string
             dim dp as long
             'Initially Recorded: 2005-12-19  17:34:27
             'scrīpt Name: 5
             Window SetContext, "Class=Shell_TrayWnd", ""
             TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
             StartApplication """F:\GPS 0.1test\gps\GpsClent.exe"""
             dp=SQADatapoolOpen("login")
             for i=1 to 100
             Call SQADatapoolFetch(dp)
             Call SQADatapoolValue(dp,1,username)
             Call SQADatapoolValue(dp,2,pwd)
             Window SetContext, "Caption=监控端", ""
             Window Click, "", "Coords=30,-13"
             PopupMenuSelect "登陆"
             Window SetContext, "Caption=登录", ""
             InputKeys username
             EditBox Click, "ObjectIndex=2", "Coords=13,8"
             InputKeys pwd
             Window SetContext, "Class=Shell_TrayWnd", ""
             TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""
             Result = WindowVP (CompareNumeric, "Caption=登录", "VP=Alphanumeric;Value=0")
             Window SetContext, "Caption=登录", ""
             PushButton Click, "Text=确定"
             next
             Call SQADatapoolClose(dp)
             Window SetContext, "Caption=监控端", ""
             Window Click, "", "Coords=35,-16"
             PopupMenuSelect "退出登陆"
             Window Click, "", "Coords=29,-12"
             PopupMenuSelect "退出"
             Window SetContext, "Class=Shell_TrayWnd", ""
             TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""
         End Sub

【责编:michael】

中国IT教育

相关产品和培训
文章评论
 专题推荐

 ·建立可全面监控Squid代理服务器
 ·华为认证题库、模拟器下载专题
 ·嵌入式操作系统Linux资料下载(A)
 ·JAVA的应用编程接口——JAVA API详解…
 ·Linux Shell学习技术专题[上]…
 ·windows Server 2008专区…
 ·WEB开发ASP.NET和PHP、JSP究竟学哪个
 ·五步带你入门XML
 ·零距离接触OCP_Oracle认证体系全攻略
 ·揭秘:网络工程师职业发展路线图
 最近更新
 博客论点
 频道精选
 软件测试频道导航