如何得到IE中選定區域的html源碼

//模擬document.selection.createRange().text;

//獲得選擇文本;

HRESULT hr = S_OK;

BSTR bstr;

IHTMLSelectionObject* spHTMLSelectionObject;

CComPtr<IDispatch> spDisp;

CComPtr<IHTMLTxtRange> spHTMLTxtRange;

hr = m_spIHTMLDocument2->get_selection((IHTMLSelectionObject**)(&spHTMLSelectionObject));

hr = spHTMLSelectionObject->createRange((IDispatch**)&spHTMLTxtRange);

hr = spHTMLSelectionObject->Release();

hr = spHTMLTxtRange->get_text(&bstr);

::SysFreeString(bstr);