Visual Basic - leer una página web con vb6

Life is soft - evento anual de software empresarial
 
Vista:

leer una página web con vb6

Publicado por ismael (28 intervenciones) el 30/05/2012 16:33:13
Hola a todos,

estoy intentando leer una página web que muestra un xml directamente. Lo hago con DOMDocument, aquí les pego un trozo de código:

Dim objXML As DOMDocument
Dim nodes As MSXML2.IXMLDOMNodeList
Dim node As MSXML2.IXMLDOMNode
Dim childs As MSXML2.IXMLDOMNode


Set objXML = New DOMDocument
objXML.Load(<url>)

Set nodes = objXML.selectNodes("//PRODUCT")
lngNodos = 1

For Each node In nodes
ReDim Preserve mtrPublicaciones(lngPublicaciones)
For Each childs In node.childNodes
Select Case childs.nodeName
Case "NAME"
mtrPublicaciones(lngPublicaciones).strPublicacion = childs.Text

Case "MAINCID"
mtrPublicaciones(lngPublicaciones).strMainCID = childs.Text

Case "PUBLISHER"
mtrPublicaciones(lngPublicaciones).strEditor = childs.Text

End Select
lngNodos = lngNodos + 1
Next
mtrPublicaciones(lngPublicaciones).strTipo = mtrUrls(intUrls).strTipo
lngPublicaciones = lngPublicaciones + 1
Next

Con esto lo que hago es leer los nodos hijos de los tags 'PRODUCT' y me lo guardo en una matriz.
Todo funciona perfectamente cuando debugeo, pero si lo lanzo directamente me salta una excepción de 'Error de Automatización' en 'For Each node In nodes'.

¿A alguien se le ocurre por que puede ser?
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder