Получение пароля

©кабинет 21,

Получение пароля

Иногда случается так, что вам нужно поставить на программу пароль. Для этого вы конечно можете закодировать сам файл - exe, но с этим много мороки: сначала нужно закодировать файл, потом если хотите его запустить придется его раскодировать. Гораздо лучше встроить пароль прямо в программу. Тем более что это совсем нетрудно.

1. Постановка задачи.

Итак, что же будет делать наша программа? Наша программа будет спрашивать пароль. Если пользователь введет правильный пароль, то она сообщит ему что пароль правилен. Если же нет, то она сообщит ему, что пароль неправилен. Как видите все легко и просто.

2. Этап визуального проектирования.

На форме (окно, которое открылось при включении программы) разместите такие элементы (панель инструментов в левом верхнем углу программы) со следующими настройками (панель свойства в правом нижнем углу программы):

TextBox (Поле свойства text должно быть пустым)
Command1 (в поле свойства Caption введите - Вход)
Command2 (в поле свойства Caption введите - Выход)
У формы свойство Caption должно быть - получение пароля. Теперь ваша форма должна выглядеть вот так:

3. Этап программирования.

Приступим к программированию в коде. Нажмите два раза на кнопку - Выход - в коде этой кнопки (между Private Sub Command2_Click() и End) введите End.

Вернитесь к форме. Нажмите два раза на кнопку Вход и (между Private Sub Command1_Click() и End Sub) напишите:

If Text1.Text = "Ваш пароль" then msgbox "Пароль правильный" else msgbox "Неправильный пароль"

Вместо фразы Ваш пароль поставьте тот пароль, который вам нужен.

Теперь Выясним, зачем мы это сделали:

If Text1.Text="Ваш пароль"- В этой фразе мы проверяем: равно ли свойство Text элемента Text1 какому-либо паролю.

Then Msgbox "Пароль правильный" - Если равно, то программа выводит сообщение говорящее о том, что пароль правильный.

Else Msgbox "Пароль неправильный"-Иначе, выводит сообщение о том, что пароль неправильный.

Запустите программу и проверьте ее. Введите пароль который вы ввели вместо значения Ваш пароль и нажмите на Вход. Если сообщение гласит о том, что пароль правильный то попробуйте изменить его на неправильный и нажмите на Вход, если вы получили сообщение, что пароль неправильный, то попробуйте нажать на Выход и если программа вышла, то поздравляю вас, вы написали программу пароля на VB!!!

Последнее, если все работает, то усовершенствуйте программу. Поставьте у TextBox свойство PassworChar равным звездочке - *. Проверьте программу.