XHARBOUR - Recuperando o conteudo de uma página na web

function main()
  local cText, oIE, cFile := "http://www.danfeview.com.br"
  oIE := CreateObject( "InternetExplorer.Application" )
  oIE:Navigate( cFile )
  do while .t.
     if oIE:Busy
        threadsleep( 500 )
     else
        exit
     endif
  enddo
  if valtype( oIE:Document ) == "O"
     cText := oIE:Document:Body:innerText
     ? cText
  else
     ? "error"
  endif
  oIE := NIL
  wait "..."
return NIL