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