myGully.com Boerse.SH - BOERSE.AM - BOERSE.IO - BOERSE.IM Boerse.BZ .TO Nachfolger
Zurück   myGully.com > Computer & Technik > Programmierung
Seite neu laden

VB Textdatei aus dem Internet auslesen

Willkommen

myGully

Links

Forum

 
 
 
Themen-Optionen Ansicht
Prev Vorheriger Beitrag   Nächster Beitrag Next
Ungelesen 09.11.10, 19:08   #1
logan517
Ausfänger
 
Benutzerbild von logan517
 
Registriert seit: Jun 2010
Beiträge: 280
Bedankt: 54
logan517 leckt gerne myGully Deckel in der Kanalisation! | 505874 Respekt Punktelogan517 leckt gerne myGully Deckel in der Kanalisation! | 505874 Respekt Punktelogan517 leckt gerne myGully Deckel in der Kanalisation! | 505874 Respekt Punktelogan517 leckt gerne myGully Deckel in der Kanalisation! | 505874 Respekt Punktelogan517 leckt gerne myGully Deckel in der Kanalisation! | 505874 Respekt Punktelogan517 leckt gerne myGully Deckel in der Kanalisation! | 505874 Respekt Punktelogan517 leckt gerne myGully Deckel in der Kanalisation! | 505874 Respekt Punktelogan517 leckt gerne myGully Deckel in der Kanalisation! | 505874 Respekt Punktelogan517 leckt gerne myGully Deckel in der Kanalisation! | 505874 Respekt Punktelogan517 leckt gerne myGully Deckel in der Kanalisation! | 505874 Respekt Punktelogan517 leckt gerne myGully Deckel in der Kanalisation! | 505874 Respekt Punkte
Standard VB Textdatei aus dem Internet auslesen

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
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:
Code:
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
logan517 ist offline   Mit Zitat antworten
 


Forumregeln
Du kannst keine neue Themen eröffnen
Du kannst keine Antworten verfassen
Du kannst keine Anhänge posten
Du kannst nicht deine Beiträge editieren

BB code is An
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.

Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:56 Uhr.


Sitemap

().