Function 获取当前页码()
    Dim hwnd As Long
    Dim hwnd1 As Long
    Dim hwnd2 As Long
    Dim hwnd3 As Long
    
    hwnd = FindWindow("AcrobatSDIWindow", "无废话XML.pdf - Adobe Acrobat Pro")
    If hwnd > 0 Then
        hwnd1 = FindWindowEx(hwnd, 0, "AVL_AVView", "AVToolBarHostView")
        If hwnd1 > 0 Then
            hwnd2 = FindWindowEx(hwnd1, 0, "AVL_AVView", "AVToolBarView")
            If hwnd2 > 0 Then
                hwnd3 = FindWindowEx(hwnd2, 0, "Edit", "61.4%")
                If hwnd3 > 0 Then
                
                Else
                    MsgBox "hwnd3=0"
                End If
            Else
                MsgBox "hwnd2=0"
            End If
        Else
            MsgBox "hwnd1=0"
        End If
    Else
        MsgBox "hwnd=0"
    End If
End Function不知道为什么hwnd3获取结果为0,其它句柄正常,61.4%这个值是正确的,是从spy++中复制过来的