51Testing软件测试论坛

标题: 求救，从1加到100的QTP脚本运行不通过 [打印本页]

作者: sspku 时间: 2010-9-19 16:51
标题: 求救，从1加到100的QTP脚本运行不通过
'从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

作者: lxqing1981 时间: 2010-9-19 17:17
计算器上只有0-9

作者: sspku 时间: 2010-9-19 17:26
楼上正解

作者: sspku 时间: 2010-9-19 17:27
修改了代码，大家看看有没有更好的方法
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
'从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

作者: TIB 时间: 2010-9-19 20:33
可以用 Window("计算器").Type 直接敲键盘数字

作者: lyscser 时间: 2010-9-20 00:34

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

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

作者: Jun_Li 时间: 2010-9-20 08:53
正解

作者: sspku 时间: 2010-9-20 10:37
楼上几位能把代码贴出来么，Type怎么使用

作者: lxqing1981 时间: 2010-9-20 11:13
要学会善于使用帮助和百度

作者: lyscser 时间: 2010-9-20 22:04
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
谢谢楼上的，代码小有错误啊，应该是：
Window("计算器").Type 1
for i = 2 to 100
Window("计算器").WinButton("+").Click
Window("计算器").Type i
next

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

作者: 风逝 时间: 2010-11-25 14:10
厉害，几步就搞定了，难为我还写了这么多，哎，差距呀

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