بسم الله الرحمن الرحيم
عندما نستخدم برنامج يحتوي على معلومات هامة فإنه من المفضل وضع كلمة مرور لهذا البرنامج لكي نمنع العبث بالمعلومات المخزنة داخله وسأشرح هنا كيف وضع كلمة مرور خاصة ببرامجنا فعلى بركة الله نبدأ
أولاً نحتاج إلى :
نموذجين في النموذج الأول نضع صندوقي نص وزر أمر في النموذج الثاني نضع صندوق نص واحد وزر أمر كذلك لنبدأ الآن بالنموذج الأول ومهمته هي أن نطلب من المستخدم إدخال كلمة مرور جديدة
في form_load نكتب الكود التالي :
If Dir$("c:\pass.har") <> "" Then
Unload Me
frm2.Show
Exit Sub
End Ifوفي زر الأمر نستخدم هذا الكود :
Dim password As String If txtnewpass = txtrepass Then password = txtnewpass Open "C:\pass.har" For Binary As #1 Put #1, , password Close #1 Unload Me frm2.Show Else MsgBox "please reEnter the password", vbCritical, "error" txtnewpass.SetFocus Exit Sub End If
وننتقل الآن إلى النموذج الآخر ونعلن عن متغير عام يسمى password في قسم genral ثم نكتب هذا الكود في Form _ load :
Open "c:\pass.har" For Input As #1 password = Input$(LOF(1), 1) Close
وفي زر الأمر نستخدم هذا الكود
If txtpass = password Then MsgBox "Tahnk you for insert true password", vbInformation, "thank you" End Else MsgBox "please insert correct password", vbCritical, "error" txtpass.SetFocus Exit Sub End If
وبذلك نكون قد صنعنا برنامج يطلب من المستخدم كلمة مرور عن تشغيله للبرنامج
لأي استفسار أرجوا مراسلتي على :
Harktat2007@hotmail.com
