vb实现webbrowser显示html VB.NET 通过窗口句柄 获取webbrowser控件HTML内容

通过窗口句柄，获取webbrowser控件HTML内容

通过Sendmessage获取IE浏览器内容 webbrowser控件内容获取

Class Win32API _

Public Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

End Function

_

Public Shared Function FindWindowEx(ByVal hwndParent As IntPtr, ByVal hwndChildAfter As IntPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As IntPtr

End Function

_

Public Shared Function RegisterWindowMessage(ByVal lpString As String) As UInteger

End Function

_

Public Shared Function ObjectFromLresult(ByVal lResult As UIntPtr, ByVal refiid As Guid, ByVal wParam As IntPtr) As Object

End Function

_

Public Shared Function SendMessageTimeout(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As UIntPtr, ByVal lParam As IntPtr, ByVal fuFlags As SendMessageTimeoutFlags, ByVal uTimeout As UInteger, _

ByRef lpdwResult As UIntPtr) As IntPtr

End Function

Public Enum SendMessageTimeoutFlags As UInteger

SMTO_NORMAL = &H0

SMTO_BLOCK = &H1

SMTO_ABORTIFHUNG = &H2

SMTO_NOTIMEOUTIFNOTHUNG = &H8

End Enum

End Class

Public Class IEWindow

Public Shared Function GetIEWindowDocument2(ByVal editHWnd5 As IntPtr) As HTMLDocumentClass

Dim lRes As New UIntPtr()

Dim app2_GenerateEvent As UInteger = Win32API.RegisterWindowMessage("WM_HTML_GETOBJECT")

Win32API.SendMessageTimeout(editHWnd5, app2_GenerateEvent, UIntPtr.Zero, IntPtr.Zero, Win32API.SendMessageTimeoutFlags.SMTO_NOTIMEOUTIFNOTHUNG, 1000, _

lRes)

Dim obj As HTMLDocumentClass = DirectCast(Win32API.ObjectFromLresult(lRes, GetType(IHTMLDocument).GUID, IntPtr.Zero), HTMLDocumentClass)

Return obj

End Function

Public Shared Function GetIEWindowDocument(ByVal windowName As String) As HTMLDocumentClass

Dim lRes As New UIntPtr()

Dim parentHWnd As IntPtr = Win32API.FindWindow(Nothing, windowName)

MessageBox.Show(parentHWnd.ToString())

Dim editHWnd As IntPtr = Win32API.FindWindowEx(parentHWnd, IntPtr.Zero, "SplitterBar", "")

'需要查找的子窗口的类名，也就是输入框

MessageBox.Show(editHWnd.ToString())

Dim editHWnd1 As IntPtr = Win32API.FindWindowEx(editHWnd, IntPtr.Zero, "StandardWindow", "")

'需要查找的子窗口的类名，也就是输入框

MessageBox.Show(editHWnd1.ToString())

Dim editHWnd2 As IntPtr = Win32API.FindWindowEx(editHWnd1, IntPtr.Zero, "SimpleBrowser", "")

'需要查找的子窗口的类名，也就是输入框

Dim editHWnd3 As IntPtr = Win32API.FindWindowEx(editHWnd2, IntPtr.Zero, "Shell Embedding", "")

'需要查找的子窗口的类名，也就是输入框

Dim editHWnd4 As IntPtr = Win32API.FindWindowEx(editHWnd3, IntPtr.Zero, "Shell DocObject View", "")

'需要查找的子窗口的类名，也就是输入框

MessageBox.Show("Shell DocObject View" & editHWnd2.ToString())

Dim editHWnd5 As IntPtr = Win32API.FindWindowEx(editHWnd4, IntPtr.Zero, "Internet Explorer_Server", "")

'需要查找的子窗口的类名，也就是输入框

MessageBox.Show(editHWnd3.ToString())

Dim app2_GenerateEvent As UInteger = Win32API.RegisterWindowMessage("WM_HTML_GETOBJECT")

Win32API.SendMessageTimeout(editHWnd5, app2_GenerateEvent, UIntPtr.Zero, IntPtr.Zero, Win32API.SendMessageTimeoutFlags.SMTO_NOTIMEOUTIFNOTHUNG, 1000, _

lRes)

Dim obj As HTMLDocumentClass = DirectCast(Win32API.ObjectFromLresult(lRes, GetType(IHTMLDocument).GUID, IntPtr.Zero), HTMLDocumentClass)

Return obj

End Function

End Class