SQAGetProperty应用实例

SQAGetProperty获取对象属性，使用SQALogMessage将测试结果写入到日志中：

A4h5v&x#Aq"P0Sub Main
q;H|
f6JJ0    Dim Result As Integer
)tlC.TQ@1KZ0    Dim sum as string
h%K&[zVGt051Testing软件测试网 k2g2Y2U)iH
    'Initially Recorded: 2003-7-21  11:07:34
UHE^4yC0    'scrīpt Name: jsq-对象脚本51Testing软件测试网7s$w2^?m
t.P/V
    StartApplication "C:\WINNT\system32\calc.exe"
*mmX-b$B\#R0   
'k:o1L:U5j9fk6E0    Window SetContext, "Caption=计算器", ""
|7p_Jk|8g0    InputKeys "1{+}1{ENTER}"51Testing软件测试网R9}r6t&pP'n
    Result= SQAGetProperty ("Type=Label;ObjectIndex=1", "Text", sum)
@-cSi.iU7Vx i0   51Testing软件测试网/pOfrJ4_~
    if left(sum,1)="2" then51Testing软件测试网tQ~J&d
      SQALogMessage sqaPass, "测试通过", ""51Testing软件测试网
\2x4n
`Q
    else51Testing软件测试网6o
_2D@-W)}!?+q
      SQALogMessage sqaFail, "测试失败", ""
pyr``x}0    end if      
2d/[h4~S$S0   
1C3@:Q)y&D'v%zG0    Window CloseWin, "", ""
7r9iz` F.y\0
/|%uKI6k?7? s]0End Sub