Программно узнать все открытые вкладки в браузере Opera и Google Chrome

Option Explicit
Dim hWndParent&, ii&
 
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long ' возвращает дескриптор окна, связанного с данным окном. Имеются ввиду отношения между дочерне - родительскими окнами или отношения между дочерними окнами самого родительского окна
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Const GW_HWNDNEXT = 2
Public Const GW_HWNDFIRST = 0
Public Const GW_CHILD = 5
 
Sub CheckWin()
    'Макрос выводящий
 
    ii = 0
    SearchFromAllwnd& GetDesktopWindow, "", ""
End Sub
 
 
Private Sub RecRange(ByVal wnd&, ByVal sText$, ByVal sClass$)
    ii = ii + 1
    Cells(ii, 1) = wnd
    Cells(ii, 2) = sText
    Cells(ii, 3) = sClass
End Sub
 
 
 
Function SearchFromAllwnd&(ByVal wnd&, ByVal Class$, ByVal Text$): Dim s$, ss$, wnd2&
    'Рекурсивная функция, реально переберает все окна в системе
    Static rec&, FindAllWnd2&
    If FindAllWnd2 Then GoTo ExitFun
    While wnd <> 0
        wnd2 = GetWindow(wnd, GW_CHILD)
        If wnd2 <> 0 Then rec = rec + 1: SearchFromAllwnd wnd2, Class, Text
        s = sGetWindowText(wnd)
        ss = sGetClassName(wnd)
        
        If InStr(1, s, "opera", 1) Or InStr(1, s, "Google Chrome", 1) Then
            RecRange wnd, s, ss
        End If
        
'        If s = Text And ss = Class Then
'            FindAllWnd2 = wnd
'            GoTo ExitFun
'        End If
        wnd = GetWindow(wnd, GW_HWNDNEXT)
    Wend
ExitFun:
    rec = rec - 1
    If rec < 0 Then SearchFromAllwnd = FindAllWnd2: rec = 0
End Function
 
 
Function sGetClassName$(ByVal wnd&): Dim cch&, lpString$
    On Error Resume Next
    lpString = Space$(100)
    GetClassName wnd, lpString, Len(lpString)
    sGetClassName = Left$(lpString, InStr(1, lpString, vbNullChar) - 1)
End Function
 
Function sGetWindowText$(ByVal wnd&): Dim cch&, lpString$
    On Error Resume Next
    lpString = Space$(100)
    GetWindowText wnd, lpString, Len(lpString)
    sGetWindowText = Left$(lpString, InStr(1, lpString, vbNullChar) - 1)
End Function