vb.net 教程 20-3 控制Ie浏览器 5

落日映苍穹つ 2022-09-11 11:17 107阅读 0赞

四、获得Ie窗口 Internet Explorer\_Server 句柄

IEFrame->Frame Tab->TabWindowClass->shell DocObject View->Internet Explorer\_Server

上一小节获得了 Frame Tab 的句柄，本节继续获得 Internet Explorer\_Server 句柄  
需要注意的是，从Frame Tab之后，从TabWindowClass 到 Internet Explorer\_Server 获得的都是单个的句柄。

具体代码如下：  
    ''' <summary>  
    ''' 获得IE的Internet Explorer\_Server  
    ''' </summary>  
    ''' <returns></returns>  
    ''' <remarks></remarks>  
    Private Function getIEServer() As ArrayList  
        Dim IEServerArray As New ArrayList  
   
        Dim IEServerHwnd As IEWindowHwnd  
        '获得所有的FrameTab句柄  
        Dim IEFrameTabHwndArray As New ArrayList  
        IEFrameTabHwndArray = getIEFrameTab()  
        '如果FrameTab数量为0，那么就立即返回空IEServerArray  
        If IEFrameTabHwndArray.Count = 0 Then Return IEServerArray  
   
        '循环FrameTab最终获得Internet Explorer\_Server 句柄  
        For i As Integer = 0 To IEFrameTabHwndArray.Count - 1  
            Try  
                'TabWindowClass  
                Dim TWCHwnd As Integer  
                TWCHwnd = FindWindowEx(CType(IEFrameTabHwndArray(i), IEWindowHwnd).FTabhwnd, 0, "TabWindowClass", Nothing)  
                If TWCHwnd = 0 Then  
                    Continue For  
                End If  
                'shell DocObject View  
                Dim SDVHwnd As Integer  
                SDVHwnd = FindWindowEx(TWCHwnd, 0, "shell DocObject View", Nothing)  
                If SDVHwnd = 0 Then  
                    Continue For  
                End If  
                'Internet Explorer\_Server  
                Dim IESHwnd As Integer  
                IESHwnd = FindWindowEx(SDVHwnd, 0, "Internet Explorer\_Server", Nothing)  
                If IESHwnd <> 0 Then  
                    '记录IE窗口的Hwnd,一直传递下去  
                    IEServerHwnd.IEhwnd = CType(IEFrameTabHwndArray(i), IEWindowHwnd).IEhwnd  
                    '记录Internet Explorer\_Server窗口的Hwnd  
                    IEServerHwnd.Ie\_SHwnd = IESHwnd  
                    IEServerHwnd.FTabhwnd = CType(IEFrameTabHwndArray(i), IEWindowHwnd).FTabhwnd  
                    IEServerArray.Add(IEServerHwnd)  
                End If  
   
            Catch ex As Exception  
                Continue For  
            End Try  
        Next  
   
        Return IEServerArray  
    End Function

测试代码如下：  
    Private Sub Button1\_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        ListBox1.Items.Clear()  
   
        Dim listIe As New ArrayList  
        listIe = getIEServer()  
        If listIe.Count > 0 Then  
            For i As Integer = 0 To listIe.Count - 1  
                ListBox1.Items.Add(CType(listIe.Item(i), IEWindowHwnd).Ie\_SHwnd)  
            Next  
        End If  
    End Sub

运行结果如下：![Center][]

注意：spy++中是用十六进制显示的。

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参[vb.net教程][vb.net]目录  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[Center]: /images/20220828/72ce18efd224432c8e43a62cc336bbd8.png
[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/