码迷,mamicode.com
首页 > Web开发 > 详细

AxWebBrowser 实现的多进程浏览器 (一)

时间:2017-10-07 17:40:20      阅读:168      评论:0      收藏:0      [点我收藏+]

标签:比较   with   核心   pre   nbsp   ops   ++   declare   doc   

我们使用 C#/VB.NET 进行 Trident 内核浏览器编程,大多都是单进程的,当打开的页面较多时比较容易出现卡死等情况。

单进程浏览器简单示例:

Public Class formBrowser
    Public WithEvents awb As New AxSHDocVw.AxWebBrowser
    Public isFirst As Boolean = True

    Private Sub formBrowser_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        awb.Dock = DockStyle.Fill
        Me.Controls.Add(awb)
        awb.Silent = True
        If isFirst Then awb.Navigate("http://www.geeuo.com")
    End Sub

    Private Sub awb_NewWindow3(sender As Object, e As AxSHDocVw.DWebBrowserEvents2_NewWindow3Event) Handles awb.NewWindow3
        Dim newForm As New formBrowser
        newForm.isFirst = False
        newForm.Show()
        e.ppDisp = newForm.awb.Application
    End Sub
End Class

  

从上面的代码可以看出,实现“多进程”的核心,可能就在 AxWebBrowser.NewWindow3 事件当中,在需要打开新的浏览器窗口时,我们只需要创建新的进程,并让新的网址页面在新的进程中打开,应该就可以了。

 

那么如何实现跨进程传递 AxWebBrowser.Application 对象呢?跨进程传递com对象貌似涉及到C++指针部分内容,实在太高深。

谷歌了一番发现可以通过“Internet Explorer_Server”句柄获取其所在的IWebBrowser2接口,而IWebBrowser2接口同样存在“Application”属性,但是貌似AxWebBrowser并未实现IWebBrowser2接口?

不管了,试试总归是可以的。

Declare Function ObjectFromLresult Lib "OLEACC.DLL" (ByVal lResult As Int32, ByRef riid As System.Guid, ByVal wParam As Int32, ByRef ppvObject As mshtml.IHTMLDocument) As Int32

<System.Runtime.InteropServices.DllImport("User32.dll")>
Public Shared Function RegisterWindowMessage(message As String) As Integer
End Function

<System.Runtime.InteropServices.DllImport("User32.dll")>
Public Shared Function SendMessageTimeout(hWnd As IntPtr, uMsg As Integer, wParam As IntPtr, lParam As IntPtr, fuFlags As Integer, uTimeout As Integer, ByRef lpdwResult As UIntPtr) As Integer
End Function

<System.Runtime.InteropServices.ComImport, System.Runtime.InteropServices.Guid("6d5140c1-7436-11ce-8034-00aa006009fa"), System.Runtime.InteropServices.InterfaceType(System.Runtime.InteropServices.ComInterfaceType.InterfaceIsIUnknown)>
Public Interface IServiceProvider
    Sub QueryService(ByRef guidService As Guid, ByRef riid As Guid, <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.Interface)> ByRef ppvObject As Object)
End Interface

<System.Runtime.InteropServices.DllImport("kernel32.dll")>
Public Shared Function LoadLibrary(lpLibFileName As String) As Integer
End Function


Public Shared Function GetIWebBrowser2(hwndInterneExplorer_Server As IntPtr) As SHDocVw.IWebBrowser2
    Dim IID_IWebBrowser2 As Guid = GetType(SHDocVw.IWebBrowser2).GUID
    Dim IID_IHTMLDocument2 As Guid = GetType(mshtml.IHTMLDocument2).GUID
    Dim SID_SWebBrowserApp As Guid = GetType(SHDocVw.IWebBrowserApp).GUID
    Dim doc2 As mshtml.IHTMLDocument2, web2 As SHDocVw.IWebBrowser2, tmpObj As Object
    doc2 = Nothing : web2 = Nothing : tmpObj = Nothing
    Try
        LoadLibrary("OLEACC.DLL")
        Dim nMsg As Integer = RegisterWindowMessage("WM_HTML_GETOBJECT")
        Dim lRes As UIntPtr = UIntPtr.Zero
        SendMessageTimeout(hwndInterneExplorer_Server, nMsg, New IntPtr(), New IntPtr(), &H2, 1000, lRes)  ‘ SMTO_ABORTIFHUNG = &H2
        If lRes.ToUInt32 <> 0 Then
            ObjectFromLresult(CInt(lRes.ToUInt32()), IID_IHTMLDocument2, 0, doc2)
            If doc2 IsNot Nothing Then
                System.Runtime.InteropServices.Marshal.GetIUnknownForObject(doc2)
                TryCast(doc2, IServiceProvider).QueryService(SID_SWebBrowserApp, IID_IWebBrowser2, tmpObj)
                web2 = TryCast(tmpObj, SHDocVw.IWebBrowser2)
            End If
        End If
    Catch
    End Try
    Return web2
End Function

  

测试了一下,可以实现在新进程中打开新的页面,然而新页面并未与之前的页面共享 session。而且新页面的 referrer 也为空。

技术分享

 

于是暂时以失败告终。

如果谁能解决,欢迎留言分享!

 

AxWebBrowser 实现的多进程浏览器 (一)

标签:比较   with   核心   pre   nbsp   ops   ++   declare   doc   

原文地址:http://www.cnblogs.com/hironpan/p/7634823.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!