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
© 版权声明
文章版权归作者所有，未经允许请勿转载。
相关文章
