بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته،،
هذه طريقة عمل حماية من نوع زرع ملف داخل الجهاز
ففي كل مرة يتم فتح البرنامج يتم التاكد من وجود الملف المزروع
فإن لم يجده ستظهر واجهة تطالب بالترخيص وهي عبارة عن اسم المستخدم وكلمة السر .
ملاحظة مهمة : الاكواد جميعها من صنع الأخت زهرة جزاها الله خيرا
لكن مع بعض التعديل وهو ما يسمونه (بتصرف) :(
الفكرة العامة ..
* عند بدء تشغيل البرنامج سيتم التأكد من وجود الملف (officena.dll) داخل القرص C
* عند عدم وجوده سيتم تحويلك الى واجهة المطالبة برقم الرخصة وهي اسم المستخدم وكلمة السر .
* بعد أن يتم ادخال اسم المستخدم وكلمة السر بنجاح سيتم زرع الملف .
* في المرة القادمة وعند تشغيل البرنامج لن يتم المطالبة برقم الرخصة .
اليكم أخواني هذه الطريقة :
1- أنشئ نموذج باسم (Chek_It) وضع فيه الكود التالي في حدث عند الفتح :
Private Sub Form_Open(Cancel As Integer)
On Error GoTo ERROR_SUB
Open "c:\" & "officena.dll" For Input As #1
Close #1
ERROR_SUB:
If Err.Number = 53 Then
MsgBox "أنت تعمل على نسخة غير مرخصة "
Close #1
DoCmd.Close
DoCmd.OpenForm "get_file"
End If
End Sub
2- أنشئ نموذج آخر بإسم (Get_File)
3- أنشئ مربعي نص باسم UN و PW وزر أمر CHkit.
4- ضع الكود التالي في حدث عند النقر للزر CHkit:
Private Sub CHkit _Click()
If UN.Value = "www" And PW.Value = "1234" Then
Open "c:\officena.dll" For Binary Access Write As #1
Close #1
MsgBox "اسم المستخدم وكلمة السر صحيحة", vbOKOnly, "نجحنا"
DoCmd.Quit acQuitSaveAll
Else
MsgBox "اسم المستخدم أو كلمة غيرصحيحة"
End If
End Sub
ملاحظات :
1- يمكن تغيير مسار زرع الملف الى مكان داخل مجلد مخفي مثلا ( لم أجرب هذه الطريقة ) .
2- جرب زرع أكثر من ملف وفي أكثر من مكان وذلك لزوم تقوية الحماية ( أيضا لم أجربها) .
3- جرب حذف الملف المزروع وأعد تشغيل البرنامج ستعود واجهة المطالبة برقم الرخصة بالظهور .
وفي المرفقات مثال على ذلك
ProtectionByFile.rar