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

当前位置:

首页 > 编程开发 > 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)

End If

End Sub

在ListBox中列出当前打开的Ie窗口，这里打开了2个Ie窗口：

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

学习更多vb.net知识，请参看vb.net 教程目录

————————————————

原文链接：https://blog.csdn.net/uruseibest/article/details/77918471

栏目列表