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