程序代码：

Private Function GetBrowserWindow(hwndBrowserContainer As Long) As Long
    Dim RetVal As Long
    Dim hwndPeer As Long
    Dim ClassString As String * 256
    hwndPeer = GetWindow(hwndBrowserContainer, GW_CHILD)
    Do While hwndPeer <> 0
        RetVal = GetClassName(hwndPeer, ClassString, 256)
        Debug.Print ClassString
        If InStr(ClassString, "Shell Embedding") <> 0 Then
            Exit Do
        End If
        hwndPeer = GetWindow(hwndPeer, GW_HWNDNEXT)
    Loop
    GetBrowserWindow = hwndPeer
End Function