按键精灵_递归遍历窗口句柄

Call 强劲查找子窗口(201326,"wndclass_desked_gsk","Microsoft Visual Basic")
Function 强劲查找子窗口(父句柄, 类名, 标题)
    Dim HwndEx, GetClass, Caption
    HwndEx = 0
    Do
        HwndEx = Plugin.Window.FindEx(父句柄, HwndEx, 0, 0)
        If HwndEx = 0 Then 
            Exit Do
        Else 
            GetClass = Plugin.Window.GetClass(HwndEx)
            Caption = Plugin.Window.GetTextEx(HwndEx, 0)
            TracePrint "句柄为: " & HwndEx & "的窗口,类名: " & GetClass
            If StrComp(GetClass, 类名) = 0 And StrComp(Caption, 标题) = 0 Then 
                jubing = HwndEx
                Exit Do
            End If
            Call 强劲查找子窗口(HwndEx, 类名, 标题)
        End If
    Loop
    强劲查找子窗口 = jubing
End Function
ExitScript 
//递归查找句柄函数，经测试可以遍历出所有窗口，包括不可见窗口句柄
Call 递归(200146)
Function 递归(Hwnd)
    Dim HwndEx
    Do
        HwndEx = Plugin.Window.FindEx(Hwnd, HwndEx, 0, 0)
        If HwndEx = 0 Then 
            Exit Do
        Else 
            TracePrint HwndEx
            Call 递归(HwndEx)
        End If
    Loop
End Function