sspku 发表于 2010-9-19 16:51:09

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

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

Dimaddnum
Window("计算器").WinButton("1").Click
       
For addnum=2to 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

lxqing1981 发表于 2010-9-19 17:17:48

计算器上只有0-9

sspku 发表于 2010-9-19 17:26:25

楼上正解

sspku 发表于 2010-9-19 17:27:12

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

Dimaddnum
Dim gw '个位
Dim sw '十位
Window("计算器").WinButton("1").Click
       
For addnum=2to 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

TIB 发表于 2010-9-19 20:33:54

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

lyscser 发表于 2010-9-20 00:34:11

可以用 Window("计算器").Type 直接敲键盘数字
TIB 发表于 2010-9-19 20:33 http://bbs.51testing.com/images/common/back.gif

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

Jun_Li 发表于 2010-9-20 08:53:40

正解

sspku 发表于 2010-9-20 10:37:41

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

lxqing1981 发表于 2010-9-20 11:13:58

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

lyscser 发表于 2010-9-20 22:04:52

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

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

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

sspku 发表于 2010-9-21 10:12:17

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

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

风逝 发表于 2010-11-25 14:10:10

厉害，几步就搞定了，难为我还写了这么多，哎，差距呀
页: [1]
查看完整版本: 求救，从1加到100的QTP脚本运行不通过