ابو ياسين المشولي قام بنشر يونيو 5, 2018 مشاركة قام بنشر يونيو 5, 2018 (معدل) احب اشارك معكم وهذة طريقه في حدث عند الفتح On Error Resume Next Dim x As String If date > #6/6/2018# Then x = MsgBox(" تـم انـتـهـاء فـــــــــــترة الـصـلاحــيـة للـبـرنـامـج الـرجـاء الاتـصـال بـالـمـصـمـم", vbInformation, " انـتـهـاء فـــــــــــترة الـبـرنـامـج") DoCmd.Quit Else x = MsgBox(" الـفـتـرة الـمـتـبـقـي " & Str(#6/6/2018# - date) & " يـوم هـل تـريـد الاسـتـمـرار", vbYesNo, " الـفـتـرة الـمـتـبـقـي عـلـى الـبـرنامـج ") If x = vbNo Then DoCmd.Quit End If End If تم تعديل يونيو 5, 2018 بواسطه ابو ياسين المشولي 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يونيو 5, 2018 الكاتب مشاركة قام بنشر يونيو 5, 2018 (معدل) السلام عليكم حصلت على حل لموضوع مفتاح الشفت الشكر لله اولا ثم لصديقي المهندس هاني مجدي / مصر الرقم السري 0000 بعد تحميل الملف تدخل عليه بواسطة مفتاح الشفت بدحل الرقم السري 0000 ثم تنسخ المديوول والنموذج وتنقلهم على برنامجك وتفعل خيار الغاء مفتاح الشفت انا جربتها وزبطت هيك لا احد يستطيع التعديل على شغلك الا اذا عر ف الرقم السري الغاء الشفت.accdb 55 دقائق مضت, ابو ياسين المشولي said: احب اشارك معكم وهذة طريقه في حدث عند الفتح On Error Resume Next If Date > #10/23/2018# Then x = MsgBox(" تـم انـتـهـاء فـــــــــــترة الـصـلاحــيـة للـبـرنـامـج الـرجـاء الاتـصـال بـالـمـصـمـم", vbInformation, " انـتـهـاء فـــــــــــترة الـبـرنـامـج") DoCmd.Quit Else x = MsgBox(" الـفـتـرة الـمـتـبـقـي " & Str(#6/11/2018# - Date) & " يـوم هـل تـريـد الاسـتـمـرار", vbYesNo, " الـفـتـرة الـمـتـبـقـي عـلـى الـبـرنامـج ") If x = vbNo Then DoCmd.Quit End If End If اذا تاريخ اليوم 5/6/2018 واريد اعطاءه ثلاث ايام فقط كيف تصبح التواريخ في المثال اعلاه ؟؟ في ٤/٦/٢٠١٨ at 17:34, محمد سلامة said: اخي الكريم هل لديك مثال عملي علي ذلك؟ وهنا اقصد اغلاق الشيفت بكلمة مرور شوف اخر مشاركة تم تعديل يونيو 5, 2018 بواسطه عبد اللطيف سلوم اضافة معلومات رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يونيو 5, 2018 مشاركة قام بنشر يونيو 5, 2018 (معدل) 20 دقائق مضت, عبد اللطيف سلوم said: اذا تاريخ اليوم 5/6/2018 واريد اعطاءه ثلاث ايام فقط كيف تصبح التواريخ في المثال اعلاه ؟؟ On Error Resume Next Dim x As String If date > #6/6/2018# Then x = MsgBox(" تـم انـتـهـاء فـــــــــــترة الـصـلاحــيـة للـبـرنـامـج الـرجـاء الاتـصـال بـالـمـصـمـم", vbInformation, " انـتـهـاء فـــــــــــترة الـبـرنـامـج") DoCmd.Quit Else x = MsgBox(" الـفـتـرة الـمـتـبـقـي " & Str(#6/22/2018# - date) & " يـوم هـل تـريـد الاسـتـمـرار", vbYesNo, " الـفـتـرة الـمـتـبـقـي عـلـى الـبـرنامـج ") If x = vbNo Then DoCmd.Quit End If End If شوف اخر مشاركة هكذا يعطيك 17 يوم وانت غير التاريخ كما تشاء تم تعديل يونيو 5, 2018 بواسطه ابو ياسين المشولي 1 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يونيو 5, 2018 مشاركة قام بنشر يونيو 5, 2018 أخي @عبد اللطيف سلوم جربت المثال مغ برامج الغاء الشفت عمل من دون كلمة السر أخي @ابو ياسين المشولي كيف العمل لو المستخدم تلاعب بتاريخ الجهاز 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يونيو 5, 2018 الكاتب مشاركة قام بنشر يونيو 5, 2018 1 دقيقه مضت, Barna said: أخي @عبد اللطيف سلوم جربت المثال مغ برامج الغاء الشفت عمل من دون كلمة السر أخي @ابو ياسين المشولي كيف العمل لو المستخدم تلاعب بتاريخ الجهاز يمكن انا خربطت ورفعته بدون كلمة سر 5 دقائق مضت, ابو ياسين المشولي said: طيب اذا تلاعب بتاريخ الكمبيوتر هل يستطيع ان يخدع هذا الكود ؟؟ 8 دقائق مضت, ابو ياسين المشولي said: طيب اذا تلاعب بتاريخ الكمبيوتر وقام بارجاعه هل يستطيع ان يخدع هذا الكود ؟؟ رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يونيو 5, 2018 مشاركة قام بنشر يونيو 5, 2018 أخي @عبد اللطيف سلوم أقصد ارجاع تاريخ الجهاز الى 6/6/2018 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يونيو 5, 2018 الكاتب مشاركة قام بنشر يونيو 5, 2018 1 دقيقه مضت, Barna said: أخي @عبد اللطيف سلوم أقصد ارجاع تاريخ الجهاز الى 6/6/2018 اخي @Barna مش فاهم عليك ؟؟ رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يونيو 5, 2018 مشاركة قام بنشر يونيو 5, 2018 8 دقائق مضت, عبد اللطيف سلوم said: طيب اذا تلاعب بتاريخ الكمبيوتر هل يستطيع ان يخدع هذا الكود ؟؟ نعم للاسف يمكن خداع الكود ...... 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يونيو 5, 2018 الكاتب مشاركة قام بنشر يونيو 5, 2018 1 دقيقه مضت, Barna said: نعم للاسف يمكن خداع الكود ...... هيك ما زبطت بدنا طريقة ما تتأثر بالتاريخ مثلا تشغيل البرنامج 10 مرات حتى لو بنفس اليوم بعد فتحه عشر مرات يوقف عن العمل رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يونيو 5, 2018 مشاركة قام بنشر يونيو 5, 2018 في ٤/٦/٢٠١٨ at 03:49, kanory said: السلام عليكم ورحمة الله وبركاته وفي الاكسس عموما ليست هناك حماية مطلقة ... ولكن نضع عقبات عديدة لمنع النسخ أو الاطلاع على البيانات الموجودة بها فمثلا :للتعداد وليس الحصر : هذه الخلاصة ..... لكن أعتقد أني شاهدت مثال للسيد جعفر حول حماية البرنامج بالتاريخ وحتى لو قام المستخدم بالتلاعب بالتاريخ يستطيع البرنامج اكتشافة رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يونيو 5, 2018 مشاركة قام بنشر يونيو 5, 2018 أخي @عبد اللطيف سلوم وجدت مثالا أكوادة مأخوذه من مثال أخي جعفر والله أعلم ... البرنامج مفعل حسب الكود ليومين ... حاول ارجاع أو زيادة تاريخ جهازك وشاهد.. Database.mdb 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يونيو 5, 2018 الكاتب مشاركة قام بنشر يونيو 5, 2018 58 دقائق مضت, kanory said: أخي @عبد اللطيف سلوم وجدت مثالا أكوادة مأخوذه من مثال أخي جعفر والله أعلم ... البرنامج مفعل حسب الكود ليومين ... حاول ارجاع أو زيادة تاريخ جهازك وشاهد.. Database.mdb للاسف صديقي يتم خداع الكود عند ارجاع التاريخ وعدني احد الاصدقاء ان يزودني بطريقة اخرى تعتمد على عدد مرات فتح البرنامج هيك اضمن رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يونيو 5, 2018 مشاركة قام بنشر يونيو 5, 2018 معليش اخي ... قم بتجربة البرنامج مرة اخرى ... وارجع التاريخ ... هناك لبس في الموضوع 1 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يونيو 5, 2018 الكاتب مشاركة قام بنشر يونيو 5, 2018 ان شاء الله 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يونيو 5, 2018 مشاركة قام بنشر يونيو 5, 2018 أخي أشكرك لسعة صدرك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان