计算器例子的实际应用出错以及最终的解决办法

luckboys

http://bbs.51testing.com/viewthread.php?tid=74&fpage=1

呵呵，今天看到了海龙版主写的一个文章，觉得被受启发，然后就拿出来自己进行了一番研究（计算器的那个例子）。

我的目的是要将启动的“计算器”的Caption属性拿出来，然后显示在msg里面。

是不是看起来觉得很简单......

但是我在实际的应用中却遇到了一些意外：
最开始的时候我的脚本如下：
Sub Main
    Dim Result As Integer
    Dim sum as string
    'Initially Recorded: 2003-7-21  11:07:34
   
    StartApplication "C:\windows\system32\calc.exe"
    Window SetContext, "Caption=计算器・, ""
   ' Result= SQAGetProperty ("Type=Window","Caption", sum)
     msgbox sum
   
End Sub

run以后发现“计算器”没有被取出来，单步跟踪系统提示1002错误。
郁闷！

期间共折腾了1小时

十分郁闷

后来将脚本进行了一个小小的变化：

  Result= SQAGetProperty ("CurrentWindow","Caption", sum)

系统成功读出了Caption属性。