ActiveX与JS交互

0011．在COM组件中调用JavaScript函数

002// 连接点方式页面javascript脚本

003<object classid="CLSID:B568F111-DFE4-4944-B67F-0728AB2AB30F" id="testCom" VIEWASTEXT></object>

004<script language="JavaScript" for="testCom" event="staTe(s)">

005alert("State(" + s + ")");

006return 123;

007</script>

008<script language="JavaScript">

009testCom.FireStateEvent("Hello");

010</script>

011 

012// 事件属性方式页面javascript脚本

013function onState(s){

014alert("onState(" + s + ")");

015return 456;

016}

017var o = new ActiveXObject("TestATL.TestCom");

018o.onstaTe=onState;

019o.FireStateEvent("Hello");

020 

021// Com组件VC7.1 ATL代码

022__interface _ITestComEvents{

023[id(1), helpstring("State事件")] HRESULT State([in] BSTR str);

024};

025__event __interface _ITestComEvents;

026IDispatchPtr m_onState;        // 事件属性

027STDMETHOD(get_onState)(IDispatch** pVal) {

028*pVal = m_onState;

029return S_OK;

030};

031STDMETHOD(put_onState)(IDispatch* newVal) {

032m_onState = newVal;

033return S_OK;

034};

035STDMETHOD(FireStateEvent)(BSTR str) {

036__raise State(str);        // 激发连接点事件

037CComVariant result;

038CComVariant avarParams[1] = {str};

039DISPPARAMS dispParams = {avarParams, NULL, 1, 0};

040EXCEPINFO excepInfo;

041memset(&excepInfo, 0, sizeof excepInfo);

042UINT nArgErr = (UINT)-1;      // initialize to invalid arg

043if (m_onState)        // 激发属性事件

044HRESULT hr = m_onState->Invoke(0, IID_NULL, LOCALE_USER_DEFAULT,

045DISPATCH_METHOD, &dispParams, &result, &excepInfo, &nArgErr);

046return S_OK;

047}

048参见：

049How To Call a Script Function from a VC WebBrowser Application

050如何在COM object中使用 Javascript function object?

051在COM组件中调用JavaScript函数

052 

0532．从页面javascript向Com组件传递结构数组

054// 页面脚本

055var o = new ActiveXObject("TestATL.TestCom");

056o.onstaTe=onState;

057o.Put("array", {0: 123, 1: "abc"});

058o.Put("array", [456, "def"]);

059o.Put("array", [{name: "tom", age: 8}, {name: "jack", age: 10}]);

060var a = new Array(789, "ghi"); // has "length" property

061o.Put("array", a);

062 

063// Com组件VC7.1 ATL代码

064STDMETHODIMP CTestCom::Put(BSTR key, VARIANT value)

065{

066WCHAR output[4096] = L"";

067if(0 == wcsicmp(key, L"array") && VT_DISPATCH == value.vt)

068{

069IDispatchPtr spDisp = value.pdispVal;

070DISPID dispID = 0;

071DISPPARAMS dispParams = {NULL, NULL, 0, 0};

072CComVariant result;

073EXCEPINFO excepInfo;

074memset(&excepInfo, 0, sizeof excepInfo);

075UINT nArgErr = (UINT)-1; // initialize to invalid arg

076unsigned int length = 0; // 数组长度 或 属性 个数

077 

078     LPOLESTR func = L"length";

079HRESULT hr = spDisp->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);

080if(S_OK == hr){       // 如果有"length"属性

081hr = spDisp->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);

082if(S_OK == hr && VT_I4 == result.vt)

083length = result.intVal;       // 直接读取数组长度

084}else{

085unsigned int nTypeInfo = 0;

086hr = spDisp->GetTypeInfoCount(&nTypeInfo);

087ATLASSERT(1 == nTypeInfo);

088ITypeInfoPtr spTypeInfo;

089hr = spDisp->GetTypeInfo(0, 0, &spTypeInfo);

090TYPEATTR *pTypeAttr = NULL;

091hr = spTypeInfo->GetTypeAttr(&pTypeAttr);

092//ATLASSERT("{C59C6B12-F6C1-11CF-8835-00A0C911E8B2}" == pTypeAttr->guid);     // JScript:

093length = pTypeAttr->cVars;       // 从类型信息读取数组长度

094spTypeInfo->ReleaseTypeAttr(pTypeAttr);

095}

096for(unsigned int i=0; i<length; i++)

097{

098WCHAR buf[32];

099_itow(i, buf, 10);

100func = buf;

101hr = spDisp->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);

