VB2010 Loggt sich nicht ein

[aRP]dope · 3. Mai 2013

Hey Community,

ich habe vor ein kleines Programm zu schreiben, jedoch loggt er sich nicht ein.

Der einloggen Button

Code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim usr As String = TextBox1.Text
        Dim pass As String = TextBox2.Text


        If usr = "" Then
            MsgBox("Bitte wähle einen Benutzernamen!", MsgBoxStyle.Critical, Title:="Error!")
        Else
            If pass = "" Then
                MsgBox("Bitte wähle ein Passwort!", MsgBoxStyle.Critical, Title:="Error!")
            Else
                If My.Computer.FileSystem.DirectoryExists("C:\login\" & usr) = False Then
                    MsgBox("Dieser Benutzername ist nicht in der Datenbank", MsgBoxStyle.Critical, Title:="Error!")
                Else
                    Dim passcorrect As String = My.Computer.FileSystem.DirectoryExists("C:\login\" & usr & "\pass.txt")
                    If pass = passcorrect Then
                        MsgBox("Erfolgreich eingeloggt!")
                        Me.Close()
                        Projekt.Show()
                    End If
                End If
            End If
        End If
    End Sub
End Class

Alles anzeigen

Der registrieren Button

Code

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim usr As String = TextBox1.Text
        Dim pass As String = TextBox2.Text


        If usr = "" Then
            MsgBox("Wähle einen Benutzernamen", MsgBoxStyle.Critical, Title:="ERROR!")
        Else
            If pass = "" Then
                MsgBox("Wähle ein Passwort!", MsgBoxStyle.Critical, Title:="ERROR!")
            Else
                If My.Computer.FileSystem.DirectoryExists("C:\login\" & usr) Then
                    MsgBox("Der Benutzername exestierts bereits!", MsgBoxStyle.Critical, Title:="ERROR!")
                Else
                    If My.Computer.FileSystem.DirectoryExists("C:\login\") = False Then
                        MkDir("C:\login")
                    End If
                    MkDir("C:\login\" & usr)


                    Dim escrever_pass As New System.IO.StreamWriter("C:\login\" & usr & "\pass.txt")
                    escrever_pass.Write(pass)
                    escrever_pass.Close()
                    MsgBox("Dein Account wurde erfolgreich erstellt!", MsgBoxStyle.OkOnly, Title:="Datenbank")
                End If
            End If
        End If
    End Sub

Alles anzeigen

Das registrieren klappt, jedoch nicht das einloggen.

oernqsvfu_fgvaxg · 3. Mai 2013

Ich habe ja keine Ahnnung von VB, aber bist Du Dir sicher, dass du mit

Zitat

Dim passcorrect As String = My.Computer.FileSystem.DirectoryExists("C:\login\" & usr & "\pass.txt")

wirklich den Inhalt der Textdatei ausliest?

Edit: Muss diese unendliche If-Verschachtelung sein? Kannst Du nicht einfach 3 oder 4 If-Abfragen nacheinander machen und dieswe sofort wieder schließen, und falls irgendwas nicht stimmt die Funktion einfach mit return (ggf. Fehlercode) beenden? Das macht den Code um einiges lesbarer.

SuperGameBreak · 3. Mai 2013

versuchst mal hier http://www.vb-paradise.de/

[aRP]dope · 3. Mai 2013

Zitat von He3lixxx

Ich habe ja keine Ahnnung von VB, aber bist Du Dir sicher, dass du mit

wirklich den Inhalt der Textdatei ausliest?

Bin beschäftige mich noch nicht lange mit Visual Basic. Ich kann jetzt schonmal die zweite Form aufrufen, jedoch möchte ich, das sich beim falschen Passwort das nicht öffnet.

PHP

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim usr As String = TextBox1.Text
        Dim pass As String = TextBox2.Text


        If usr = "" Then
            MsgBox("Bitte wähle einen Benutzernamen!", MsgBoxStyle.Critical, Title:="Error!")
        Else
            If pass = "" Then
                MsgBox("Bitte wähle ein Passwort!", MsgBoxStyle.Critical, Title:="Error!")
            Else
                If My.Computer.FileSystem.DirectoryExists("C:\login\" & usr) = False Then
                    MsgBox("Dieser Benutzername ist nicht in der Datenbank", MsgBoxStyle.Critical, Title:="Error!")
                Else
                    Dim baixar_pass As String = My.Computer.FileSystem.DirectoryExists("C:\login\" & usr & "\pass.txt")
                    If pass = baixar_pass Then
                        'MsgBox("Erfolgreich eingeloggt!")
                        'Me.Close()
                        'Projekt.Show()
                    Else
                        Projekt.Show()
                        MsgBox("Erfolgreich eingeloggt!", MsgBoxStyle.Information, Title:="LOGIN")
                    End If
            End If
        End If
        End If
    End Sub

Alles anzeigen

oernqsvfu_fgvaxg · 3. Mai 2013

Hast du das selber geschrieben? Sieht mir eher aus wie zusammenkopiert.

Code

If pass = baixar_pass Then
			'Das hier passiert, wenn das Passwort richtig ist
                        MsgBox("Erfolgreich eingeloggt!")
                        Me.Close()
                        Projekt.Show()
                    Else
			'Das hier passiert, wenn das Passwort falsch ist
                        'Projekt.Show()
                        MsgBox("Falsches PW!", MsgBoxStyle.Information, Title:="LOGIN")
                    End If

Dementsprechend dort einfach reinschreiben, was getan werden soll, wenn das PW richtig oder falsch ist. Hab ich hier schon mal für Dich getan.

Was aber trotzdem auch noch falsch ist, ist dass du versuchst, mit

Code

My.Computer.FileSystem.DirectoryExists()

den Inhalt der Textdatei auszulesen. Die Methode gibt allerdings nur einen bool Wert zurück, nämlich ob es das Verzeichnis gibt oder nicht. Du musst das hier benutzen, um den Inhalt der Textdatei auszulesen. Deshalb kommt wahrscheinlich auch das komische verhalten deines Programmes zustande, denn der "String" pass ist ja in wirklichkeit nur der bool wert "true". Allein das zeigt schonwieder, wie schlecht Visual Basic ist. Man kann einem String den Wert "true" typ bool zuweisen, ohne einen Compilerfehler zu bekommen. Sehr schön.

[aRP]dope · 3. Mai 2013

Danke, werde mir das mal durchlesen.
Selber geschrieben. Nicht kopiert ;p

breadfish.de 12. März 2022