[logan517]

Hallo,

ich möchte gerne, dass mein Programm eine Textdatei von meinem Webserver herunterlädt und den Inhalt in einer If Abfrage vergleicht und geg. eine MsgBox öffnet.


Das Problem dabei ist, ich bekomme es nur hin, dass Visual Basic lokale Dateien öffnet und keine Datei, welche sich auf meinem Webserver befindet.

Hier mal mein Code

Imports System.IO
Public Class Form1


    Private Sub cmdLesen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLesen.Click
        Dim fs As New FileStream("C:\version.txt", FileMode.Open)
        Dim sr As New StreamReader(fs)
        Dim zeile As String

        Do Until sr.Peek() = -1
            zeile = sr.ReadLine()
            If zeile <> "1.0" Then
                MsgBox("Veränderung erkannt")
                Exit Sub
            End If
            MsgBox("Keine Veränderung")
        Loop
        sr.Close()
    End Sub
End Class

Nun wollte ich einfach das "C:\version.txt" mit "http://xy.z/version.txt" ersetzen, also so:

Dim fs As New FileStream("http://xy.z/version.txt", FileMode.Open)

Dies funktioniert leider nicht, könnt ihr mir da halfen und sagen was ich vllt. falsch machen.

Mfg. Logan517

[Xalir]

Dafür gibt es die Webclient-Klasse.

Imports System.Net
Imports System.IO

Private Sub Irgendwas

Dim Client as New Webclient()

Client.Headers.Add("user-agent", "Mozilla/4.0; Windows NT 6.1")

Dim txt As Stream = Client.OpenRead("http://example.org/testfile.txt")

Dim sr As New StreamReader(txt)
...
'Dein weiterer Code hier

[logan517]

perfekt Danke