标题: QTP录制计算器脚本问题请教!!!! [打印本页] 作者: dhleelei 时间: 2007-12-13 16:56 标题: QTP录制计算器脚本问题请教!!!! 先录制一个2+3脚本,然后将0~9的计算器界面的按钮加入到对象仓库中,增加循环,做1位数的遍历加法运算,脚本如下:
Dim x
Dim y
for x=0 to 9
For y=0 to 9
Window("计算器").WinButton(x).Click
Window("计算器").WinButton("+").Click
Window("计算器").WinButton(y).Click
Window("计算器").WinButton("=").Click
Next
Next
[ 本帖最后由 linwenyan 于 2007-12-14 00:24 编辑 ]作者: linwenyan 时间: 2007-12-14 01:06
如果要按你的方法来做的话,我觉得可以这样写:
Option Explicit
Dim x
Dim y
for x=0 to 9
For y=0 to 9
Window("计算器").WinButton("text:=" & x).Click
Window("计算器").WinButton("+").Click
Window("计算器").WinButton("text:=" & y).Click
Window("计算器").WinButton("=").Click
Next
Next