Код (C++)

BOOL CAXControl::methAddPropertyEventHandling(CValue &RetVal, CValue **params)
{
	if(!m_pCtrlCnt)
	{
		RuntimeError("Íå çàäàí ðîäèòåëüñêèé ýëåìåíò óïðàâëåíèÿ");
		return FALSE;
	}
	CString className=params[0]->GetString();
	className.TrimRight();
		if(!m_pCtrlCnt->m_pControl)
		return FALSE;


	IProvideClassInfoPtr iUnkControl=m_pCtrlCnt->m_pControl->GetControlUnknown();
	iUnkControl->AddRef();

	if(iUnkControl==NULL)
		return FALSE;


	//*********************
	// Ïîëó÷àåì ñâîéñòâî Document
	IDispatch *idispWebBrowser;
	HRESULT hresult = iUnkControl->QueryInterface(IID_IWebBrowser2, (void**)&idispWebBrowser);

	if (FAILED(hresult))
		return FALSE;
	DISPID id;
	OLECHAR * name = L"Document";
	hresult = idispWebBrowser->GetIDsOfNames(
	   IID_NULL,
	   &name,
	   1, LOCALE_USER_DEFAULT,
	   &id);

	if (FAILED(hresult))
		return FALSE;

	VARIANT result;

	DISPPARAMS dp = {NULL, NULL, 0, 0};
	hresult = idispWebBrowser->Invoke(
		id,
		IID_NULL,
		LOCALE_USER_DEFAULT,
		DISPATCH_PROPERTYGET,
		&dp,
		&result,
		NULL,
		NULL
		);
	if (FAILED(hresult))
		return FALSE;


	IDispatch * idispDocument;
	if (result.ppdispVal == 0 || result.vt != VT_DISPATCH)
		return FALSE;

	idispDocument = V_DISPATCH(&result);
	idispDocument->AddRef();

	IProvideClassInfoPtr iProvideClassInfoDocument;
	hresult = idispDocument->QueryInterface(IID_IProvideClassInfo, (void**)&iProvideClassInfoDocument);


	IHTMLDocument2Ptr htmlDocument;
	hresult = idispDocument->QueryInterface(IID_IHTMLDocument2, (void**)&htmlDocument);
	if (FAILED(hresult))
		return FALSE;

	CAXDocumentEventHandler htmlDocumentEventHandler1 = CAXDocumentEventHandler(m_pCtrlCnt);
	htmlDocumentEventHandler = &htmlDocumentEventHandler1;

	VARIANT variantOnClick;
	variantOnClick.vt = VT_DISPATCH;
	variantOnClick.pdispVal = htmlDocumentEventHandler;
	hresult = htmlDocument->put_onclick(variantOnClick);



//	ClickEvents clickEvents1 = ClickEvents(m_pCtrlCnt);
//	clickEvents = &clickEvents1;
//	_variant_t clickDispatch;
//	clickDispatch.vt = VT_DISPATCH;
//	clickDispatch.pdispVal = clickEvents;

//	hresult = htmlDocument->put_onclick(clickDispatch);

	if (FAILED(hresult))
		return FALSE;

}