QTP:检查网页焦点迁移

Systemutil.Run"iexplore.exe","http://www.baidu.com"
wait 5
'------------------------------------------------------------------------------
Function get_focus_property(name)
    Browser("百度一下，你就知道_2").WinEdit("Edit").click
 Browser("百度一下，你就知道_2").WinEdit("Edit").Type micTab 
 'wait 10
Execute "value=Browser(""百度一下，你就知道_2"")."&name&".GetROProperty(""focus"")"  '执行获取焦点属性的命令
'将上面命令是否获取成功的结果输出到report
If  value="1" Then
 Reporter.ReportEvent micPass,"focus", "The user-defined step failed."
 Else
 Reporter.ReportEvent micFail,"focus", "The user-defined step failed."
End If
End Function
'__________________________________________________
ncount=DataTable.GetSheet("Action1").GetRowCount
For i=1 to ncount
 DataTable.GetSheet("Action1").SetCurrentRow(i)
 name1=DataTable(1,"Action1")'从DataTable中取出控件名称
    get_focus_property name1
Next