[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