Question

我需要认真帮助我的软件。我正在为选举制作一个系统。我需要进行登录，从文本文件中读取和识别文本，如果它是文本框中的正确用户名和密码，则打开另一个表单。我必须创建一个允许各种用户登录的文本文件。我目前正在使用vb 2010。感谢

Answer 1

你很幸运！我刚刚建立了自己的系统：）

Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
    If (My.Computer.FileSystem.FileExists("C:\ProgramData\Hax Client\User Data\Temp Users\" + txtUsername.Text + ".txt")) Then
    ElseIf (My.Computer.FileSystem.FileExists("C:\ProgramData\Hax Client\User Data\" + txtUsername.Text + ".txt")) Then
        Using sr As New StreamReader("C:\ProgramData\Hax Client\User Data\" + txtUsername.Text + ".txt")
            While Not sr.EndOfStream
                        Dim unpw() As String = sr.ReadLine.Split("|")
                        'example is username|password
                        'our array is now unpw(0) = username
                        '                 unpw(1) = password
                        If txtUsername.Text = unpw(0) And txtPassword.Text = unpw(1) Then
                            'sucess
                            'Loads new form once correct details have been entered
                            If (unpw(0) = "guest" And unpw(1) = "guest") Then
                                Dim GuestWindow As New GuestWindow
                                GuestWindow.Show()
                                Me.Close()
                            Else
                                Dim MainWindow As New MainWindow
                                MainWindow.Show()
                                Me.Close()
                        End If
                    End If
                End If
            End While
        End Using
    Else
        My.Computer.FileSystem.WriteAllText("C:\ProgramData\Hax Client\User Data\Temp Users\" + txtUsername.Text + ".txt", "Failed Login! Used username: " + txtUsername.Text, False)
    End If
End Sub

现在我的工作方式是“C：\ ProgramData \ Hax Client \ Users \ .txt”

文字档案：

<username>|<password>

为简单起见，只需将文本文件命名为用户名。你可以尝试编码吗？但我不确定如何。

无论如何，如果你需要帮助，只需回复:)同样在用户文件夹中我做了\ Temp用户这是登录失败的地方，然后登录后清除。它可以防止编码崩溃。

Skype：nfell2009

如何在VB.net上创建登录。

1 个答案: