[FONT=arial, helvetica, verdana]
مرحباً بكم أيها الكرام من أعضاء و زوار منتدى الابداع والتميز من كل مكان
في هذآ الموضوع المتوآضع سآقدم لكم الدرس السادسـ عشر من دروس الاوتوبلاى
والذى بعنوان [ كيفية حماية الاسطوانة بباسووورد]
[FONT=tahoma, arial, helvetica, verdana]
.. | الدرس السادسـ عشر | ..
كود:
[/FONT][/COLOR][COLOR=#1F638F][FONT=Arial][CENTER]--assume the user enters a bad password
correct_password = false;
-- the 'correct' password
real_passwords = {"password", "password2", "3rdPassword"};
-- prompt the user to enter a password
user_password = Dialog.PasswordInput("Password", "Please enter the password: ", MB_ICONQUESTION);
-- compare the user's password to the 'correct' password.
for j in real_passwords do
if real_passwords[j] == user_password then
correct_password = true;
end
end
--if the password was bad, exit
if not correct_password then
Application.Exit();
end[/FONT][/COLOR][/CENTER]
[COLOR=#1F638F][FONT=Arial]
[FONT=tahoma, arial, helvetica, verdana]
[/FONT]
: في النهاية أتمنى أن الدرس أعجبكم :.
.: و أرجو أن أرى رأيكم في ردودكم :.
.: كلمة شكر لا تضرك أبدآ بل تزيد من مشاركاتك :.
و أستودعكم الله ،، محبكم دوما :
[FONT=arial, helvetica, verdana]
°.♥.°اشرفasser = اشرف ياسر°.♥.°
[/FONT]
التعديل الأخير بواسطة المشرف:
