参考一下这段代码
Window SetTestContext, "Caption=计算器", ""
Result = EditBoxVP (CompareNumeric, "ObjectIndex=1", "VP=Alphanumeric;Value=96")
Window ResetTestContext, "", ""
if Result=0 then
sqalogmessage sqaWarning,"计算机验证失败",""
end if
msgbox Result
注意其中的sqalogmessage