51Testing软件测试论坛

标题: 我找到测试calc.exe的一些源代码，大家一起来研究一下 [打印本页]

作者: tracyd 时间: 2008-12-7 05:12
标题: 我找到测试calc.exe的一些源代码，大家一起来研究一下
其他网站上找出来的，但是不是很看得懂。还有不知道加法.txt，a.xls文件里面到底放了些啥东东。

' *************************************************************************
'* 模板名称： CALC
'* 开发人员： TANZHEN"
'* 开发日期： 2006-10-12
'* 最后修改日期: 2006-10-13
'* 输入参数：计算器的x，y(单数)
'* 输出参数：结果为z
'* 脚本描述：模拟简单的CALC的加法运算
'*************************************************************************

Dim fso,fso1,thefile,readstring,thefile1,a1
Dim one, two
Dim ipos,ilen
isheetrow=1
const forreading=1

set fso=createobject("scripting.filesystemobject")
'打开文本输入文件，注意格式为x,y(也就是参数1 逗号参数2的形式)
Set thefile=fso.opentextfile("E:\Project\QTPTest\TestCal\加法.txt",forreading)
Set fso1=createobject("excel.application")
'打开输出文件
Set thefile1=fso1.workbooks.open("E:\Project\QTPTest\TestCal\a.xls")
Set a1=thefile1.worksheets("sheet1")

'没到文件尾部
Do while thefile.atendofline<>true
      '读取行
      readstring=thefile.readline
      '取得逗号位置
      ipos=instr(1,readstring,",",1)
      ilen=len(readstring)
      '取参数1
         one=left(readstring,ipos-1)
      '取参数2
      two=right(readstring,ilen-ipos)
      '计算器中输入参数1
      Window("计算器").WinButton(one).Click
   Window("计算器").WinButton("+").Click    ' Add +
      Window("计算器").WinButton(two).Click    '输入参数
   Window("计算器").WinButton("=").Click    '输入等号
      '此次加入catch的结果，（通过OUTPUT，和得到检查的值)
      '获取运算符 g=Window("计算器").WinButton("+").GetROProperty("text")
      '为期望结果作准备
      g1=cdbl(one)+cdbl(two)
      '此处加入判断，比如实际和期望结果比较的条件，来得到是否是失败还是成功 )
      '目前只是输出运算值，结果，期望，实际值取法类似
      a1.cells(isheetrow,1)=g+cstr(isheetrow)
      a1.cells(isheetrow,2)=one
      a1.cells(isheetrow,3)=two
      a1.cells(isheetrow,4)=g1
      isheetrow=isheetrow+1
loop
'过程结束！
Window("计算器").Close
'关闭文件流
thefile.close
'清空文件流数据
thefile1.close

'清空文件对象
set thefile=nothing
set fso=nothing

[ 本帖最后由 tracyd 于 2008-12-7 22:19 编辑 ]

作者: momang 时间: 2008-12-7 14:15

作者: tracyd 时间: 2008-12-8 11:18
标题: 对，我的标题不是很确切，是测试calc.exe的vbs代码
不是都在讨论QTP么？我想大家应该懂我的意思。

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