hallo
ich kämpfe schon seit tagen mit dem problem, das ich xml-daten vom Internet holen muss.
was muss ich ändern, damit es endlich läuft, bzw. sollen die daten jede minute abgeholt werden.
ich kämpfe schon seit tagen mit dem problem, das ich xml-daten vom Internet holen muss.
was muss ich ändern, damit es endlich läuft, bzw. sollen die daten jede minute abgeholt werden.
Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim reader As Xml.XmlReader
Dim myXMLDoc As New Xml.XmlDocument
reader = Xml.XmlReader.Create("www.binder.bplaced.net/daten.xml")
myXMLDoc.Load(reader)
Dim alarmstufe As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/alarmstufe")
alarmstufe = alarmstufe.FirstChild
Label1.Text = alarmstufe.Value.ToString
Dim meldebild As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/meldebild")
meldebild = meldebild.FirstChild
Label2.Text = meldebild.Value.ToString
Dim nummer1 As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/nummer1")
nummer1 = nummer1.FirstChild
Label3.Text = nummer1.Value.ToString
Dim nummer2 As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/nummer2")
nummer2 = nummer2.FirstChild
Label4.Text = nummer2.Value.ToString
Dim nummer3 As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/nummer3")
nummer3 = nummer3.FirstChild
Label5.Text = nummer3.Value.ToString
Dim plz As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/plz")
plz = plz.FirstChild
Label6.Text = plz.Value.ToString
Dim strasse As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/strasse")
strasse = strasse.FirstChild
Label7.Text = strasse.Value.ToString
Dim ort As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/ort")
ort = ort.FirstChild
Label8.Text = ort.Value.ToString
Dim abschnitt As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/abschnitt")
abschnitt = abschnitt.FirstChild
Label9.Text = abschnitt.Value.ToString
Dim objekt As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/objekt")
objekt = objekt.FirstChild
Label10.Text = objekt.Value.ToString
Dim bemerkung As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/bemerkung")
bemerkung = bemerkung.FirstChild
Label11.Text = bemerkung.Value.ToString
Dim einsatzerzeugt As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/einsatzerzeugt")
einsatzerzeugt = einsatzerzeugt.FirstChild
Label12.Text = einsatzerzeugt.Value.ToString
Dim melder As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/melder")
melder = melder.FirstChild
Label13.Text = melder.Value.ToString
Dim meldertel As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/meldertel")
meldertel = meldertel.FirstChild
Label14.Text = meldertel.Value.ToString
Dim einsatznr As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/einsatznr")
einsatznr = einsatznr.FirstChild
Label15.Text = einsatznr.Value.ToString
End Sub
End Class