gold_85 发表于 2010-2-5 09:46:54

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
            Ifc>=10 Then
                c=0
            End If
        End If
Next
Next

yujie6832 发表于 2010-2-5 10:09:46

:lol 友情帮顶，不过没看~

gold_85 发表于 2010-2-5 10:16:28

原帖由 yujie6832 于 2010-2-5 10:09 发表 http://bbs.51testing.com/images/common/back.gif
:lol 友情帮顶，不过没看~


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

yujie6832 发表于 2010-2-5 10:18:34

原帖由 gold_85 于 2010-2-5 10:16 发表 http://bbs.51testing.com/images/common/back.gif



谢谢,版主很尽职尽责呀,大多数求助的帖子都能看到你的影子
应尽的职责，不谢~:lol

lantianwei 发表于 2010-2-5 12:18:04

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:17

不错，学习了
页: [1]
查看完整版本: QTP录制计算器做2位数的遍历加法运算