تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
من المنتدي القديم سلسلة دروس الحماية ( للمبتدئين , المتوسطين , المتقدمين )
#1
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
في هذا الدرس البسيط أحب إن أعلمكم ابسط طريقة لصناعة كلمة مرور واسم مستخدم مع إمكانية تغيرهما سوف نستخدم في هذه الطريقة الريجستري لتخزين المعلومات واسترجاعها وطرق التعامل مع الريجستري سهله جدا ألان لنبدأ قم بإنشاء زرا أمر ومربعا نص على واجهة المشروع وعلى زر التحقق من كلمة المرور اكتب الكود الأتي

كود :
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 = "*"

بالتوفيق للجميع
إشهـــــــــــــــــــد إن لا إله إلا اللــــــــــــه إشهـــــــــــــــــد إن محمد رسول اللــــــــــــــه

الرجال أربعة
رجل يدري ويدري أنه يدري فذلك عالم فاتبعوه.Smile
ورجل يدري ولا يدري أنه يدري فذلك نائم فأيقظوه.Cool
ورجل لا يدري ويدري أنه لا يدري فذلك مسترشد فأرشدوه.Big Grin

ورجل لا يدري ولا يدري أنه لا يدري فذلك جاهل فارفضوه‏.‏Cool
الرد }}}
تم الشكر بواسطة:
#2

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






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




السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#3
وفيك اخي الكريم
والله رفعت من روحي المعنوية
إشهـــــــــــــــــــد إن لا إله إلا اللــــــــــــه إشهـــــــــــــــــد إن محمد رسول اللــــــــــــــه

الرجال أربعة
رجل يدري ويدري أنه يدري فذلك عالم فاتبعوه.Smile
ورجل يدري ولا يدري أنه يدري فذلك نائم فأيقظوه.Cool
ورجل لا يدري ويدري أنه لا يدري فذلك مسترشد فأرشدوه.Big Grin

ورجل لا يدري ولا يدري أنه لا يدري فذلك جاهل فارفضوه‏.‏Cool
الرد }}}
تم الشكر بواسطة:
#4
أخي الكريم لدي سؤال اذا اردت تسجيل أكثر من كلمة مرور ماذا أفعل وأين ملف الرجستري
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 16 12,124 31-10-22, 11:50 PM
آخر رد: Ibrahimxp
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 2,616 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
  العثور على ارشيف المنتدى القديم للفيزوال بيسك 6 AHMED213 4 3,122 27-08-13, 02:06 AM
آخر رد: AHMED213
  اختبار للمبتدئين 1# لمعرفة مستواك البرمجى . mohamdser 2 2,020 08-07-13, 06:52 PM
آخر رد: محمود اكرم
  طلب ملف( pharmokhtar.dll ) من المنتدى القديم مبرمج بلا حدود 2 2,183 02-06-13, 09:19 AM
آخر رد: عبد الله190
  من ايام المنتدى القديم ابحث عن طريقة لمعرفة كم شخص يستخدم برنامجى elhon.tec 5 2,576 18-05-13, 11:38 AM
آخر رد: abulayth
  إضافة مساعد الأوفيس الى برنامجك "من المنتدى القديم" VBMaged 0 1,439 01-05-13, 05:05 AM
آخر رد: VBMaged
  استفسار بخصوص التشغيل مع برنامج الحماية ابـ فيصل ـو 1 1,635 11-12-12, 12:09 AM
آخر رد: 3amo
  مستخدمين البرنامج ( الحماية ) ENG.MPROG 3 2,139 28-10-12, 06:54 PM
آخر رد: احمد129

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم