My.Settings.- Problem

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Gelöschter Benutzer.

    My.Settings.- Problem

    Hey Leute ich brauch mal wieder eure Hilfe :D

    Ich habe eine Form in der man sich registrieren kann über My.Settings(.UserN1) und My.Settings(.UserP1) - Registrieren.vb

    UserN1 = UserName N°1 und UserP1 = UserPasswort N°1 - Es gibst insgesamt drei Username Möglichkeiten

    Hier mal der Code

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    4. If My.Settings.UserN1 = TextBox1.Text Or My.Settings.UserN3 = TextBox1.Text Or My.Settings.UserN3 = TextBox1.Text Then
    6. MsgBox("Dieser Benutzername wird bereits verwendet.", MsgBoxStyle.Critical, "Achtung")
    8. Else
    10. MsgBox("Möchten Sie wirklich |" & TextBox1.Text & "| heißen?", MsgBoxStyle.YesNo, "Benutzername")
    12. Select Case MsgBoxResult.Yes
    14. Case My.Settings.UserN1 = ""
    16. If TextBox2.Text = TextBox3.Text Then
    17. My.Settings.UserN1 = TextBox1.Text
    18. My.Settings.UserP1 = TextBox2.Text
    19. My.Settings.Save()
    20. Else
    21. MsgBox("Die Passwörter stimmen nicht überein!", MsgBoxStyle.Critical, "Warnung")
    22. End If
    24. Case My.Settings.UserN2 = ""
    26. If TextBox2.Text = TextBox3.Text Then
    27. My.Settings.UserN2 = TextBox1.Text
    28. My.Settings.UserP2 = TextBox2.Text
    29. My.Settings.Save()
    30. Else
    31. MsgBox("Die Passwörter stimmen nicht überein!", MsgBoxStyle.Critical, "Warnung")
    32. End If
    34. Case My.Settings.UserN3 = ""
    36. If TextBox2.Text = TextBox3.Text Then
    37. My.Settings.UserN3 = TextBox1.Text
    38. My.Settings.UserP3 = TextBox2.Text
    39. My.Settings.Save()
    40. Else
    41. MsgBox("Die Passwörter stimmen nicht überein!", MsgBoxStyle.Critical, "Warnung")
    42. End If
    44. Case Else
    45. Me.Refresh()
    46. MsgBox("Sie haben die maximale Anzahl der Accounts erreicht!", MsgBoxStyle.Critical, "Warnung")
    47. End Select
    49. End If
    51. End Sub


    Da immer MsgBox("Sie haben die maximale Anzahl der Accounts erreicht!", MsgBoxStyle.Critical, "Warnung") auftaucht, habe ich mal bei meiner ersten Form das hier geschrieben:

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​ Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. My.Settings.UserN1 = ""
    3. My.Settings.UserN2 = ""
    4. My.Settings.UserN3 = ""
    5. My.Settings.UserP1 = ""
    6. My.Settings.UserP2 = ""
    7. My.Settings.UserP3 = ""
    8. End Sub


    Doch die MsgBox taucht wieder auf?!
    Ich sehe meinen Fehler nicht. Bitte um Hilfe! :thumbsup:

    Ein Loginsystem mit My.Settings ist ziemlich leicht knackbar und auch keine geeignete Methode.
    Du solltest ​MsgBox btw durch ​MessageBox.Show ersetzen und es reicht auch, wenn Du die ​Save-Methode einmal aufrufst.
    Auch kannst Du das, wenn eingestellt, weglassen, dann übernimmt das der Designer.

    Überlege, ob ein Login Sinn macht, wie gesagt, absolut unsicher, kann ich Dir in 1 Minute knacken. ;)
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    MsgBox kommt aus VB6, was in .NET nichts mehr zu suchen hat. Von daher sollte man es durch moderne Varianten ablösen.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    @Gesuchter Kurz und gut:
    Du musst den Rückgabewert der Messagebox auswerten. Und mach gleich noch Gänsefüßchen um den Namen:

    VB.NET-Quellcode

    1. Dim res = MessageBox.Show("Möchten Sie wirklich """ & TextBox1.Text & """ heißen?", "Benutzername", MessageBoxButtons.YesNo)
    2. Select Case res
    3. Case Windows.Forms.DialogResult.Yes
    4. MessageBox.Show("Yes")
    5. Case Windows.Forms.DialogResult.No
    6. MessageBox.Show("No")
    7. End Select
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende