求救，从1加到100的QTP脚本运行不通过

sspku

'从1加到100
systemutil.Run "calc.exe" '打开计算器程序

Dim  addnum
Window("计算器").WinButton("1").Click
         
For addnum=2  to 100
         Window("计算器").WinButton("+").Click
         Window("计算器").WinButton("text:="&addnum).Click
Next

Window("计算器").WinButton("=").Click

加到9的时候就运行不下去了，报错：
Cannot identify the object "[ WinButton ]" (of class WinButton). Verify that this object's properties match an object currently displayed in your application.

如果把循环控制到9，这个脚本就能够正确运行，得到结果45

风逝

厉害，几步就搞定了，难为我还写了这么多，哎，差距呀

sspku

谢谢楼上的，代码小有错误啊，应该是：
Window("计算器").Type 1
for i = 2 to 100
   Window("计算器").WinButton("+").Click
   Window("计算器").Type i
next

Window("计算器").WinButton("=").Click

lyscser

Window("计算器").Type 1
Window("计算器").WinButton("+").Click

for i = 2 to 100
   Window("计算器").Type i
   Window("计算器").WinButton("+").Click
next

Window("计算器").WinButton("=").Click

lxqing1981

要学会善于使用帮助和百度

sspku

楼上几位能把代码贴出来么，Type怎么使用

Jun_Li

正解

lyscser

可以用 Window("计算器").Type 直接敲键盘数字
TIB 发表于 2010-9-19 20:33

超级工匠，哈哈，最简单的就是最实用的

TIB

可以用 Window("计算器").Type 直接敲键盘数字

sspku

修改了代码，大家看看有没有更好的方法
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
'从1加到100
systemutil.Run "calc.exe" '打开windows计算器程序

Dim  addnum
Dim gw '个位
Dim sw '十位
Window("计算器").WinButton("1").Click
         
For addnum=2  to 100
         Window("计算器").WinButton("+").Click
         Select Case len(addnum)
         Case 1
                 Window("计算器").WinButton("text:="&addnum).Click
        Case 2
                sw = Left(addnum,1)
                gw = Right(addnum,1)
            Window("计算器").WinButton("text:="&sw).Click
                Window("计算器").WinButton("text:="&gw).Click
    Case 3
            Window("计算器").WinButton("1").Click
                Window("计算器").WinButton("0").Click
                Window("计算器").WinButton("0").Click
         End Select

Next

Window("计算器").WinButton("=").Click
Window("计算器").Close

sspku

楼上正解

lxqing1981

计算器上只有0-9