yg_82 发表于 2004-7-20 11:20:44

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

现在很想看看大家是怎么样写自己的脚本的,谁可以贡献一下,谢谢了。

pcl2004_27 发表于 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-1510: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 toLen(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 ]

yg_82 发表于 2004-7-20 16:15:08

你用robot测试c#编的程序,用winrunner行吗?我现在正准备用winrunner测试c#编的程序。

xingcyx 发表于 2004-7-21 12:00:38

用winrunner测试的是程序的功能,基本上和程序是用什么语言写的无关。难点只在于不同的语言写出来的程序可能会有些控件使它无法识别。

pcl2004_27 发表于 2004-7-21 15:17:45

对于winrunner解决.net的问题,据我所知没有好的办法!mercury for .net只提供了 td,qtp,lr等对net的支持,而且winrunner的最新版本为7.6
页: [1]
查看完整版本: 谁可以将自己在winrunner上写的脚本程序拿上来参考一下吗?