Web Development

<br />
function UpdateLocation(sURL)<br />
{<br />
  //...<br />
  TopWndDoc = top.frames(0).document;<br />
  if (document.all)<br />
  {<br />
    TopWndDoc.all.Navigator.href=sURL;<br />
    TopWndDoc.all.Navigator.title ='ChristSake!';<br />
  } <br />
  else if (document.getElementById) <br />
  {<br />
    //...<br />
  }<br />
}

STDMETHODIMP CToolBand::SetSite(IUnknown *punkSite)
{
    // punkSite != 0
    m_spSite = pUnkSite;  //  CComPtr<IUnknown> m_spSite is a member of CToolBand

    //    1. get IOleWindow, call GetWindow and attach the (rebar) HWND to an internal window class
    ....

    //    2. get the top level web browser (here it comes...)
    CComPtr<IServiceProvider> spService;
    m_spSite->QueryService(IID_IServiceProvider, (void **)&spService);

    CComPtr<IServiceProvider> spService2;
    spService->QueryService(SID_STopLevelBrowser, IID_IServiceProvider, (void **)&spService2);

    spService2->QueryService(SID_SWebBrowserApp, IID_IWebBrowser2, (void **)&m_spWebBrowser2);
    // m_spWebBrowser2 is member in CToolBand and declared as CComPtr<IWebBrowser2>

    //    3. request advise for DWebBrowserEvents2 events
    CComQIPtr<IConnectionPointContainer> spCPC = m_spWebBrowser2;
    CComPtr<IConnectionPoint> spCP;
    spCPC->FindConnectionPoint(DIID_DWebBrowserEvents2, &spCP);

    spCP->Advise(GetUnknown(), &m_dwCookie);

    //    4. get IInputObjectSite

    //    5. create tool band toolbar window
    //    done
}

STDMETHODIMP CToolBand::Invoke(...)
{
     if(dispid == DISPID_BEFORENAVIGATE2)
    {
        ATLTRACE(_T("BeforeNavigate2"));
    }
    //    .. other if cases for various DISPIDs


   return E_NOTIMPL;
}