Frage register / Login script über windows.

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ChaosBernd.

    Frage register / Login script über windows.

    Hay,

    Ich baue gerade ein Kleines Login / Register system

    Register geht Perfect nur bei dem Login spinnt es ein bischen da kommt immer :

    Bild :
    Spoiler anzeigen




    Register Code :
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. If My.Computer.FileSystem.DirectoryExists("D:\test\") Then
    3. Else
    4. MkDir("D:\test\")
    5. End If
    7. If My.Computer.FileSystem.DirectoryExists("D:\test\" + TextBox1.Text) Then
    9. MsgBox("error - Dieser Account Exestiert bereits !")
    10. Else
    12. MkDir("D:\test\" + TextBox1.Text)
    15. Dim a As New System.IO.StreamWriter("D:\test\" + TextBox1.Text + "\Username.txt")
    16. a.WriteLine(TextBox1.Text)
    17. a.Close()
    19. Dim b As New System.IO.StreamWriter("D:\test\" + TextBox1.Text + "\Password.txt")
    20. b.WriteLine(TextBox2.Text)
    21. b.Close()
    23. End If
    24. End Sub



    Login code :
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Try
    2. Dim sa As String
    3. Dim sb As String
    7. Dim a As New System.IO.StreamReader("D:\Text\" + TextBox3.Text + "\Username.txt")
    8. sa = a.ReadLine()
    9. a.Close()
    11. Dim b As New System.IO.StreamReader("D:\Text\" + TextBox3.Text + "\Password.txt")
    12. sb = b.ReadLine()
    13. b.Close()
    15. If TextBox3.Text = sa.ToString Then
    16. If TextBox4.Text = sb.ToString Then
    18. MsgBox("Willkommen ! - " + sa.ToString)
    19. Else
    20. MsgBox("Error - Falsches Passwort")
    21. End If
    22. Else
    24. MsgBox("Diese Account Exestier Nicht !")
    26. End If
    30. Catch ex As Exception
    31. MsgBox("Error -" + ex.Message)
    32. End Try
    33. End Sub


    Ich hoffe ihr könnt mir Helfen !

    Oh mein .....

    Du hast mehr fehler im Code als ich beim schreiben. Das man soetwas übertreffen kann. Puh

    In deiner fehlermeldung wird eine anderes Verzeichnis angegeben als in deinem Prog.
    Text u. Test

    mit dem + Zeichen macht man Mathematische dinge.
    mit dem & Zeichen macht man Zeichenketten dinge.

    Mach mal in den ersten beiden Zeilen
    Option Strict On
    Option Explezit On

    dann beseitigst du mal alle fehler.

    Dudul schrieb:

    If My.Computer.FileSystem.DirectoryExists("D:\test\") Then

    Hier ist glaube ich der letzte Backslash zuviel. Bei allen anderen dann auch. Versuch einfach mal.

    dann kommen erst deine Fragen bezüglich vertändnis !

    danke dir für deine Mitarbeit und dein Vertändnis !
    Bernd

Facebook
Telefonspende