¿Cómo utilizar vb para obtener archivos xml en Internet y analizar el contenido?

La función pública get htmlstr (cadena strurlas)' obtiene el código fuente de la página web remota.

Continúe con el siguiente paso en caso de error

Dim XmlHttp as object, stime, ntime

set XmlHttp = CreateObject("Microsoft.XMLHTTP")

XmlHttp.open "GET ",strUrl,True

XmlHttp.send

Stime = Ahora 'Obtiene la hora actual.

Y XmlHttp. ReadyState & lt& gtfour

Múltiples actividades

Ntime = Ahora 'Obtener tiempo de ciclo

If DateDiff("