VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb.net 教程 20-3 控制Ie浏览器 5

四、获得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
 
运行结果如下:
3
 
注意:spy++中是用十六进制显示的。
 
 
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
 
学习更多vb.net知识,请参看vb.net 教程 目录
 
 
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/uruseibest/article/details/77918949

相关教程