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.

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

 
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