-
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
栏目列表
最新更新
用python写一个自动生成春联的软件,打包
利用Python解决掉谷歌人机验证,全自动识
用python实现微信、钉钉等软件多开
Python采集ip代理,并检测是否可用(仅用
Python写的一个GUI界面的小说爬虫软件
用python爬取jk小姐姐照片慢慢看「本地直
超方便的 Python 自动唤醒窗口截图脚本
5个方便好用的Python自动化脚本
刚刚出炉的冬奥会吉祥物:冰墩墩,附源
没买抢冰墩墩,那咱们自己用python画一个
MongoDB常用命令(2)
MongoDB基本介绍与安装(1)
SQLServer触发器调用JavaWeb接口
SQL Server索引的原理深入解析
SqlServer2016模糊匹配的三种方式及效率问题
SQL中Truncate的用法
sqlserver 多表关联时在where语句中慎用tri
链接服务器读取Mysql---出现消息 7347,级别
SQL Server解惑——为什么你拼接的SQL语句换
MySQL视图了解一下
大前端JS篇之搞懂【WeakSet】
前端基础之JavaScript(一)
大前端工程化之写一个简单的webpack插件
前端基础之JavaScript(二)
【JavaScript】笔记(7)--- JSON(对象的创建
Ubuntu 16.04 更改系统语言为简体中文 ####
增删商品计算价格
【JavaScript】笔记(6)--- BOM(open 与 clo
【JavaScript】笔记(5)--- DOM(续)(复选
【JavaScript】笔记(4)--- DOM(初步)(获取文