51Testing软件测试论坛

标题: 谁可以将自己在winrunner上写的脚本程序拿上来参考一下吗？ [打印本页]

作者: yg_82 时间: 2004-7-20 11:20
标题: 谁可以将自己在winrunner上写的脚本程序拿上来参考一下吗？
现在很想看看大家是怎么样写自己的脚本的，谁可以贡献一下，谢谢了。

作者: pcl2004_27 时间: 2004-7-20 11:28
手里没有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 时间: 2004-7-20 16:15
你用robot测试c#编的程序，用winrunner行吗？我现在正准备用winrunner测试c#编的程序。

作者: xingcyx 时间: 2004-7-21 12:00
用winrunner测试的是程序的功能，基本上和程序是用什么语言写的无关。难点只在于不同的语言写出来的程序可能会有些控件使它无法识别。

作者: pcl2004_27 时间: 2004-7-21 15:17
对于winrunner解决.net的问题,据我所知没有好的办法！mercury for .net只提供了 td,qtp，lr等对net的支持，而且winrunner的最新版本为7.6

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)