Использование LoginForm - VB

Формулировка задачи:

Хочу написать программу с запросом использования пароля и для этого хочу использовать форму LoginForm. Как сделать так чтобы при первом запуске он просил установить постоянный пароль, а при втором запуске использовался тот пароль который установили при первом запуске.

Код к задаче: «Использование LoginForm - VB»

textual
Public Class LoginForm1
    Dim reg As Microsoft.Win32.RegistryKey
    Dim aPassword As String
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        reg = My.Computer.Registry.CurrentUser.CreateSubKey("Software\MainProgramm\Setting", Microsoft.Win32.RegistryKeyPermissionCheck.Default)
        If reg.GetValue("Password") = PasswordTextBox.Text Then
            Form1.Show()
            Me.Hide()
        Else
            MsgBox("Введенный паоль не верный!", MsgBoxStyle.Critical, "Ошибка ввода пароля")
        End If
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
 
    Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        reg = My.Computer.Registry.CurrentUser.CreateSubKey("Software\MainProgramm\Setting", Microsoft.Win32.RegistryKeyPermissionCheck.Default)
        If reg.GetValue("Password") = "" Then
            aPassword = InputBox("Введите новый пароль")
            reg = My.Computer.Registry.CurrentUser.CreateSubKey("Software\MainProgramm\Setting", Microsoft.Win32.RegistryKeyPermissionCheck.Default)
            reg.SetValue("Password", aPassword, Microsoft.Win32.RegistryValueKind.String)
            reg.Close()
        Else
 
        End If
    End Sub
End Class

12   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