使用IAccessible接口，遍历DirectUI窗口控件的问题？

前一段时间，做一个程序，需要完成一个小功能，即对鼠标监视，当左键单击某个文件选中时，获得该文件文件名称。
折腾了好久，最终在windowsXP下完美实现了。实现的思路是：
1、下鼠标钩子，获得鼠标左键clickup事件。
2、使用FindPointWindow，获得鼠标位置窗口句柄。
3、使用SendMessage，向该窗口（SysListView32）发送信息，获得选中文件序号及文件名称。
该程序在WindowsXP下运行正常，可以正确取出文件名。在Windows7和Server2008的桌面（也是SysListView32）也工作正常。
但是windows7和Server2008的文件浏览窗口时DirectUI，无法使用SendMessage获得相应信息。

针对DirectUI,改用IAccessible接口遍历并获得指定句柄的窗口内鼠标选中的文件。
程序getCurrentFileName，入口是指定窗口的句柄。
但是很奇怪，该程序如果从程序本身的窗体上获得句柄参数，能正常执行，找到选中文件（如从一个textbox中获得句柄值）。但是如果是用鼠标钩子和FindPointWindow获得窗口句柄值，自动调用getCurrentFileName，就无法找到选中的文件。
通过调试，可以看到AccessibleObjectFromWindow这句在两种情况下执行结果不一样。
但是不知道原因在哪里？不知道大家有没有对IAccessible接口熟悉的，帮忙分析一下？
程序如下：

