测试简单的计算器程序
打开软件界面



运行测试

点击stop停止运行


Dim num1 ,num2
For  num1=-2 to 2 step 1
	For num2=-2 to 2 step 1
		Window("两位数加法器").WinObject("ThunderRT6TextBox").Click 46,18
		Window("两位数加法器").WinObject("ThunderRT6TextBox").Type num1
		Window("两位数加法器").WinObject("ThunderRT6TextBox_2").Click 35,15
		Window("两位数加法器").WinObject("ThunderRT6TextBox_2").Type num2
		Window("两位数加法器").WinObject("计算(J)").Click 58,11
		Window("两位数加法器").WinObject("重置(C)").Click 44,9
	Next
Next
Window("两位数加法器").WinObject("退出(E)").Click 45,11
Window("两位数加法器").Dialog("退出提示").WinButton("确定").Click

再次运行



循行结束，显示测试结果