|
在QTP专家视图中编写一个测试Windows自带计算器的脚本,做0~9个位数遍历加法计算,脚本如下(先将计算器对象和其自对象加入到对象仓库中):
SystemUtil.Run "C:\WINDOWS\system32\calc.exe","","C:\WINDOWS\system32","open"
Dim x
Dim y
Dim result
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
result = x+y
' Window("计算器").WinEdit("Edit").Check CheckPoint("Edit")
Window("计算器").WinEdit("Edit").SetCaretPos 3
next
next
Window("计算器").Close
问题:如何将x+y的结果传给CheckPoint("Edit")里面的Edit??谢谢! |
|