Программа "Пароль"
Иногда случается так, что вам нужно поставить на программу пароль.Для этого вы конечно можете закодировать сам файл - exe программами типа Cryto, но с этим много мороки : сначала нужно закодировать файл, потом если хотите его запустить придется его раскодировать. Гораздо лучше встроить пароль прямо в программу.Тем более что это совсе нетрудно.
Наша программа будет спрашивать пароль. Если юзер введет правильный пароль то она сообщит ему что пароль правилен. Если же нет, то она сообщит ему, что пароль неправилен. Как видите тут все легко и просто.
На форме разместите акие элементы с такими настройками :
TextBox (Поле свойства text должно быть пустым)
Command1 (в
поле свойства Caption введите - Вход )
Command2 (В поле свойства Caption
введите - Выход)
У формы свойство Caption должно быть -получение
пароля.Теперь ваша форма должна выглядеть вот так :
Теперь приступим к программированию в коде.Нажмите два раза на кнопку - Выход - в коде этой кнопки введите End. Вернитесь к форме. Нажмите два раза на кнопку Вход и напишите :
If Text1.Text = "Ваш пароль" then msgbox "Пароль правильный" else msgbox "Неправильный пароль"
Вместо фразы Ваш пароль поставьте тот пароль который вам
нужен.
Теперь разберем все по порядку:
If Text1.Text="Ваш пароль"- В этой фразе мы проверяем : равно ли свойство Text элемента Text1 какому-либо паролю.
Then Msgbox "Пароль правильный" - Если равно, то программа выводит собщение говорящее о том, что пароль правильный.
Else Msgbox "Пароль неправильный"-Иначе, выводит сообщение о том, что пароль неправильный.
Запустите программу и проверьте ее
Готово ! Теперь запустите программу.Проверьте
все.Введите пароль который вы ввели вмсто значения Ваш пароль и нажмите
на Вход.Если сообщение гласит о том, что пароль правильный то
попробуйте изментиь его на неправильный и нажмите на Вход, если вы получили
сообщение, что пароль неправильный, то попробуйте нажать на Выход и если
программа вышла то поздравляю вас, вы написали программу пароля на VB!!! Если,
что то не работает, то вы можете взять программу попробовать
разобраться в ней.
P.S.:Если все работает, то усовершенствуйте программу.Поставьте у
TextBox свойство PassworChar равным звездочке - *.Проверьте программу.