51Testing软件测试论坛

标题: QTP录制计算器做2位数的遍历加法运算 [打印本页]

作者: gold_85 时间: 2010-2-5 09:46
标题: QTP录制计算器做2位数的遍历加法运算
看到别人问那两位数以上的加法运算，如何写脚本呢.
所以就试写了一个
systemutil.Run "calc.exe"
Dim X,Y
c=0:d=1
For a=1 to 9
For Y=0 to 99
   For b=0 to 9
         Window("计算器").WinButton("text:="&a).Click
         Window("计算器").WinButton("text:="&c).Click
         Window("计算器").WinButton("+").Click
         Window("计算器").WinButton("text:="&d).Click
         Window("计算器").WinButton("text:="&b).Click
         Window("计算器").WinButton("=").Click
         Window("计算器").WinButton("+").Click
   Next
d=d+1
If d>=10 Then
   d=1
   c=c+1
         If  c>=10 Then
            c=0
         End If
End If
  Next
Next

作者: yujie6832 时间: 2010-2-5 10:09

友情帮顶，不过没看~

作者: gold_85 时间: 2010-2-5 10:16

原帖由 yujie6832 于 2010-2-5 10:09 发表
友情帮顶，不过没看~

谢谢,版主很尽职尽责呀,大多数求助的帖子都能看到你的影子

作者: yujie6832 时间: 2010-2-5 10:18

原帖由 gold_85 于 2010-2-5 10:16 发表

谢谢,版主很尽职尽责呀,大多数求助的帖子都能看到你的影子

应尽的职责，不谢~

作者: lantianwei 时间: 2010-2-5 12:18
Sub SetNumber(int iData)
dim iLen=Len(CStr(iData))
for i=1 to iLen
Window("计算器").WinButton("text:="&Mid(CStr(iData),i,1)).Click
Next
End Sub

此方法也可

作者: vikesgao 时间: 2010-10-9 11:15
不错，学习了

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