设为首页收藏本站
开启辅助访问 软件测试门户软件测试培训软件测试论坛测试解决方案文章资料精选软件测试博客软件测试招聘

51Testing软件测试论坛

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

QQ登录

只需一步，快速开始

微信登录，快人一步

手机号码，快捷登录

51Testing软件测试论坛 »软件测试论坛 › [管理工具] › [自动化测试工具及框架] › 一个测试用户名及密码的登录小程序，请大家指教
返回列表 发新帖
查看: 4035|回复: 8
打印 上一主题 下一主题

[Robot] 一个测试用户名及密码的登录小程序，请大家指教

[复制链接]
ni_xh

该用户从未签到
跳转到指定楼层
1#
发表于 2006-1-13 17:44:58 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
用到了datapool


'$Include "sqautil.sbh"

Sub Main

    Dim Result As Integer
   
    Dim dp_id as Long

    Dim dp_Result as Long
   
    Dim strName as String

    Dim strPassWord as String

    'Initially Recorded: 2006-1-13  14:26:45
    'Script Name: login
   
    StartApplication """XXXXX"""
   
    dp_id = SQADatapoolOpen ("dp", FALSE, SQA_DP_SEQUENTIAL, FALSE)
   

    dp_Result = SQADatapoolFetch (dp_id)


     while dp_Result <>  sqaDpEOF

   
           dp_Result = SQADatapoolValue (dp_id, "name", strName)

           dp_Result = SQADatapoolValue (dp_id, "password", strPassWord)

           dp_Result = SQADatapoolFetch (dp_id)
         
     
    EditBox Click, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_userName;\;Type=EditBox;Index=0", "Coords=23,2"
    '输入用户名     
    InputKeys strName
   
    EditBox Click, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_password;\;Type=EditBox;Index=0", "Coords=49,0"
    '输入用户密码   
InputKeys strPassWord
   
    GenericObject Click, "Type=Form;Name=FrmLogin;\;Type=Control;Name=btn_login", "Coords=57,17"
     
    Window SetContext, "Type=Form;Name=MainForm;VisualText=新港信息系统", ""
   
    Window SetContext, "Type=Form;Name=MainForm", ""
   
  '验证是否成功登录
     Result = RegionVP (CompareImage, "", "VP=Region Image;Wait=2,30;Coords=205,392,574,561")
   
    if result = 1 then
   
        '如果成功登录，注销用户，清除用户名及密码     
   GenericObject Click, "Type=Form;Name=MainForm;\;Type=Control;Index=8;\;Type=Control;Index=0", "Coords=24,11"
   
        Window SetContext, "Class=WindowsForms.Window.808", "Activate=0"
        GenericObject Click, "Class=WindowsForms.Window.8;ClassIndex=1", "Coords=46,28"
   
        Window SetContext, "Type=Form;Name=FrmLogin", ""
        EditBox Left_Drag, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_userName;\;Type=EditBox;Index=0", "Coords=45,9,-63,9"
        InputKeys "{BKSP}"
        EditBox Left_Drag, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_password;\;Type=EditBox;Index=0", "Coords=47,8,-10,8"
        InputKeys "{BKSP}"
        EditBox Click, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_userName;\;Type=EditBox;Index=0", "Coords=7,10"
  
    else
        '如果用户名、密码错误，无法登录，直接清除用户名及密码   
     Window SetContext, "Type=Form;Name=FrmLogin", ""
        EditBox Left_Drag, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_userName;\;Type=EditBox;Index=0", "Coords=100,9,-70,9"
        InputKeys "{BKSP}"
        EditBox Left_Drag, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_password;\;Type=EditBox;Index=0", "Coords=100,8,-70,8"
        InputKeys "{BKSP}"
        EditBox Click, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_userName;\;Type=EditBox;Index=0", "Coords=7,10"
   
   end if
   
   wend

   dp_Result = SQADatapoolClose (dp_id)
End Sub
密码, 用户名, 用户名, 程序
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
微信
收藏收藏

相关帖子

【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！
回复

使用道具 举报

ilovejolly

该用户从未签到
2#
发表于 2006-1-13 20:25:41 | 只看该作者
无法登陆后面应该接着处理，可以直接跳转到再取datapool下一条记录。
脚本里少了最重要的步骤，写log，没有log的脚本对我们是没有价值的。
作为一个完整的脚本，对dp_Result可以每取一次判断一下。

btw，是什么语言开发的winform，怎么那么多控件不认识的，居然连btn都不认识。
回复 支持 反对

使用道具 举报

ni_xh

该用户从未签到
3#
 楼主| 发表于 2006-1-16 10:46:38 | 只看该作者
原帖由 ilovejolly 于 2006-1-13 20:25 发表


btw，是什 ...



.net开发的。
【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！
回复 支持 反对

使用道具 举报

ni_xh

该用户从未签到
4#
 楼主| 发表于 2006-1-16 10:52:38 | 只看该作者

增加了几条日志信息

'$Include "sqautil.sbh"



