VB.NET 通过窗口句柄,获取webbrowser控件HTML内容
来源:互联网 发布:unity3d 3dmax 编辑:程序博客网 时间:2024/05/16 13:57
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
- VB.NET 通过窗口句柄,获取webbrowser控件HTML内容
- vb.net webbrowser控件如何获取鼠…
- vb.net WebBrowser控件使用
- 通过ProcessID获取窗口句柄
- 通过鼠标获取窗口句柄
- 通过窗口句柄获取窗口指针!
- VB.Net 使用WebBrowser读取网页内容
- VB通过webbrowser获取httponly的cookie
- vb 获取窗口句柄 并发信息
- webBrowser中为html控件赋值及调用js[vb.net]
- vb.net webbrowser控件 设置代理IP,webbrowser 代理IP
- 通过控件句柄获取控件实例
- 通过进程获取窗口的句柄
- 通过进程获取窗口的句柄
- vs不支持通过afxgetmainwnd()获取窗口句柄
- 通过句柄,获取窗口的指针
- 通过进程Id获取窗口句柄
- 通过进程id获取窗口句柄
- 非线性曲线拟合函数 lsqcurvefit 最小二乘
- android4.2 PC端查看storage文件和MID端路径不一致问题
- 关联规则挖掘评述
- vsftpd虚拟用户配置
- sort函数对数组排序
- VB.NET 通过窗口句柄,获取webbrowser控件HTML内容
- Android connect函数的使用
- js判断IE浏览器是否安装插件
- 出奇制胜:淘宝推广手记
- 1小时ASP快速入门
- 倒腾(jdbc更改版,包括dao和测试)
- Mysql常用
- python crawler0723.py
- 黑马程序员——如何理解成员变量在堆内,局部变量在栈内?