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

ゞ浴缸里的玫瑰 2022-09-11 11:17 109阅读 0赞

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

七、一个完善的程序

Public Class FormMain

Public Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (

ByVal hwndParent As Integer,

ByVal hwndChildAfter As Integer,

ByVal lpszClass As String,

ByVal lpszWindow As String) As Integer

Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (

ByVal lpString As String) As Integer

Private Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (

ByVal hWND As Integer,

ByVal msg As Integer,

ByVal wParam As Integer,

ByRef lParam As Integer,

ByVal fuFlags As Integer,

ByVal uTimeout As Integer,

ByRef lpdwResult As Integer) As Integer

Private Const WM\_PAINT = &HF

Private Const WM\_SIZE = &H5

Private Const SIZE\_RESTORED = 0

Private Const SMTO\_ABORTIFHUNG = &H2

Private Const SMTO\_NOTIMEOUTIFNOTHUNG = &H8

Private Declare Function ObjectFromLresult Lib "oleacc" (

ByVal lResult As Integer,

ByRef riid As Guid,

ByVal wParam As Integer,

ByRef ppvObject As mshtml.IHTMLDocument2) As Integer

Private Structure IEWindowHwnd

Dim IEhwnd As Integer   'IE窗口句柄

Dim FTabhwnd As Integer 'Frame Tab的窗口句柄

Dim Ie\_SHwnd As Integer '对应IE\_Server的窗口句柄

End Structure

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

Private Sub cbListIE\_Click(sender As Object, e As EventArgs) Handles cbListIE.Click

Dim listIe As New ArrayList

listIe = getIhtmlDoc()

If listIe.Count > 0 Then

For i As Integer = 0 To listIe.Count - 1

Dim subList As New ListViewItem()

subList.Text = i.ToString

Dim iedocInfo As New IeDocStructure

iedocInfo = CType(listIe.Item(i), IeDocStructure)

subList.SubItems.Add(iedocInfo.title)

subList.SubItems.Add(iedocInfo.url)

lvListIE.Items.Add(subList)

Next

End If

End Sub

''' <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

''' <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

''' <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

''' <summary>

''' 获得所有的IE窗口hwnd

''' </summary>

''' <returns></returns>

''' <remarks></remarks>

Private Function findAllIe() As ArrayList

Dim IEHwndArray As New ArrayList

Dim result As Integer

'需要查找类名 IEFrame

Dim ieClass As String = "IEFrame"

Try

'获得第一个打开的IE窗口

result = FindWindowEx(0, 0, ieClass, Nothing)

Do While result <> 0

IEHwndArray.Add(result)

'获得下一个IE窗口，直到返回0

result = FindWindowEx(0, result, ieClass, Nothing)

Loop

Catch ex As Exception

Return IEHwndArray

End Try

Return IEHwndArray

End Function

''' <summary>

''' 从Internet Explorer\_Server获得IHTMLDocument2对象

''' </summary>

''' <param name="IEShwnd">Internet Explorer\_Server 句柄</param>

''' <returns></returns>

''' <remarks></remarks>

'''

Public Function getDocumentfromIES(ByVal IEShwnd As Integer) As mshtml.IHTMLDocument2

Dim WM\_Html\_GETOBJECT As Integer

WM\_Html\_GETOBJECT = RegisterWindowMessage("WM\_HTML\_GETOBJECT")

Dim tempInt As Integer = 0

SendMessageTimeout(IEShwnd, WM\_Html\_GETOBJECT, 0, 0, SMTO\_ABORTIFHUNG, 1000, tempInt)

Dim GUID\_IHTMLDocument As New Guid("\{626FC520-A41E-11CF-A731-00A0C9082637\}")

Dim I\_IEdocument As mshtml.IHTMLDocument2

If ObjectFromLresult(tempInt, GUID\_IHTMLDocument, 0, I\_IEdocument) = 0 Then

Return I\_IEdocument

End If

Return Nothing

End Function

End Class

运行结果：

![Center][]

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

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

————————————————

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

[Center]: /images/20220828/4a5882bea57c4eda9992630d2cb87ff3.png

发表评论取消回复

表情：

评论列表（有 0 条评论，109人围观）

还没有评论，来说两句吧...

相关阅读

相关针对IE浏览器的兼容性ie7、ie8、ie9

相对于来说浏览器的兼容性对于小伙伴来说是很头疼的吧！今天我在修改代码的时候，对于var cvts = document.getElementsByClassName("ap

- 日理万妓/ 2022年09月16日 13:27/ 0 赞/ 386 阅读

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。八、更加深入的例子同12章中通过 HtmlElement类或者其

小灰灰/ 2022年09月11日 11:18/ 0 赞/ 99 阅读

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

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

ゞ浴缸里的玫瑰/ 2022年09月11日 11:17/ 0 赞/ 110 阅读

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。六、获得Ie窗口的标题和网址在上一小节，我们创建了从Interne

超、凢脫俗/ 2022年09月11日 11:17/ 0 赞/ 110 阅读

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

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

ゝ一世哀愁。/ 2022年09月11日 11:17/ 0 赞/ 85 阅读

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

四、获得Ie窗口 Internet Explorer\_Server 句柄 IEFrame->Frame Tab->TabWindowClass->shell DocObje

落日映苍穹つ/ 2022年09月11日 11:17/ 0 赞/ 117 阅读

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。三、获得Ie窗口 Frame Tab 句柄 IEFrame->Fra

Myth丶恋晨/ 2022年09月11日 11:17/ 0 赞/ 173 阅读

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。二、获得Ie窗口句柄通过上一小节的教程，我们可知Ie窗口的类名为

我就是我/ 2022年09月11日 11:17/ 0 赞/ 106 阅读

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。一、获得Ie窗口的结构关于查看Ie浏览器的结构请按照以下步骤：

喜欢ヅ旅行/ 2022年09月11日 11:12/ 0 赞/ 108 阅读

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

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。之前教程中同大家一起学习了使用WebBrowser控件浏览网页、传递

青旅半醒/ 2022年09月11日 11:12/ 0 赞/ 111 阅读