vb.net 教程 20-3 控制Ie浏览器 5
来源:互联网 发布:软件效果器怎么用 编辑:程序博客网 时间:2024/06/14 05:32
四、获得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 教程 目录
阅读全文
0 0
- vb.net 教程 20-3 控制Ie浏览器 5
- vb.net 教程 20-3 控制Ie浏览器 3
- vb.net 教程 20-3 控制Ie浏览器 2
- vb.net 教程 20-3 控制Ie浏览器 1
- vb.net 教程 20-3 控制Ie浏览器 4
- vb.net 教程 20-3 控制Ie浏览器 6
- vb.net 教程 20-3 控制Ie浏览器 7
- vb.net 教程 20-3 控制Ie浏览器 8
- vb.net 教程 20-3 控制Ie浏览器 9
- VB完全控制IE浏览器,操作ie对象,响应ie事件
- vb操作ie浏览器
- VB IE控制
- VB 控制 IE
- c++控制ie浏览器
- c# 控制IE浏览器
- c# 控制IE浏览器
- C#控制IE浏览器
- vb.net 教程 2-3 流程控制:循环语句 For...Next 1
- 电脑启动Intel vt_x,即虚拟机模式
- Java 高效String转int
- HDU1114 存钱罐 完全背包
- 八、内存管理
- Angular部署百度UMEditor富文本编辑器
- vb.net 教程 20-3 控制Ie浏览器 5
- Java虚拟机(HOTSPOT)源代码编译步骤
- 高性能后台服务器架构设计
- 【报错1】java程序中单元测试老是报初始化错误
- oracle加上LoadRunner是一件非常难但又非常有用的事
- 数列游戏IV
- http status 错误码
- yii migrate的使用
- Java学习1:搭建开发环境和第一个Java程序