51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

查看: 5034|回复: 4

谁可以将自己在winrunner上写的脚本程序拿上来参考一下吗?

[复制链接]

该用户从未签到

发表于 2004-7-20 11:20:44 | 显示全部楼层 |阅读模式
现在很想看看大家是怎么样写自己的脚本的,谁可以贡献一下,谢谢了。

该用户从未签到

发表于 2004-7-20 11:28:27 | 显示全部楼层
手里没有winrunner写的脚本程序!
传上来一个robot的登陆脚本!

'##############################################
'#
'#   脚本名称               :  登陆
'#   日期                   :  2004-7-15
'#   最后修改日期           :  2004-7-15
'#   开发者姓名             :  xxxx
'#   被测试软件名称         :  xxxxx系统
'#   开发语言               :  c#
'#   目的                   :  自动登陆
'#
'##############################################
Sub Main
   
    Dim Result As Integer
    Dim Status as long
    Dim varUserName as String
    Dim varPassWord as String
    Dim iLen as integer
   
    'Initially Recorded: 2004-7-15  10:52:33 上午
    'Script Name: StartOA
   
    StartApplication "C:\Program Files\Uncnet\OAClient\StartClient.exe"
   
    Window SetContext, "Class=WindowsForms.Window.8;Level=2", ""
   
    EditBox Click, "ObjectIndex=2", "Coords=4,10"
   
    Status = SQAGetProperty ("Type=EditBox;ObjectIndex=2", "Text", varUserName)
   
    if Status = 0 then
      
       for iLen = 0 to  Len(varUserName)   
           InputKeys "{DELETE}"
       Next iLen
      
       Status = SQAGetProperty ("ObjectIndex=2", "Text", varUserName)
      
       if Status = 0 and len(varUserName) = 0 then
         
          InputKeys "pcl"
          Window SetContext, "Class=WindowsForms.Window.8;Level=2", ""
          EditBox Click, "ObjectIndex=1", "Coords=9,15"
          InputKeys "123"
         
       end if
         
    else
      
       SQALogMessage sqaFail, "无法得到当前用户名", varUserName
       Exit sub
   
   end if      
  
   GenericObject Click, "Class=WindowsForms.Window.8;ClassIndex=2", "Coords=26,8"
   '验证点   

End Sub

winrunner提供的脚本例子很有参考价值!可以自己研究一下!

[ Last edited by pcl2004_27 on 2004-7-20 at 11:30 ]
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主| 发表于 2004-7-20 16:15:08 | 显示全部楼层
你用robot测试c#编的程序,用winrunner行吗?我现在正准备用winrunner测试c#编的程序。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2004-7-21 12:00:38 | 显示全部楼层
用winrunner测试的是程序的功能,基本上和程序是用什么语言写的无关。难点只在于不同的语言写出来的程序可能会有些控件使它无法识别。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2004-7-21 15:17:45 | 显示全部楼层
对于winrunner解决.net的问题,据我所知没有好的办法!mercury for .net只提供了 td,qtp,lr等对net的支持,而且winrunner的最新版本为7.6
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-3-28 18:13 , Processed in 0.069816 second(s), 30 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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