rational对象脚本命令（当前脚本发生错误）干货满满

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