Sub Main

    Dim Result As Integer
   
    Dim dp_id as Long

    Dim dp_Result as Long
   
    Dim strName as String

    Dim strPassWord as String

    'Initially Recorded: 2006-1-13  14:26:45
    'Script Name: login
    sqalogmessage sqanone,"启动应用程序",""
   
    StartApplication """D:\Program Files\plt\OilportSetup\oilport.exe"""
   
    dp_id = SQADatapoolOpen ("dp", FALSE, SQA_DP_SEQUENTIAL, FALSE)
   

    dp_Result = SQADatapoolFetch (dp_id)


     while dp_Result <>  sqaDpEOF

   
           dp_Result = SQADatapoolValue (dp_id, "name", strName)

           dp_Result = SQADatapoolValue (dp_id, "password", strPassWord)

           dp_Result = SQADatapoolFetch (dp_id)
         
     
    EditBox Click, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_userName;\;Type=EditBox;Index=0", "Coords=23,2"
     '输入用户名     
    InputKeys strName
   
    EditBox Click, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_password;\;Type=EditBox;Index=0", "Coords=49,0"
    '输入用户密码
    InputKeys strPassWord
   
    GenericObject Click, "Type=Form;Name=FrmLogin;\;Type=Control;Name=btn_login", "Coords=57,17"
     
    Window SetContext, "Type=Form;Name=MainForm;VisualText=新港信息系统", ""
   
    Window SetContext, "Type=Form;Name=MainForm", ""
   
   '验证是否成功登录
     Result = RegionVP (CompareImage, "", "VP=Region Image;Wait=2,30;Coords=205,392,574,561")
   
    if result = 1 then
   
        '如果成功登录，注销用户，清除用户名及密码，取datapool的下一条数据
        GenericObject Click, "Type=Form;Name=MainForm;\;Type=Control;Index=8;\;Type=Control;Index=0", "Coords=24,11"
   
        Window SetContext, "Class=WindowsForms.Window.808", "Activate=0"
        GenericObject Click, "Class=WindowsForms.Window.8;ClassIndex=1", "Coords=46,28"
   
        Window SetContext, "Type=Form;Name=FrmLogin", ""
        EditBox Left_Drag, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_userName;\;Type=EditBox;Index=0", "Coords=45,9,-63,9"
        InputKeys "{BKSP}"
        EditBox Left_Drag, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_password;\;Type=EditBox;Index=0", "Coords=47,8,-10,8"
        InputKeys "{BKSP}"
        EditBox Click, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_userName;\;Type=EditBox;Index=0", "Coords=7,10"

        sqalogmessage sqapass,"正确的用户名及密码","该用户成功登录"
    else
        '如果用户名、密码错误，无法登录，直接清除用户名及密码，取datapool的下一条数据

        sqalogmessage sqapass,"错误的用户名及密码","该用户不能登录"

        Window SetContext, "Type=Form;Name=FrmLogin", ""
        EditBox Left_Drag, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_userName;\;Type=EditBox;Index=0", "Coords=100,9,-70,9"
        InputKeys "{BKSP}"
        EditBox Left_Drag, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_password;\;Type=EditBox;Index=0", "Coords=100,8,-70,8"
        InputKeys "{BKSP}"
        EditBox Click, "Type=Form;Name=FrmLogin;\;Type=Control;Name=txt_userName;\;Type=EditBox;Index=0", "Coords=7,10"
   
      
   end if
   
   wend

   dp_Result = SQADatapoolClose (dp_id)
End Sub
回复 支持 反对

使用道具 举报

ni_xh

该用户从未签到
5#
 楼主| 发表于 2006-1-16 10:53:44 | 只看该作者

日志的应用

test log信息中的details，其中有个column“failure reason”，这列的信息是否可以通过logmessage写入？用什么命令？
回复 支持 反对

使用道具 举报

ilovejolly

该用户从未签到
6#
发表于 2006-1-16 11:26:33 | 只看该作者
SQAVpLog，具体用法可以参考帮助

脚本里这么多不能识别的，回放没问题？.net的winform我没试过
【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！
回复 支持 反对

使用道具 举报

ni_xh

该用户从未签到
7#
 楼主| 发表于 2006-1-16 15:01:26 | 只看该作者
使用SQAVPlog，回放脚本之后，在日志文件中增加了custom的日志信息。查看日志的property，增加了failure discriptation ，但是failure reason仍是空的。
还需要继续查找哦。


.net的winform 脚本里不识别的确实很多，但回放没问题。
回复 支持 反对

使用道具 举报

fancylee

该用户从未签到
8#
发表于 2006-1-23 14:24:11 | 只看该作者
原帖由 ilovejolly 于 2006-1-16 11:26 发表

脚本里这么多不能识别的，回放没问题？


别人的脚本拿到自己的机器上能直接回放吗？？
我的同事们，一个人在自己的机器上录制后，在另一个人的机器上就不能回放，这是怎么回事呢？？
回复 支持 反对

使用道具 举报

ilovejolly

该用户从未签到
9#
发表于 2006-1-26 09:39:02 | 只看该作者
你看一下在什么地方卡住了
【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！
回复 支持 反对

使用道具 举报

返回列表 发新帖

本版积分规则

关闭

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

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

GMT+8, 2024-11-15 00:36 , Processed in 0.080181 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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