vc里怎么用COM控制HTML元素(20分)

[oicqkill]

vc里怎么用COM控制HTML元素(20分)

比如说，在VC里嵌入的HTML，怎么捕获对HTML的各种操作并处理他

请给代码例子

[e-mail]

谢谢

[albertjin123]

I have a very simple one

sending you mail...

[xuying]

这是一段例子，还给你发了完整的程序。
HRESULT hr;
LPCONNECTIONPOINTCONTAINER pCPC = NULL;
LPOLEOBJECT pOleObject = NULL;
LPOLECONTROL pOleControl = NULL;


// initialize all the class member variables
m_dwRef = 1; // must start at 1 for the current instance
m_hrConnected = S_FALSE;
m_dwCookie = 0;
m_pMSHTML = NULL;
m_pCP = NULL;
m_pAnchorLinks = NULL;
m_pImageLinks = NULL;


// Create an instance of an dynamic HTML document
if (FAILED(hr = CoCreateInstance( CLSID_HTMLDocument, NULL, CLSCTX_INPROC_SERVER, IID_IHTMLDocument2, (LPVOID*)&m_pMSHTML )))
{
goto Error;
}

if (FAILED(hr = m_pMSHTML->QueryInterface(IID_IOleObject, (LPVOID*)&pOleObject)))
{
goto Error;
}
hr = pOleObject->SetClientSite((IOleClientSite*)this);
pOleObject->Release();

if (FAILED(hr = m_pMSHTML->QueryInterface(IID_IOleControl, (LPVOID*)&pOleControl)))
{
goto Error;
}
hr = pOleControl->OnAmbientPropertyChange(DISPID_AMBIENT_DLCONTROL);
pOleControl->Release();

// Hook up sink to catch ready state property change
if (FAILED(hr = m_pMSHTML->QueryInterface(IID_IConnectionPointContainer, (LPVOID*)&pCPC)))
{
goto Error;
}

if (FAILED(hr = pCPC->FindConnectionPoint(IID_IPropertyNotifySink, &m_pCP)))
{
goto Error;
}

m_hrConnected = m_pCP->Advise((LPUNKNOWN)(IPropertyNotifySink*)this, &m_dwCookie);

Error:
if (pCPC) pCPC->Release();