بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'خطأ فى كود زرع الملف'.
تم العثور علي 1 نتيجه
-
السلام عليكم اردت ادخال حماية على قاعدة البيانات عن طريق زرع ملف فى مسار معين كما هو موضح ولكن للاسف يعطينى رسالة خطأ أن المسار غير صحيح مع العلم ان الكود مأخوذ من المنتدى وجميع الاراء تقول انه ليس به خطأ وفعلت كما هو مدون بالاسفل مع العلم انى استخدم اوفيس 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
