how to get url and hostname and url text in one page

STDMETHODIMP CIEHlprObj::Invoke(DISPID dispidMember, REFIID riid, LCID lcid, WORD wFlags,
DISPPARAMS* pDispParams, VARIANT* pvarResult,
EXCEPINFO* pExcepInfo, UINT* puArgErr)
{
try
{


if(dispidMember == DISPID_DOCUMENTCOMPLETE)
{
/
// m_spWebBrowser2->get_LocationURL(&bstrUrlName); ->

// MessageBox(NULL,"doc","xxxxxxx",MB_OK);
//get document and set document
// CComPtr<IHTMLElement> body;
int ncount=0;
CComPtr<IDispatch> spDispatch;
CComPtr<IHTMLElementCollection> pElementCol;
CComPtr<IHTMLAnchorElement> pLoct;

TCHAR HostName[2*MAX_PATH];
TCHAR HostDesc[2*MAX_PATH];

CComQIPtr<IHTMLDocument2, &IID_IHTMLDocument2> pDoc2;
HRESULT hRes= m_spWebBrowser2->get_Document(&spDispatch);

IHTMLElement* ptext;


pDoc2 = spDispatch;
if(pDoc2!=NULL)
{
if (SUCCEEDED(pDoc2->get_links(&pElementCol)))
{
// AfxMessageBox("IHTMLElementCollection");
long p=0;
if(SUCCEEDED(pElementCol->get_length(&p)))
if(p!=0)
{


for(long i=0;i<=(p-1);i++)
{

CComBSTR String;
_variant_t index = i;
if(SUCCEEDED(pElementCol->item( index, index, &spDispatch)))
if(SUCCEEDED(spDispatch->QueryInterface( IID_IHTMLAnchorElement,(void **) &pLoct)))
//获得链接
pLoct->get_href(&String);
ZeroMemory(HostName,2*MAX_PATH);
lstrcpy(HostName,_bstr_t(String));
//获得链接的域名
pLoct->get_hostname(&String);
ZeroMemory(HostName,2*MAX_PATH);
lstrcpy(HostName,_bstr_t(String));
if(lstrlen(HostName))
{

//获得链接对应的文字
pLoct->QueryInterface(&ptext);
ptext->get_innerText(&String);
ZeroMemory(HostDesc,2*MAX_PATH);
lstrcpy(HostDesc,_bstr_t(String));


// MessageBox(NULL,HostName,HostName,MB_OK);
}
}
}
}

}



}// if(dispidMember == DISPID_DOCUMENTCOMPLETE)

}
catch (...)
{
}

return S_FALSE;
}