Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'Der folgende Codeabschnitt verpackt die Benutzernamen und zugehörigen
        'Passwörter aus der Datei in zwei Arrays
 
        'die beiden folgenden Zeilen verpacken den Inhalt der Datei "key.txt" in
        'eine String-Variable namens "data"
        Dim dataread As System.IO.StreamReader = New System.IO.StreamReader( _
          "C:\key.txt")
        Dim data As String = dataread.ReadToEnd
 
        Dim number As Integer = Int(data.Substring(0, 1)) - 1 'Die Zahl der 
        ' Benutzernamen und Passwörter
 
        'ein leeres Array für die Datensätze
        Dim Datensätze(number) As String
        'zwei leere Arrays für Benutzernamen und Passwörter
        Dim Benutzernamen(number) As String
        Dim Passwörter(number) As String
 
        Dim Position As Short = 0
        Dim i As Long
 
        'alle Zeilen bis auf die Zahl am Anfang in das Array "Datensätze" packen
        For i = 3 To data.Length - 1
            If data(i) = Chr(13) Then
                i += 1 'Chr(10) Überspringen
                Position += 1
            Else
                Datensätze(Position) += data(i)
            End If
        Next
 
        Dim a As Short
        For i = 0 To number
            a = 0
            'Schleife für die Benutzernamen
            For a = 0 To Datensätze(i).IndexOf(" ")
                Benutzernamen(i) += Datensätze(i).Substring(a, 1)
            Next
            'Schleife für die Passwörter
            Do
                'HIER WEITERMACHEN MIT DEM DEGUGGEN =>
                If a > Datensätze(i).Length - 1 Then
                    Exit Do
                Else
                    Passwörter(i) += Datensätze(i)(a)
                    a += 1
                End If
            Loop
        Next
        'Jetzt sind die Benutzernamen und Passwörter in zwei Arrays verpackt!
 
 
        'Der folgende Codeabschnitt vergleicht den Benutzernamen mit der Liste.
        'Wenn es ihn gibt, fragt er das Passwort ab. Wenn es richtig ist, wird
        'in einer MessageBox aus
 
        Dim Benutzername As String = TextBox1.Text 'Passwort in einer Variable 
        ' speichern
        Dim Benutzer As Boolean = False 'zum speichern, ob es den Benutzernamen 
        ' gibt, oder nicht
 
        'die Schleife durchsucht das Array "Benutzernamen" nach den 
        ' Benutzernamen
        For i = 0 To UBound(Benutzernamen)
            If Benutzernamen(i) = Benutzername Then
                Benutzer = True
                Exit For
            End If
        Next
 
        If Benutzer = False Then
            MsgBox("Der Benutzer ist nicht registriert.", , "Zugriff" & _
              "verweigert")
        Else
            Dim passwort As String = InputBox("Bitte geben Sie ihr Passwort" & _
              "ein.", "Passwort")
            If Passwörter(i) = passwort Then
                Datenbank()
            End If
        End If
 
    End Sub

 Private Sub Datenbank()
        MsgBox("Richtig.")
    End Sub

3
Alexander Alex123
Sven Sven123
Fabian Fabian123