VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >
  • VB.NET 通过窗口句柄,获取webbrowser控件HTML内容

VB.NET通过窗口句柄,获取webbrowser控件HTML内容

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

Class Win32API

    <DllImport("user32.dll", EntryPoint:="FindWindow")> _
    Public Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function


    <DllImport("user32.dll", EntryPoint:="FindWindowEx")> _
    Public Shared Function FindWindowEx(ByVal hwndParent As IntPtr, ByVal hwndChildAfter As IntPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As IntPtr
    End Function


    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Public Shared Function RegisterWindowMessage(ByVal lpString As String) As UInteger
    End Function


    <DllImport("oleacc.dll", PreserveSig:=False)> _
    Public Shared Function ObjectFromLresult(ByVal lResult As UIntPtr, <MarshalAs(UnmanagedType.LPStruct)> ByVal refiid As Guid, ByVal wParam As IntPtr) As <MarshalAs(UnmanagedType.[Interface])> Object
    End Function


    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    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

相关教程