AxWebBrowser 实现的多进程浏览器 （一）

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

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