怎样利用Tab键来检查焦点的位置变化是否正确

唐宋元明清

'目的：利用Tab键来检查焦点的位置变化是否正确

'查控件的focused属性的函数
Public function CheckFocus(TestObject)
   If TestObject.CheckProperty("focused","True",2) Then
           CheckFocus=True
           else
           CheckFocus=false
   End If
End Function

'Tab按键的键值
Const VK_TAB=15

'创建Dictionary对象
Set dic=CreateObject("Scripting.Dictionary")

'添加Dictionary的key和value，把顺序号作为key，控件对象作为value
dic.Add"1",dialog("登录").WinEdit("代理名称:")
dic.Add"2",dialog("登录").WinEdit("密码:")
dic.Add"3",dialog("登录").WinButton("确定")

'定位到程序窗口，并判断窗口中的默认焦点是否在正确的位置
Dialog("登录").Activate
CheckFocus(dic.Item("1"))

For i=2 to dic.Count
        DeviceReplay.PressKey VK_TAB
        If CheckFocus(dic.Item(cstr(i)))=False Then
        Exit for
        else
        msgbox"焦点正确"
        End If
Next




为什么QTP提示找不到对象DeviceReplay，怎样调用tab啊