الحماية بطريقة زرع ملف

[mom20088]

السلام عليكم

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

وفعلت كما هو مدون بالاسفل مع العلم انى استخدم اوفيس 2013

الموضوع الاصلى

مرفق البرنامج

هذه طريقة عمل حماية من نوع زرع ملف داخل الجهاز

ففي كل مرة يتم فتح البرنامج يتم التاكد من وجود الملف المزروع

فإن لم يجده ستظهر واجهة تطالب بالترخيص وهي عبارة عن اسم المستخدم وكلمة السر .

 

ملاحظة مهمة : الاكواد جميعها من صنع الأخت زهرة جزاها الله خيرا

لكن مع بعض التعديل وهو ما يسمونه (بتصرف) :(

الفكرة العامة ..

* عند بدء تشغيل البرنامج سيتم التأكد من وجود الملف (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

شكرا لمجهودكم معى

 

 

ProtectionByFile.rar

[حسين العربى]

تفضل اخي الفاضل اليك هذا المرفق  به كود بسيط داخل فورم تسجيل الدخول  ويوجد ملف تكست مع المرفق ضع هذ الملف في السي في ملف ويندوز  وقبل ان تضع هذ الملف في المسار الذي ذكرناه جرب فتح المرفق  اولا  ويمكنك تغيير المسار  لو حبيت وشكرا .

test1.rar

[mom20088]

أشكرك أخى الكريم

[sideeq]

السلام عليكم كيف يمكن تطبيق هذا الكود على الاكسل