枚举HTML中的超链接

//IHTMLDocument2::links Property

void EnumLinks(IHTMLDocument2 *phtmlDoc)
{
  do
  {
    if(phtmlDoc == NULL)
      break;

    IHTMLElementCollection *p = NULL;
    if(FAILED(phtmlDoc->get_links(&p)))
      break;
    
    LONG iMaxItem = 0;
    if(FAILED(p->get_length(&iMaxItem)) || iMaxItem <= 0)
      break;

    for(LONG i=0; i<iMaxItem; i++)
    {
      _variant_t index = i;
      IDispatch *pvdisp = NULL;          
      if(FAILED(p->item( index, index, &pvdisp)))
        continue;
      
      IHTMLElement *pElement = NULL;
      if(FAILED(pvdisp->QueryInterface(IID_IHTMLElement, (void**)&pElement)))
        continue;

      //显示出来字串
      BSTR showText;
      pElement->get_innerText(&showText);      
      SysFreeString(showText);

      //实际连接地址
      BSTR linkText;
      pElement->toString(&linkText);
      SysFreeString(linkText);

      pElement->Release();
    }
  }while(0);
}