VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
 
二、获得Ie窗口句柄
 
通过上一小节的教程，我们可知Ie窗口的类名为 IEFrame
 
那么通过 FindWindowEx() api函数就可以枚举 Ie窗口句柄：
 
具体代码如下：
 
    ''' <summary>
    ''' 获得所有的IE窗口hwnd
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function findAllIe() As ArrayList
        Dim IEHwndArray As New ArrayList
 
        Dim result As Integer
        '需要查找类名 IEFrame
        Dim ieClass As String = "IEFrame"
        Try
            '获得第一个打开的IE窗口
            result = FindWindowEx(0, 0, ieClass, Nothing)
            Do While result <> 0
                IEHwndArray.Add(result)
                '获得下一个IE窗口，直到返回0
                result = FindWindowEx(0, result, ieClass, Nothing)
            Loop
        Catch ex As Exception
            Return IEHwndArray
        End Try
        Return IEHwndArray
    End Function
 
 
FindWindowEx：
说明：在窗口列表中寻找与指定条件相符的子窗口
返回值：返回查找到的窗口的句柄
 
 
 
result = FindWindowEx(0, 0, ieClass, Nothing)
参数1=0：以桌面窗口为父窗口，查找桌面窗口的所有子窗口
参数2=0：窗口句柄，设置为0表示从第一个参数指定的窗口的第一个子窗口开始查找
参数3=窗口类名：这里设置为IEFrame，即查找IE窗口
参数4=Nothing：不指定窗口标题，所有窗口全匹配
 
 
 
第二次循环调用FindWindowEx，
result = FindWindowEx(0, result, ieClass, Nothing)
使用第一次获得result作为第2参数，即从这个句柄的下一个子窗口句柄查找
 
 
 
通过以下代码验证上述代码：
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim listIe As New ArrayList
        listIe = findAllIe()
        If listIe.Count > 0 Then
            For i As Integer = 0 To listIe.Count - 1
                ListBox1.Items.Add(CType(listIe.Item(i), Integer).ToString)
            Next
        End If
    End Sub
在ListBox中列出当前打开的Ie窗口，这里打开了2个Ie窗口：
 
 
 
 
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
 
学习更多vb.net知识，请参看vb.net 教程 目录
 
 
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/uruseibest/article/details/77918471

相关教程