-
vb.net 教程 20-3 控制Ie浏览器 7
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
六、获得Ie窗口的标题和网址
在上一小节,我们创建了从Internet Explorer_Server句柄获得IHTMLDocument2对象的方法:getDocumentfromIES()
在 vb.net 教程 12-4 msHtml 1 ,已经学习过获得IHTMLDocument2的用处。
这里以获得当前打开的Ie窗口为例说明如何获得标题和网址:
创建一个自定义结构用来存储相关信息:
Public Structure IeDocStructure
Dim IEhwnd As Integer 'IE窗口句柄
Dim FTabhwnd As Integer 'Frame Tab的窗口句柄
Dim IE_SHwnd As Integer '对应IE_Server的窗口句柄
Dim title As String 'Document title
Dim url As String '网址
End Structure
具体实现代码:
''' <summary>
''' 获得所有打开IE的 mshtml.IHTMLDocument2
''' </summary>
''' <returns>返回所有mshtml.IHTMLDocument2 ArrayList</returns>
''' <remarks></remarks>
Public Function getIhtmlDoc() As ArrayList
Dim IEDocArray As New ArrayList
Dim IEDocInfo As IeDocStructure
'获得IEWindowHwnd结构的ArrayList
Dim IESArray As New ArrayList
IESArray = getIEServer()
If IESArray.Count = 0 Then Return IESArray
'循环获得返回的IEWindowHwnd结构
For i As Integer = 0 To IESArray.Count - 1
Dim IESHwnd As IEWindowHwnd = CType(IESArray(i), IEWindowHwnd)
'记录IE窗口的Hwnd
IEDocInfo.IEhwnd = IESHwnd.IEhwnd
'记录Frame Tab 窗口的Hwnd
IEDocInfo.FTabhwnd = IESHwnd.FTabhwnd
'记录Internet Explorer_Server窗口的Hwnd
IEDocInfo.IE_SHwnd = IESHwnd.Ie_SHwnd
'获得IHTMLDocument2接口
Dim IEdoc As mshtml.IHTMLDocument2
IEdoc = getDocumentfromIES(IESHwnd.Ie_SHwnd)
If IEdoc Is Nothing Then
Else
'当前的Url
IEDocInfo.url = IEdoc.url
'当前IE网页文档的标题
IEDocInfo.title = IEdoc.title
Select Case IEdoc.url
Case "about:blank" '如果无标题,且网址为about:blank
IEDocInfo.title = "about:blank"
Case "about:tabs" '如果无标题,且网址为about:tabs
IEDocInfo.title = "about:tabs"
Case Else
If IEdoc.title = "" Then
IEDocInfo.title = IEdoc.url
End If
IEDocArray.Add(IEDocInfo)
End Select
End If
Next
'返回IeDocStructure结构的ArrayList
Return IEDocArray
End Function
测试用代码:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
Dim listIe As New ArrayList
listIe = getIhtmlDoc()
If listIe.Count > 0 Then
For i As Integer = 0 To listIe.Count - 1
ListBox1.Items.Add(CType(listIe.Item(i), IeDocStructure).title)
Next
End If
End Sub
运行时情况:

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看vb.net 教程 目录
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/uruseibest/article/details/77924577
栏目列表
最新更新
用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(初步)(获取文