vb.net 教程 20-3 控制Ie浏览器 3
发布时间:2020-12-16 22:19:03 所属栏目:大数据 来源:网络整理
导读:二、获得Ie窗口句柄 通过上一小节的教程,我们可知Ie窗口的类名为 IEFrame 那么通过 FindWindowEx() api函数就可以枚举 Ie窗口句柄: 具体代码如下: ''' summary ''' 获得所有的IE窗口hwnd ''' /summary ''' returns/returns ''' remarks/remarks Private F
二、获得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:不指定窗口标题,所有窗口全匹配
第二次循环调用FindWindowEx,
result = FindWindowEx(0,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 教程 目录 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |