[VB 2010] Datei auslesen, aus FTP

    Hallo Leute.
    Ich weiß nicht ob es hier Visual Basic, Programmierer gibt, aber ich Frage einfach mal.
    Unzwar, möchte ich ein Login System Erstellen.


    Material:
    1x Label = Username
    1x Label = Passwort
    1x Textbox = Für den Usernamen
    1x Textbox = Für das Passwort
    1x Button = Login


    Beschreibung:


    User gibt Name ein dann wird Überprüft, ob auf dem FTP-Server, die datei mit dem Usernamen Existiert(Test.ini), indem Fall "Test1"
    Dann wird überprüft, ob in der Test.ini(Dem Benutzernamen) sich drinnen das Passwort befindet. Jedoch sollte er erst nach "Passwort=" anfangen zu Überprüfen also Passwort=test321 sodass er nur test321 ausliest. Jedoch sollte er auch eine Msgbox ausgeben, wenns Falsch ist.


    Danke für eure Hilfe. 8o

    Zuerst musst du die daten von deinem FTP server eintragen: server, username, pw
    Dann musst du eine Datei abfrage machen ;)


    Aber pass auf!
    Wenn leute das Programm in den editor ziehen, können sie die daten auslesen ;)

    Werde dir einen kleinen Denkanstoß geben, mehr jedoch nicht.



    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    inet()
    Dim user As String = TextBox1.Text
    Dim password As String = TextBox2.Text
    Dim combi As String = user & ":" & password
    Dim web1 As New WebClient
    Dim web2 As New WebClient
    Dim strings1 As String = web1.DownloadString("http://deinwebspace.de/nutzer.txt") 'eigenen Webspace einfügen
    Dim strings2 As String = web2.DownloadString("http://deinwebspace.de/version.txt") 'eigenen Webspace einfügen
    Dim array1 As String() = strings1.Split(New Char() {","c})
    Dim md5combi As String = MD5StringHash(combi)
    Dim i As Integer
    Dim webUSER As String = " "


    If strings2 = Label3.Text Then
    'öffnet client
    Else
    MessageBox.Show("Laden Sie den aktuellen Client runter!")
    Close()
    End If


    For i = 0 To UBound(array1)
    Dim tempvar As String
    tempvar = array1(i)
    If tempvar.Contains(md5combi) Then
    webUSER = md5combi
    Else
    'nächstes i durchlaufen
    End If
    Next i


    If md5combi = webUSER Then
    injector.Show()
    Me.Close()
    Else
    MessageBox.Show("Passwort falsch oder Nutzer nicht vorhanden!")
    TextBox1.Text = ""
    TextBox2.Text = ""
    End If


    End Sub