Как найти все окна приложения, в том числе вложенные

Const TH32CS_SNAPPROCESS As Long = 2&
Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Declare Function CreateToolhelpSnapshot Lib "Kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "Kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "Kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)
 
Private Sub Command1_Click()
List1.Clear
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapShot = 0 Then
Exit Sub
End If
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapShot, uProcess)
Do While r
List1.AddItem uProcess.szExeFile + "  " + Str(uProcess.th32ProcessID)
r = ProcessNext(hSnapShot, uProcess)
Loop
Call CloseHandle(hSnapShot)
End Sub

Option Explicit
 
Declare Function EnumThreadWindows Lib "user32" (ByVal dwThreadId As Long, ByVal lpfn As Long, ByVal lParam As Long) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd As Long, lpdwProcessId As Long) As Long
Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal Hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal Hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal Hwnd As Long) As Long
Declare Function GetParent Lib "user32" (ByVal Hwnd As Long) As Long
 
 
Function EnumChildProc(ByVal lhWnd As Long, ByVal lParam As Long) As Long
    Dim txt As String, l As Long, pnt As Long
    
    l = GetWindowTextLength(lhWnd) + 1
    txt = Space(l)
    GetWindowText lhWnd, txt, l
    txt = Left$(txt, l)
    
    If l = 1 Then txt = vbNullString
    
    pnt = GetParent(lhWnd)
    
    Form1.tvwWnd.Nodes.Add "wnd" & CStr(pnt), tvwChild, "wnd" & CStr(lhWnd), ClassName(lhWnd) & ": " & Chr$(34) & txt & Chr$(34)
    
    EnumChildProc = True
End Function
Function EnumWindowProc(ByVal lhWnd As Long, ByVal lParam As Long) As Long
    Dim txt As String, l As Long, pnt As Long
    
    l = GetWindowTextLength(lhWnd) + 1
    txt = Space(l)
    GetWindowText lhWnd, txt, l
    txt = Left$(txt, l)
   
    Form1.tvwWnd.Nodes.Add , tvwChild, "wnd" & CStr(lhWnd), ClassName(lhWnd) & ": " & Chr$(34) & txt & Chr$(34)
    EnumChildWindows lhWnd, AddressOf EnumChildProc, 0
    
    EnumWindowProc = True
End Function
Private Function ClassName(Hwnd As Long) As String
    Dim l As Long
    ClassName = Space$(255)
    l = GetClassName(Hwnd, ClassName, 254)
    ClassName = Left(ClassName, l)
End Function

Option Explicit
 
Private Sub Form_Load()
    EnumChildWindows 0, AddressOf EnumWindowProc, 0
End Sub

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Const GW_HWNDNEXT = 2:
Const GW_CHILD = 5
Const GW_OWNER = 4
Const GW_HWNDFIRST = 0
 
Dim buff$
Dim hwnds As Long 'õåíäåë îêíà
Dim kontrq&
Dim Shet&
Dim Sstr$
Dim zzc$
 
Private Sub Form_Load()
    Shet = 0
    hwnds = FindWindow(vbNullString, "ÌåãàÔîí Èíòåðíåò")
    zzc = "#" & Str(hwnds) 'õåíäåë ñòðî÷íî
    TreeView1.Nodes.Add , , zzc, zzc & "  " & Hstr(hwnds) 'Íóëåâîå îêíî ñïèñêà
    Call Ñêàíîêîí(hwnds, zzc)
End Sub
 
Private Function Hstr(HenTek) As String
    If HenTek <> 0 Then
        Dim buffz As String
        buffz = Space(50)
        SendMessage HenTek, &HD, 40, ByVal buffz
        buffz = Trim(buffz)
        buffz = Left(buffz, Len(buffz) - 1)
        Hstr = buffz
    End If
End Function
 
 
Private Function Ñêàíîêîí(hwnds, zzc)
    Dim zzxx$
    Dim HenTek As Long 'ïîëó÷àåì äåñêðèïòîð ñëåäóþùåãî îêíà â Z-order
    HenTek = GetWindow(hwnds, GW_CHILD)  'Ïîëó÷àåì äåñêðèïòîð äî÷åðíåãî îêíà
    zzxx = "#" & CStr(hwnds) ' îïðåäåëÿåì ñëåäóåùåå äî÷åðíåå îêíî
    'TreeView1.Nodes.Add zzc, tvwChild, zzxx, zzc & Hstr(HenTek)
    
    TreeView1.Nodes.Add zzc, tvwChild, zzxx, zzxx & Hstr(HenTek)
    Do
        If HenTek <> 0 Then   'íå èñïîëüçóéòå ôëàæêè åñëè òàêîãî îêíà íå ñóùåñòâóåò
            Shet = Shet + 1
            List1.AddItem Shet & Sstr & "  " & Str(HenTek) + "   " + Hstr(HenTek)
            'Ïðîâåðêà íà äåòåé-------------------------------------------
            kontrq = GetWindow(HenTek, GW_CHILD) 'Ïîëó÷àåì äåñêðèïòîð äî÷åðíåãî îêíà
            If kontrq <> 0 Then 'åñëè äèòÿ íåòó ïðîïóñêàåì ýòîò øàã
                Sstr = Sstr + Space(8)
                hwnds = HenTek 'ïåðåäà¸ì õåíäë ïåðåìåííîé ôóíêöèè
                Call Ñêàíîêîí(HenTek, zzc)
                Sstr = Right(Sstr, 8)
            End If
            '------------------------------------------------------------
        End If
        HenTek = GetWindow(HenTek, GW_HWNDNEXT) 'Ïîëó÷àåì õåíäåë ñëåäóþùåãî îêíà
    Loop While HenTek <> 0
End Function