第一種:通過execScript調用。這種方法,雖然操作方便,但不能獲取返回值。
m_spHtmlDoc->get_parentWindow(&m_pHtmlWindow);VARIANT ret;ret.vt = VT_EMPTY;BSTR bstr = sScript.AllocSysString();bRet = m_pHtmlWindow->execScript(bstr, L"javascript", &ret);::SysFreeString(bstr);sRet = CString(ret);
第二種:先用GetIDsOfNames找到這個腳本函數名稱,然后再調用。這種方法可以返回結果,有返回值。但是無法調用js的系統函數,如eval。
BOOL CDhtmlDlgWindow::CallJScript(const CString strFunc, const CStringArray& paramArray, CComVariant* pVarResult){ CComPtr spScript; if (NULL==m_spHtmlDoc) { return FALSE; } HRESULT hr; hr = m_spHtmlDoc->get_Script(&spScript); if(!SUCCEEDED(hr)) { return FALSE; } CComBSTR bstrMember(strFunc); DISPID dispid = NULL; hr = spScript->GetIDsOfNames(IID_NULL,&bstrMember,1, LOCALE_SYSTEM_DEFAULT,&dispid); if(FAILED(hr)) { return FALSE; } const int arraySize = paramArray.GetSize(); DISPPARAMS dispparams; memset(&dispparams, 0, sizeof dispparams); dispparams.cArgs = arraySize; dispparams.rgvarg = new VARIANT[dispparams.cArgs]; for( int i = 0; i < arraySize; i++) { CComBSTR bstr = paramArray.GetAt(arraySize - 1 - i); // back reading bstr.CopyTo(&dispparams.rgvarg[i].bstrVal); dispparams.rgvarg[i].vt = VT_BSTR; } dispparams.cNamedArgs = 0; EXCEPINFO excepInfo; memset(&excepInfo, 0, sizeof excepInfo); CComVariant vaResult; UINT nArgErr = (UINT)-1; // initialize to invalid arg hr = spScript->Invoke(dispid,IID_NULL,0, DISPATCH_METHOD,&dispparams,&vaResult,&excepInfo,&nArgErr); delete [] dispparams.rgvarg; if(FAILED(hr)) { return FALSE; } *pVarResult = vaResult; return TRUE;}實際使用時,可能是先訪問(Navigate)了一個頁面。然后,在VC里面對這個頁面進行一些js調用,并取回結果。有可能這個js調用的函數是這個頁面 里面沒有的。一般可以用eval(一些js語句)這樣的形式來調用頁面里面沒有的函數,但是,現在上面兩種方法都不支持eval。
第三種:通過IScriptControl獲取當前文檔上下文,然后調用IScriptControl::raw_Eval運算。(只能用raw_Eval,用Eval方法會提示沒有權限。)
首先定義一個:IScriptControlPtr,然后在OnDocumentComplete里面調用一下 m_spHtmlDoc->get_parentWindow(&m_pHtmlWindow);
IScriptControlPtr->AddObject("window", m_pHtmlWindow, VARIANT_TRUE);
第三種需要import "msscript.ocx"
以上這篇VC調用javascript的幾種方法(推薦)就是小編分享給大家的全部內容了,希望能給大家一個參考,也希望大家多多支持武林網。
新聞熱點
疑難解答