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

yg_82

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

pcl2004_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 ]

yg_82

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

xingcyx

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

pcl2004_27

对于winrunner解决.net的问题,据我所知没有好的办法！mercury for .net只提供了 td,qtp，lr等对net的支持，而且winrunner的最新版本为7.6