VC中调用JavaScript的代码片段

m_ReUrl.Format("javascript:CategHandle('%d','%s','%d','yes')", 
               g_nGroupIndex + 1,dlg.m_vFileGroup[g_nGroupIndex].strGroup,dlg.m_vFileGroup.size());
 
  CComPtr<IDispatch> ppDisp = NULL;
  m_browser->get_Document(&ppDisp);
  if( ppDisp == NULL)  return;
  CComPtr<IHTMLDocument2> ppDoc2 = NULL;
  ppDisp->QueryInterface(IID_IHTMLDocument2, (void**)&ppDoc2 );
  if(ppDoc2 == NULL) return;

  CComPtr<IHTMLWindow2> ppHtmlWindow = NULL;
  ppDoc2->get_parentWindow(&ppHtmlWindow);
  if( ppHtmlWindow == NULL ) return;

  CComBSTR bstrJsCode(m_ReUrl);
  CComBSTR bstrJsLang("JavaScript");
  COleVariant var;
  HRESULT hr = ppHtmlWindow->execScript(bstrJsCode, bstrJsLang, &var );