102hr = spDisp->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);

103if(S_OK != hr)

104continue;

105if(VT_DISPATCH == result.vt){

106IDispatchPtr spItem = result.pdispVal;

107func = L"name";

108hr = spItem->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);

109hr = spItem->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);

110if(S_OK == hr && VT_BSTR == result.vt)

111swprintf(output + wcslen(output), L"name=%s", result.bstrVal);

112func = L"age";

113hr = spItem->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispID);

114hr = spItem->Invoke(dispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispParams, &result, &excepInfo, &nArgErr);

115if(S_OK == hr && VT_I4 == result.vt)

116swprintf(output + wcslen(output), L" age=%d/n", result.intVal);

117}else if(VT_BSTR == result.vt)

118swprintf(output + wcslen(output), L"BSTR:%s/n", result.bstrVal);

119else if(VT_I4 == result.vt)

120swprintf(output + wcslen(output), L"I4:%d/n", result.intVal);

121else

122swprintf(output + wcslen(output), L"item.vt=%d/n", result.vt);

123}

124}

125FireStateEvent(output);

126return S_OK;

127}

128 

1293．枚举IE窗口的内容，并调用其中的脚本

130#import <mshtml.tlb>       // Internet Explorer 5

131#import <shdocvw.dll>

132SHDocVw::IShellWindowsPtr spSHWinds;

133spSHWinds.CreateInstance(__uuidof(SHDocVw::ShellWindows));

134long nCount = spSHWinds->GetCount();

135IDispatchPtr spDisp;

136for (long i = 0; i < nCount; i++)

137{

138_variant_t va(i, VT_I4);

139spDisp = spSHWinds->Item(va);

140SHDocVw::IWebBrowser2Ptr spBrowser(spDisp);

141if (spBrowser != NULL)

142{

143_bstr_t location = spBrowser->GetLocationName();

144if(_bstr_t(L"Test DapCtrl") == location)       // 找指定IE窗口

145{

146IHTMLDocument2Ptr spDoc(spBrowser->GetDocument());

147if (spDoc != NULL)

148{

149_bstr_t exp = m_onState;

150IDispatch *pdis = NULL;

151hr = spDoc->get_Script(&pdis);

152if(pdis){

153DISPID tmpDispID = 0;

154LPOLESTR func = L"Test"; // javascript 函数名

155hr = pdis->GetIDsOfNames(GUID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &tmpDispID);

156if(S_OK == hr)

157hr = pdis->Invoke(tmpDispID, IID_NULL, LOCALE_USER_DEFAULT,

158DISPATCH_METHOD, &dispParams, &result, &excepInfo, &nArgErr);

159}

160}

161}

162}

163}

164参见：

165HOWTO: Connect to a Running Instance of Internet Explorer

166ActiveX组件与JavaScript交互

167ActiveX组件控制其所在的IE窗口

168 

1694．在VC中执行脚本

170#import <msscript.ocx>       // msscript.ocx

171using namespace MSScriptControl;

172IScriptControlPtr pScriptControl(__uuidof(ScriptControl));

173LPSAFEARRAY psa;

174SAFEARRAYBOUND rgsabound[]       = { 1, 0 }; // 1 elements, 0-based

175int i;

176psa = SafeArrayCreate(VT_VARIANT, 1, rgsabound);

177if (!psa)

178{

179return E_OUTOFMEMORY;

180}

181VARIANT vFlavors[1];

182for (i = 0; i < 1; i++)

183{

184VariantInit(&vFlavors[i]);

185V_VT(&vFlavors[i]) = VT_BSTR;

186}

187V_BSTR(&vFlavors[0]) = SysAllocString(bstr);

188long lZero = 0;

189hr = SafeArrayPutElement(psa, &lZero,&vFlavors[0]);

190for(i=0;i<1;i++)

191{

192SysFreeString(vFlavors[i].bstrVal);

193}

194pScriptControl->Language = "JScript";

195pScriptControl->AllowUI = TRUE;

196_bstr_t exp = L"1+2+3";

197_variant_t outpar = pScriptControl->Eval(exp);

198//_variant_t outpar = pScriptControl->ExecuteStatement(exp);

199//_variant_t outpar = pScriptControl->Run("MyStringFunction", &psa);

200_bstr_t bstrReturn = (_bstr_t)outpar;

201char *pResult = (char *)bstrReturn;

202SafeArrayDestroy(psa);

203参见：

204

How To Call Run() Method of the Microsoft Script Control in C++

 

http://www.cnblogs.com/zdxster/archive/2011/01/27/1945879.html