منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
من المنتدي القديم سلسلة دروس الحماية ( للمبتدئين , المتوسطين , المتقدمين ) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : من المنتدي القديم سلسلة دروس الحماية ( للمبتدئين , المتوسطين , المتقدمين ) (/showthread.php?tid=8729)

من المنتدي القديم سلسلة دروس الحماية ( للمبتدئين , المتوسطين , المتقدمين ) - VBMaged - 01-05-13

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
في هذا الدرس البسيط أحب إن أعلمكم ابسط طريقة لصناعة كلمة مرور واسم مستخدم مع إمكانية تغيرهما سوف نستخدم في هذه الطريقة الريجستري لتخزين المعلومات واسترجاعها وطرق التعامل مع الريجستري سهله جدا ألان لنبدأ قم بإنشاء زرا أمر ومربعا نص على واجهة المشروع وعلى زر التحقق من كلمة المرور اكتب الكود الأتي

كود :
Private Sub Command1_Click()
Dim User_Name As String, PassWord As String
User_Name = GetSetting("Name", "Name", "UserName")
PassWord = GetSetting("Name", "Name", "PassWord")
If Text1.Text = User_Name And Text2.Text = PassWord Then
MsgBox "You Looged In "
Else
MsgBox "Wrong UserName Or Password"
End If
End Sub
في السطر الأول قمنا بالتعريف عن المتغيرات من النوع String التي تخزن قيمة نصية المطلوبة لجلب لتخزين القيم من الريجستري فيها بالنسبة للسطر الثاني فقط جلبنا القيمة من الريجستري بتحديد الجذر والقسم بعدها وبعدها المفتاح الذي يحتوي على القيمة وفي السطر الثاني قمنا بنفس العملية باختلاف أسم المفتاح وهنا أتممنا إسناد القيم إلى المتغيرات أي أصبحت لدنيا ألان كلمة المرور واسم المستخدم فيها بقى علينا مقارنة النصوص التي تم إدخالها من المستخدم مقارنة بالقيم التي جلبناها من الريجستري ومن هنا كتبنا جملة ألاف الشرطية وكان الشرط إذا كان ما مكتوب في مربع النص الأول الذي يطلب كتابة اسم المستخدم فيه = القيمة المخزنة في الريجستري وأيضا كانت كلمة المرور المكتوبة من قبل المستخدم = القيمة التي تم جلبها فيقم بالاتي بعدها كتبنا الكود في حال كتابة اسم مستخدم ولكمة مرور في حال لم يتطابق فيقوم المستخدم بإظهار رسالة تفيد بان كلمة المرور أو اسم المستخدم خطأ بعدها End If نهاية ألاف الشرطية ونهاية الحدث بالنسبة لإنشاء كلمة المرور فلا بد أنك تتساءل ألان كيف نقوم بتخزين قيمة ما أو تغيرها طريقة التغير نفس طريقة التخزين ويتم إيجازها بالكود الأتي
كود :
SaveSetting "Name", "Name", "UserName", "the Value"
حيث نستخدم ألداله SaveSetting التي تقوم بخزن قيمة جديدة في حال لم تكن هنالك قيمة في الريجستري أو تعديل القديمة بعد تحديد الجذر والقسم والمفتاح وأخيرا القيمة يمكنك أنشاء واجهة جديدة وكتابة الكود ألأتي لإنشاء كلمة مرور أو تغيرها
كود :
Private Sub Command1_Click()
SaveSetting "Name", "Name", "UserName", Text1.Text
SaveSetting "Name", "Name", "PassWord", Text2.Text
MsgBox "done"
End Sub
كما تم الشرح يتم خزن القيم مباشرة يمكنك تجريب المثال ألان وتجربته بكل بساطه بقيت ألان نقطه بسيطة وهي كيفية ترميز النص الموجود داخل الـ TextBox بالرموز *** بكل بساطة يتم ذلك من خلال الخاصية الآتية والكود الأتي
كود :
Text2.PasswordChar = "*"

بالتوفيق للجميع

من المنتدي القديم سلسلة دروس الحماية ( للمبتدئين , المتوسطين , المتقدمين ) - @@أبورائد@@ - 01-05-13


السلام عليكم ورحمة الله وبركاته






بارك الله فيك أخي [b]VBMaged[/b] وجعله الله في ميزان حسناتك




السلام عليكم ورحمة الله وبركاته

من المنتدي القديم سلسلة دروس الحماية ( للمبتدئين , المتوسطين , المتقدمين ) - VBMaged - 01-05-13

وفيك اخي الكريم
والله رفعت من روحي المعنوية

من المنتدي القديم سلسلة دروس الحماية ( للمبتدئين , المتوسطين , المتقدمين ) - Ahmed Abdulla - 01-05-13

أخي الكريم لدي سؤال اذا اردت تسجيل أكثر من كلمة مرور ماذا أفعل وأين ملف الرجستري