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

2024-04-12 21:32:33

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

三、获得Ie窗口 Frame Tab 句柄

IEFrame->Frame Tab->TabWindowClass->shell DocObject View->Internet Explorer_Server

上一小节获得了IEFrame句柄，本节继续获得Frame Tab 句柄

先自定义一个结构，用来保存相关句柄信息

Private Structure IEWindowHwnd
Dim IEhwnd As Integer 'IE窗口句柄
Dim FTabhwnd As Integer 'Frame Tab的窗口句柄
Dim Ie_SHwnd As Integer '对应IE_Server的窗口句柄
End Structure

本小节中，Ie_SHwnd暂时用不上。

获得Frame Tab句柄的代码：

''' <summary>
''' 获得指定IE窗口中的"Frame Tab",可能存在多个
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Private Function getIEFrameTab() As ArrayList
Dim IEFrameTabHwndArray As New ArrayList

Dim IEframeTabHwnd As IEWindowHwnd

'获得所有的IEFrame句柄
Dim IEHwndArray As New ArrayList
IEHwndArray = findAllIe()
'如果IEFrame数量为0，那么就立即返回空IEFrameTabHwndArray
If IEHwndArray.Count = 0 Then Return IEFrameTabHwndArray

Dim result As Integer
'需要查找类名"FrameTab"
Dim ieClass As String = "Frame Tab"
'循环获得FrameTab Hwnd
For i As Integer = 0 To IEHwndArray.Count - 1
Try
'从IEFrame句柄获得它下面的第一个FrameTab句柄
result = FindWindowEx(CType(IEHwndArray(i), Integer), 0, ieClass, Nothing)
Do While result <> 0
'记录IE窗口的Hwnd,一直传递下去
IEframeTabHwnd.IEhwnd = CType(IEHwndArray(i), Integer)
'记录当前FrameTab窗口的Hwnd,一直传递下去
IEframeTabHwnd.FTabhwnd = result
'用于记录IE_Server的窗口句柄，暂时用不上
IEframeTabHwnd.Ie_SHwnd = 0

IEFrameTabHwndArray.Add(IEframeTabHwnd)
'从IEFrame句柄获得它下面的下一个FrameTab句柄，直到返回0
result = FindWindowEx(CType(IEHwndArray(i), Integer), result, ieClass, Nothing)
Loop
Catch ex As Exception
Continue For
End Try
Next
Return IEFrameTabHwndArray
End Function
测试用的调用代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.Items.Clear()

Dim listIe As New ArrayList
listIe = getIEFrameTab()
If listIe.Count > 0 Then
For i As Integer = 0 To listIe.Count - 1
ListBox1.Items.Add(CType(listIe.Item(i), IEWindowHwnd).FTabhwnd)
Next
End If
End Sub

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

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

————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

vb.net 教程 20-3 控制Ie浏览器 4相关推荐

vb.net 教程 2-3 流程控制:循环语句 For...Next
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. For...Next 语句用于执行重复操作最简单的结构: For 初始值 To 结束值执 ...
vb.net 教程 20-3 控制Ie浏览器 7 获得Ie窗口的标题和网址
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 六.获得Ie窗口的标题和网址在上一小节,我们创建了从Internet Explorer_Ser ...
vb程序设计教程第4版龚沛曾实验答案解析
这里只是个人对书中题目的解答,并不代表最优代码.仅供参考.有哪里错误或者不足的地方还望指出,Thanks♪(･ω･)ﾉ以及不要脸地求探讨求点赞.嘿嘿这里使用的是<vb程序设计教程(第四版 ...
全国计算机二级vb 文库,全国计算机等级考试二级VB基础教程电子教案.ppt
全国计算机等级考试二级VB基础教程电子教案.ppt ,Visual Basic程序设计基础教程电子教案,制作人曾强聪,2004 年 4 月,课程内容,第 1 章,第 2 章,第 3 章,第 4 章, ...
STM32 电机教程 20 - 基于ST MC Workbench 无感FOC
前言磁场定向控制又称矢量控制(FOC), 本质上为控制定子电流的幅度和相位,使之产生的磁场和转子的磁场正交,以产生最大的扭矩. PMSM的磁场定向控制框图如下图所示: 第19讲成功实现了基于NUCL ...
Windows 8实例教程系列 - 布局控制
Windows 8实例教程系列 - 布局控制原文:Windows 8实例教程系列 - 布局控制与传统应用类似,Windows store应用允许开发人员通过布局控件管理应用UI. 本篇将讨论Win ...
vb.net 教程 20-4 库存管理系统3.14 出库单操作（FormStorageOutOrder）
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 关于<Visual Basic.Net 循序渐进>请到百度网盘下载,具体下载地址 ...
vb.net 教程 3-2 窗体编程之窗体 5
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 还有一种传递值的方法: 在Form2中定义一个公共(Public)变量,那么我们在Form1中定 ...
vb.net 教程 11-1 打印组件 4 PrintDocument 1
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 前几节讲了PrintDialog.PageSetupDialog,实际对应了打印机设置.页面设置 ...

最新文章

热门文章