Использование LoginForm - VB
Формулировка задачи:
Хочу написать программу с запросом использования пароля и для этого хочу использовать форму LoginForm. Как сделать так чтобы при первом запуске он просил установить постоянный пароль, а при втором запуске использовался тот пароль который установили при первом запуске.
Решение задачи: «Использование LoginForm»
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