Rational robot 对象脚本命令

　　使用robot录制的脚本在实际的测试使用中，并不是很好用。录制的脚本是线性脚本没有控制结构，如果要测试大量的数据，只依靠录制的脚本测试，是行不通的。另外，带有校验点的线性脚本，直接加入控制结构，大部分是不能正确回放的。这种情况下，使用robot的对象脚本命令是不错的选择。使用方法是采用录制加手工编码的混合方式。这样产生的脚本清晰、易维护、功能强大。

　　下面还是计算器的例子，使用SQAGetProperty获取对象属性，使用SQALogMessage将测试结果写入到日志中：

　　Sub Main

　　Dim Result As Integer

　　Dim sum as string

　　'Initially Recorded: 2003-7-21 11:07:34

　　'Script Name: jsq-对象脚本

　　StartApplication "C:\WINNT\system32\calc.exe"

　　Window SetContext, "Caption=计算器", ""

　　InputKeys "1{+}1{ENTER}"

　　Result= SQAGetProperty ("Type=Label;ObjectIndex=1", "Text", sum)

　　if left(sum,1)="2" then

　　SQALogMessage sqaPass, "测试通过", ""

　　else

　　SQALogMessage sqaFail, "测试失败", ""

　　end if

　　Window CloseWin, "", ""

　　End Sub

　　在实际测试中，你会发现这种脚本非常好用。