我找到测试calc.exe的一些源代码，大家一起来研究一下

tracyd

其他网站上找出来的，但是不是很看得懂。还有不知道加法.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

tracyd

不是都在讨论QTP么？我想大家应该懂我的意思。