#Region "使用IAccessible读取被选中的文件名称（通用于SysListView32和DirectUI两种控件）"
    ''' <summary>
    ''' 从Windows系统窗口中读取被选中的文件名称，需要考虑两种控件。
    ''' 第一种是SyslistView32，WindowsXp桌面和文件浏览窗口，Windows7、Server2008的桌面都是这种控件
    '''         syslistView32控件本身的Role值为33【列表】，每个文件Role值为34【列表项目】，ObjectType为Simple Element
    ''' 第二种是DirectUI，Windows7、Server2008的文件浏览窗口都是这种控件
    '''         DirectUI控件本身内部较为复杂，文件浏览窗口处于DirectUI较深的层次，文件浏览窗口Role值为33【列表】，每个文件Role值为34【列表项目】
    '''         但是特别注意，这里的文件的ObjectType为Container。
    ''' 两种控件都可以使用IAccessible自动化接口取访问，并且层层深入的遍历。但是特别注意，IAccessible不能进入ObjectType为Simple Element的层。
    ''' 也就是说使用IAccessible不能用AccessibleChildren进入SyslistView32的子层取遍历控件，这样会报错。这可能是自己对IAccessible接口工作原理还不是很清楚而导致的。
    ''' 
    ''' 注：这两种控件可以使用工具AccExplore进行研究和查看。
    ''' 
        Private Declare Function AccessibleObjectFromWindow Lib "oleacc" ( _
       ByVal Hwnd As Int32, _
       ByVal dwId As Int32, _
       ByRef riid As Guid, _
       <MarshalAs(UnmanagedType.IUnknown)> ByRef ppvObject As Object) As Int32
    ''' <summary>
    ''' AccessibleObjectFromWindow用于通过调用IAcessible接口，获得指定句柄为Hwnd的窗口com对象整体，将该对象置于ppvObject中，供用户访问
    ''' AccessibleObjectFromWindow如果获得了正确的Com对象，则返回值为0。如果返回值不为0，则说明获得Com对象过程中出错。
    ''' 特别注意，AccessibleObjectFromWindow只能返回Hwnd句柄指向窗口的顶级窗口。这点在Windows 7下使用最为明显。
    ''' </summary>
    Public Declare Function AccessibleChildren Lib "oleacc" ( _
        ByVal paccContainer As IAccessible, _
        ByVal iChildStart As Integer, _
        ByVal cChildren As Integer, _
         <[Out]()> ByVal rgvarChildren() As Object, _
         ByRef pcObtained As Integer) As UInt32
    ''' <summary>
    ''' AccessibleChildren用于获得当前Object即paccContainer的子Object，存放在cChildren集中
    ''' 公用变量strCurrentFileName用于返回获得的文件名
    ''' </summary>
    Public strCurrentFileName As String
    Public Sub getCurrentFileName(ByVal hwndCurrent As Int32)
        Try             
            Dim IACurrent As Accessibility.IAccessible = Nothing
            Dim ID As Int32 = 0
            Dim IID_IAcce As Guid = New Guid("618736E0-3C3D-11CF-810C-00AA00389B71")

            '调用AccessibleObjectFromWindow，获得句柄hwndCurrent指向的鼠标当前窗口所在的顶级窗口，放入IACurrent，供访问者使用
            Dim aaVal As Int32 = AccessibleObjectFromWindow(hwndCurrent, ID, IID_IAcce, IACurrent)

            'IACurrent = DirectCast(IACurrent.accParent, Accessibility.IAccessible) '不运行这条语句可以根据句柄正确获得child的数量和名称。
            Dim _ChildCount As Integer = IACurrent.accChildCount
            Dim _Children As Object() = New Object(_ChildCount) {}
            Dim _out As Integer
            '调用AccessibleChildren函数，获得当前顶级窗口（特别注意不一定是hwndCurrent所指向的窗口）的第一层子项，放入_Children
            AccessibleChildren(IACurrent, 0, _ChildCount, _Children, _out)
            '对第一层子项进行遍历
            For Each _child As Accessibility.IAccessible In _Children
                '在遍历过程中，会出现取到空子项的情况，如果取到空子项，下面程序会出错，所以需要将空子项排除
                If _child IsNot Nothing Then

                    '首先判断子项的Role值，33为【列表】，文件为34【列表项目】，我们需要找到33【列表】
                    Dim _accRole As String = _child.accRole(0)          '取当前遍历到的子项的Role
                    '如果控件是SysListView32，则：
                    '1、不能使用Accessibility.IAccessible进入SysListView32的子项
                    '2、可以使用_child.accName(i)、_chile.accState(i)、遍历该"33"列表的子项
                    '3、可以使用 _child.accSelection返回该该"33"列表中被选中的子项，但是该返回值与所期望的值不同。
                    If _accRole = "33" And strListViewClass = "SysListView32" Then
                        '找到列表后，判断当前列表是否有子项被选中。
                        PDMMainForm.LFind33.Text = "找到列表33，名称为" & _child.accName(0)
                        '如果有子项被选中, _child.accSelection返回被选中的值(该值一定大于零), 否则返回空
                        Dim _accSelected As String = _child.accSelection
                        If _accSelected > 0 Then
                            Dim i As Integer
                            i = CInt(_accSelected)
                            strCurrentFileName = _child.accName(i)
                            PDMMainForm.Lfindfile.Text = "找到选中文件，名称为" & strCurrentFileName

                            Exit Sub
                        End If
                    End If
                    '判断当前子项_child是否还有下一层子项（_child.accChildCount>0），如果有，则进行遍历
                    Dim _accCount As String = _child.accChildCount      '取当前遍历到的子项的子项数量
                    If _child.accChildCount > 0 Then
                        enumchild(_child, _child.accChildCount)
                    End If
                End If
            Next
        Catch
            '如果没有正确获得被选中的文件名称，则屏蔽try语句，进行调试
        End Try
    End Sub
    Sub enumchild(ByVal objParent As Accessibility.IAccessible, ByVal _ChildCount As Integer)
        '遍历二级及二级以下所有子控件，寻找Role为34的子控件
        Dim _accChildren As Object() = New Object(_ChildCount) {}
        Dim _out As Integer
        Try
            AccessibleChildren(objParent, 0, _ChildCount, _accChildren, _out)
        Catch
        End Try

        '遍历第n层控件
        Dim istep As Integer = 0
        Try
            '在遍历过程中，如果_accChildren为simple Element，则下面语句会报错，使用try语句避免
            For Each _child As Accessibility.IAccessible In _accChildren
                istep = 1
                '在遍历过程中，会出现取到空子项的情况，如果取到空子项，下面程序会出错，所以需要将空子项排除
                If _child IsNot Nothing Then
                    istep = 2
                    '首先判断子项的Role值，33为【列表】，文件为34【列表项目】，我们需要找到33【列表】
                    Dim _accRole As String = _child.accRole(0)          '取当前遍历到的子项的Role
                    istep = 3
                    If _accRole = "34" Then
                        PDMMainForm.LFind33.Text = "找到列表项34，名称为" & _child.accName(0)
                        Dim _accState As Object = _child.accState(0)
                        Const SYSTEM_MOUSEON As UInt32 = 2     ' 对象被Selection的掩码，参考oleacc.h
                        Dim iMouseOn As UInt32 = _accState And SYSTEM_MOUSEON
                        If iMouseOn = 2 Then
                            strCurrentFileName = _child.accName(0)
                            PDMMainForm.Lfindfile.Text = "找到选中文件，名称为" & strCurrentFileName
                        End If
                        With PDMMainForm.CB33list
                            .Items.Add(_child.accName(0) & "," & _accState & "," & iMouseOn)
                        End With
                    End If
                    
                    Dim _accCount As String = _child.accChildCount      '取当前遍历到的子项的子项数量
                    If _accCount > 0 Then
                        enumchild(_child, _accCount)
                    End If
                End If

            Next
        Catch
        End Try
    End Sub