通过其他程序的Internet Explorer_Server句柄打开网页

CoInitialize(NULL);
 
 IWebBrowser2* pWebBrowser2=NULL;
 HRESULT hr;


 // Explicitly load MSAA so we know if it's installed
 HINSTANCE hInst = ::LoadLibrary( _T("OLEACC.DLL") );
 if ( hInst )
 {
  LRESULT lRes;
  UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
  ::SendMessageTimeout( hWnd, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*)&lRes );
  
  LPFNOBJECTFROMLRESULT pfObjectFromLresult = (LPFNOBJECTFROMLRESULT)::GetProcAddress( hInst, _T("ObjectFromLresult") );
  if (pfObjectFromLresult)
  {
   CComPtr<IServiceProvider> spServiceProv;
   hr = (*pfObjectFromLresult)( lRes, IID_IServiceProvider, 0, (void**)&spServiceProv );
   if ( SUCCEEDED(hr) )
   {
    hr = spServiceProv->QueryService(SID_SWebBrowserApp,IID_IWebBrowser2,(void**)&pWebBrowser2);


    if ( SUCCEEDED(hr) )
{


COleVariant vaUrl(url);
_variant_t v1, v2, v3, v4;
v1.vt = VT_NULL;
v2.vt = VT_NULL;
v3.vt = VT_NULL;
v4.vt = VT_NULL;
pWebBrowser2->Navigate2(&vaUrl, &v1, &v2, &v3, &v4);
}
MessageBox("laiguo");
   } // else document not ready
  } // else Internet Explorer is not running
  ::FreeLibrary( hInst );
 } // else Active Accessibility is not installed
 
 CoUninitialize();
 
 //return SUCCEEDED(hr) ? pWebBrowser2 : NULL;