VC中调用JavaScript的代码片段

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

  CComPtrIHTMLWindow2 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 );