vb.net 教程 20-3 控制Ie浏览器 4
来源:互联网 发布:服务网络占用硬盘 编辑:程序博客网 时间:2024/06/05 16:31
三、获得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 教程 目录
阅读全文
0 0
- vb.net 教程 20-3 控制Ie浏览器 4
- vb.net 教程 20-3 控制Ie浏览器 3
- vb.net 教程 20-3 控制Ie浏览器 2
- vb.net 教程 20-3 控制Ie浏览器 1
- vb.net 教程 20-3 控制Ie浏览器 5
- 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
- vb.net 教程 12-4 msHtml 3
- c++控制ie浏览器
- c# 控制IE浏览器
- c# 控制IE浏览器
- C#控制IE浏览器
- 打字母游戏+贴图技术
- 算法与数据结构-贪心算法及背包问题解决
- 字符串
- 计算机设计思想 —— 代理(proxy)
- redis集群操作
- vb.net 教程 20-3 控制Ie浏览器 4
- Apache Storm 官方文档 —— Trident 教程 原文链接 译者:魏勇 Trident 是 Storm 的一种高度抽象的实时计算模型,它可以将高吞吐量(每秒百万级)数据输入、有状
- 常用易混的输入输出函数用法
- Spring面试60题
- 【Oracle】Clob字段读取,写入,更新
- JDBC总结
- Python3:《机器学习实战》之朴素贝叶斯(1)算法概述
- 图书管理系统(数据结构-C++)
- 关于vs2015 MvcContrib 多项目 无法找到资源 解决办法