[SOLUCIONADO] leer xml webserice desde vb.net 2010 express

[estrella_de_Galicia]

Hola

Hace años dejé de programar en vb6 y ahora por motivos de un proyecto necesito programar .net.

Hay una tarea que no consigo realizar y es poder leer un xml generado desde php y leer los datos.

Código:

Try
            Dim documentoxml As XmlDocument
            Dim nodelist As XmlNodeList
            Dim nodo As XmlNode
            documentoxml = New XmlDocument

            documentoxml.Load("c:\pedro-gestion\demoweb.xml")

            nodelist = documentoxml.SelectNodes("/G/trabajo")

            For Each nodo In nodelist
                Dim idimagen = nodo.Attributes.GetNamedItem("id").Value
                Dim nodo1 = nodo.ChildNodes(0).InnerText
                MsgBox("id " & idimagen & " fichero " & nodo1)
            Next
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try

Si reemplazo el documento por

Código:

documentoxml.Load("http://localhost/lnxgest/webserver/index.php")

Entonces me da error.

Entiendo que deberia de poderme leer el archivo xml generado por php pero en local si que funciona ese archivo.

Código:

<?xml version='1.0' encoding='utf-8'?>
<G>
	<trabajo id='0'>
		<fichero>azul</fichero>
	</trabajo>
	<trabajo id='0'>
		<fichero>amarillo</fichero>
	</trabajo>
</G>

El XML local es estático y el xml de la web es dinamico, os adjunto también el código pero no creo que sea necesario:

Código PHP:

  <?php

header("Content-type: text/xml"); 

echo'<G>';

$directorio = opendir("../files/spool"); //ruta actual
while ($archivo = readdir($directorio)) //obtenemos un archivo y luego otro sucesivamente
{
    if (is_dir($archivo))//verificamos si es o no un directorio
    {
        //es un directorio y no queremos saber nada
    }
    else
    {
        echo '<trabajo id="0">';
        echo '<subnodo1>'.$archivo.'</subnodo1>';
        echo '</trabajo>';
          
          
    }
}  

    
    
echo '</G>';

?>   

Gracias

[estrella_de_Galicia]

Al final ya lo solucioné y he agregado el codigo para que descagu el archivo que muestra el XML

Código:

Private Sub ProcesarXML()
        Dim dirDestino As String
        dirDestino = "C:\lnxgest\lnxprintserver\spool\"
        Try
            Dim documentoxml As XmlDocument
            Dim nodelist As XmlNodeList
            Dim nodo As XmlNode
            documentoxml = New XmlDocument

            'documentoxml.Load("c:\pedro-gestion\demoweb.xml")

            documentoxml.Load("http://localhost/lnxgest/webservices/index.php?printer=PRT1")


            nodelist = documentoxml.SelectNodes("/G/trabajo")

            For Each nodo In nodelist
                Dim idimagen = nodo.Attributes.GetNamedItem("id").Value
                Dim nodo1 = nodo.ChildNodes(0).InnerText
                TextBox1.Text = TextBox1.Text & "id " & idimagen & " fichero " & nodo1 & vbCrLf

                My.Computer.Network.DownloadFile("http://localhost/lnxgest/files/spool/" & nodo1, dirDestino & nodo1)

            Next

        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub