Bonjour,

J'ai un automate sur mon réseau, lorsque je tape son ip/status.xml dans un navigateur, il me retourne l'état des ces entrées et sorties sous cette forme:
<response>
<led0>0</led0>
<led1>0</led1>
<led2>0</led2>
<led3>0</led3>
<led4>0</led4>
<led5>0</led5>
<led6>0</led6>
<led7>0</led7>
<btn0>up</btn0>
<btn1>up</btn1>
<btn2>up</btn2>
<btn3>dn</btn3>
<btn4>up</btn4>
<btn5>up</btn5>
<btn6>up</btn6>
<btn7>up</btn7>
<version>3.05.35</version>
</response>

Me but final est d'afficher dans une forme le changement d'état des entrées et sorties, mais actuellement je n'arrive a rien, je n'arrive même pas a lire la page status.xml, en tout cas je n'arrive pas a afficher les données lu, j'ai testé tout les bout de code que j'ai trouvé sur le net, le dernier est celui-ci:
(Le bouton c'est déjà pour voir si l'automate vois passer la demande de status...)



Imports System.Xml
Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

Dim url As String
url = "http://192.168.9.236/status.xml"
Dim m_xmlr As XmlTextReader
'Create the XML Reader
m_xmlr = New XmlTextReader(url)
'Disable whitespace so that you don't have to read over whitespaces
m_xmlr.WhitespaceHandling = WhitespaceHandling.None
'read the xml declaration and advance to family tag
m_xmlr.Read()
'read the family tag
m_xmlr.Read()
'Load the Loop
While Not m_xmlr.EOF
'Go to the name tag
m_xmlr.Read()
'if not start element exit while loop
If Not m_xmlr.IsStartElement() Then
Exit While
End If
'Get the Gender Attribute Value
Dim genderAttribute = m_xmlr.GetAttribute("response")
'Read elements firstname and lastname
m_xmlr.Read()
'Get the firstName Element Value
Dim btn0 = m_xmlr.ReadElementString("btn0")
Dim btn1 = m_xmlr.ReadElementString("btn1")
Dim btn2 = m_xmlr.ReadElementString("btn2")
Dim btn3 = m_xmlr.ReadElementString("btn3")
Dim btn4 = m_xmlr.ReadElementString("btn4")
Dim btn5 = m_xmlr.ReadElementString("btn5")
Dim btn6 = m_xmlr.ReadElementString("btn6")
Dim btn7 = m_xmlr.ReadElementString("btn7")
'Write Result to the Console
MsgBox(btn0 & btn1 & btn2 & btn3 & btn4 & btn5 & btn6 & btn7)

End While
'close the reader
m_xmlr.Close()



End Sub

End Class


Il me faudrait juste un début de solution....

Merci
Cordialement
Greg.