二、获得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,ieClass,Nothing)
Do While result <> 0
IEHwndArray.Add(result)
'获得下一个IE窗口，直到返回0
result = FindWindowEx(0,result,Nothing)
Loop
Catch ex As Exception
Return IEHwndArray
End Try
Return IEHwndArray
End Function
FindWindowEx：
说明：在窗口列表中寻找与指定条件相符的子窗口
返回值：返回查找到的窗口的句柄
说明：在窗口列表中寻找与指定条件相符的子窗口
返回值：返回查找到的窗口的句柄
result = FindWindowEx(0,Nothing)
参数1=0：以桌面窗口为父窗口，查找桌面窗口的所有子窗口
参数2=0：窗口句柄，设置为0表示从第一个参数指定的窗口的第一个子窗口开始查找
参数3=窗口类名：这里设置为IEFrame，即查找IE窗口
参数4=Nothing：不指定窗口标题，所有窗口全匹配
参数1=0：以桌面窗口为父窗口，查找桌面窗口的所有子窗口
参数2=0：窗口句柄，设置为0表示从第一个参数指定的窗口的第一个子窗口开始查找
参数3=窗口类名：这里设置为IEFrame，即查找IE窗口
参数4=Nothing：不指定窗口标题，所有窗口全匹配
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 教程 目录
原文链接：https://www.f2er.com/vb/256396.html