ابوخليل قام بنشر ديسمبر 14, 2018 قام بنشر ديسمبر 14, 2018 السلام عليكم هي فكرة بسيطة لكنها من وجهة نظري عملية وسهلة التطبيق وتتم بالتحكم واحتساب عدد السجلات المدخلة في جدول محدد وليكن جدول الادخالات اليومية ------------------------- على اعتبار ان البرنامج تم تقسيمه الى 1- واجهات و 2- قاعدة جداول خلفية ، وهو شرط ، للمحافظة على بيانات العميل التي سبق ادخالها في النسخة التجريبية . ----------------- المثال المرفق هو لتوضيح الفكرة : حاول ان تدخل اكثر من اربع سجلات يمكننا ان نضع حد اعلى للسجلات بحسب نوع واستخدامات البرنامج 100 او 200 او اكثر من ذلك Dim i As Integer i = DCount("id", "tbl1") If i >= 5 Then MsgBox "انتهت الفترة التجريبية .. لشراء نسخة الكاملة اتصل على ..." DoCmd.Quit End If db1.mdb 5 1
ابو الآء قام بنشر ديسمبر 14, 2018 قام بنشر ديسمبر 14, 2018 بارك الله فيك معلمنا الجليل وجعله الله فى ميزان حسناتكم
غريب طرابلس قام بنشر ديسمبر 15, 2018 قام بنشر ديسمبر 15, 2018 مشكور استادنا الفاضل هدا ما اقوم به في برامجي ولله الحمد كل من اخد برنامج لتجربة لن يعمل معه مجددا الى في حالة شراء النسخة الكاملة لكن الطريقة التي اعمل بها وهي عند انتهاء المدة يتم زرع ملف حتى ادا حدف البرنامج التجريبي واعاد تتبيته من جديد لن يعمل ولو كانت مدة التجربة سارية وطريقة بسيطة كما قلت وهدا هو شعاري عند فتح نمودج البرنامج لاول مرة فانه يبحث عن ملف ادا وجد يتم الاغلاق وغير دالك يعمل البرنامج التجريبي عادي الى ان تنتهي الفترة التجريبية وهنا تضمن حقك 2
زياد الحسناوي قام بنشر ديسمبر 15, 2018 قام بنشر ديسمبر 15, 2018 في ١٤/١٢/٢٠١٨ at 22:28, ابوخليل said: السلام عليكم هي فكرة بسيطة لكنها من وجهة نظري عملية وسهلة التطبيق وتتم بالتحكم واحتساب عدد السجلات المدخلة في جدول محدد وليكن جدول الادخالات اليومية ------------------------- على اعتبار ان البرنامج تم تقسيمه الى 1- واجهات و 2- قاعدة جداول خلفية ، وهو شرط ، للمحافظة على بيانات العميل التي سبق ادخالها في النسخة التجريبية . ----------------- المثال المرفق هو لتوضيح الفكرة : حاول ان تدخل اكثر من اربع سجلات يمكننا ان نضع حد اعلى للسجلات بحسب نوع واستخدامات البرنامج 100 او 200 او اكثر من ذلك Dim i As Integer i = DCount("id", "tbl1") If i >= 5 Then MsgBox "انتهت الفترة التجريبية .. لشراء نسخة الكاملة اتصل على ..." DoCmd.Quit End If db1.mdb بارك الله بيك كود مميز ايضا يمكن تحديد الفترة بتاريخ وليكن 31/12/2018 2 دقائق مضت, غريب طرابلس said: مشكور استادنا الفاضل هدا ما اقوم به في برامجي ولله الحمد كل من اخد برنامج لتجربة لن يعمل معه مجددا الى في حالة شراء النسخة الكاملة لكن الطريقة التي اعمل بها وهي عند انتهاء المدة يتم زرع ملف حتى ادا حدف البرنامج التجريبي واعاد تتبيته من جديد لن يعمل ولو كانت مدة التجربة سارية وطريقة بسيطة كما قلت وهدا هو شعاري عند فتح نمودج البرنامج لاول مرة فانه يبحث عن ملف ادا وجد يتم الاغلاق وغير دالك يعمل البرنامج التجريبي عادي الى ان تنتهي الفترة التجريبية وهنا تضمن حقك دايما مبدع استاذنا الفاضل
فارس بني هلال قام بنشر ديسمبر 15, 2018 قام بنشر ديسمبر 15, 2018 منذ ساعه, غريب طرابلس said: مشكور استادنا الفاضل هدا ما اقوم به في برامجي ولله الحمد كل من اخد برنامج لتجربة لن يعمل معه مجددا الى في حالة شراء النسخة الكاملة لكن الطريقة التي اعمل بها وهي عند انتهاء المدة يتم زرع ملف حتى ادا حدف البرنامج التجريبي واعاد تتبيته من جديد لن يعمل ولو كانت مدة التجربة سارية وطريقة بسيطة كما قلت وهدا هو شعاري عند فتح نمودج البرنامج لاول مرة فانه يبحث عن ملف ادا وجد يتم الاغلاق وغير دالك يعمل البرنامج التجريبي عادي الى ان تنتهي الفترة التجريبية وهنا تضمن حقك السلام عليكم ممكن تبعث لي برنامج اي ان كان حتى لو به جدول ونموذج وبه كذلك الملف المزروع .. كي اجرب نفسي لكسر مثل هذه البرامج واكون لك من الشاكرين
غريب طرابلس قام بنشر ديسمبر 15, 2018 قام بنشر ديسمبر 15, 2018 انا انصح تجربة البرنامج بعدد سجلات فهي افضل من تاريخ هدا مثال تم تطويره (زرع ملف) فهو لتجربة (غير مفتوح المصدر) عند تسجيل 5 سجلات يتم الاغلاق قم بحدف المثال الاول تم نزل مثال جديد فارغ وانظر هل سيفتح معك ام لا وبعدين سيكون المثال مفتوح لتحميل والاستفادة نسخة تجريبية.rar 1
غريب طرابلس قام بنشر ديسمبر 16, 2018 قام بنشر ديسمبر 16, 2018 (معدل) ردا على طلب الاخ (AboSaad17) تفضل نسخة 2003 ونسخة 2010 مفتوحة لتعديل وتطوير نسخة تجريبية2003.rar نسخة تجريبية2010.rar تم تعديل ديسمبر 16, 2018 بواسطه غريب طرابلس 1
ابوآمنة قام بنشر ديسمبر 16, 2018 قام بنشر ديسمبر 16, 2018 ممكن تشرح لنا الأكواد المستخدمة Dim fs, strFolder Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists("C:\Windows\System32\kh_MO") = True Then والثاني Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.CreateFolder "C:\Windows\System32\kh_MO" علماً أني دخلت نفس المسار فلم أجد شيء C:\Windows\System32\kh_MO
ابوآمنة قام بنشر ديسمبر 16, 2018 قام بنشر ديسمبر 16, 2018 ألاحظ أنه يقبل المسار المباشر : C:\saleh دون الدخول في المجلدات هل هناك مشكلة !!!
AboSaad17 قام بنشر ديسمبر 16, 2018 قام بنشر ديسمبر 16, 2018 السلام عليكم ورحمة الله اخي الفاضل غريب طرابلس هذا الملف (( kh_MO )) لم أجده في مجلد syste32 نحتاج منك الشــرح الوافي لكل الخطوات إذا تكرمت ........................................................................... وكيف يتم إزالة الملف ولك جـــزيل الشــكر
Barna قام بنشر ديسمبر 17, 2018 قام بنشر ديسمبر 17, 2018 في ١٦/١٢/٢٠١٨ at 02:02, غريب طرابلس said: انا انصح تجربة البرنامج بعدد سجلات فهي افضل من تاريخ هدا مثال تم تطويره (زرع ملف) فهو لتجربة (غير مفتوح المصدر) عند تسجيل 5 سجلات يتم الاغلاق قم بحدف المثال الاول تم نزل مثال جديد فارغ وانظر هل سيفتح معك ام لا وبعدين سيكون المثال مفتوح لتحميل والاستفادة نسخة تجريبية.rar هذه الطريقة غير مجدية ( وجة نظر ) : لأن المستخدم لو دخل الى الجدول وحذف حقل ID يعمل معه البرنامج دون توقف ؟؟؟؟؟؟
غريب طرابلس قام بنشر ديسمبر 17, 2018 قام بنشر ديسمبر 17, 2018 (معدل) ردا على الاخ Barna صحيح ادا تركت جداول غير مخفية يمكنك حدف حقل ID هدا الكود ليس كاملا وانما انا اضفت فكرة للحماية فقط هل هده الفكرة ستحمي البرنامج طبعا لا لا وجود لحماية مطلقة لاي برنامج حتى شركة مكروسوفت لم تحمي برامجها من التهكير ما يوجد اخي هو التحايل وليس الحماية مثلا الدي يشتري برنامجك هل لديه خبرة في البرمجة لا لو كانت لديه خبرة ما التجأ اليك ممن تخاف (تخاف من اصحاب القلوب المريضة فقط) من مبرمج ليس لديه اخلاق ممكن يفتح البرنامج وتعديل علية تم بيعه باسمه لكن التحايل بعدة طرق تتجنب السرقة انت محتاج لاخفاء جميع مكونات القاعدة اواخفاء نمودج المصدر للحماية تم تغيير القاعدة الى (accde) او (mde) لكي لا تفتح الوحدات النمطية هدا جانب _______________________________ الجانب الاخر من السؤال الاخ Saleh 204 معنى الكود الاول والثاني فليس في الكود ما يشرح فهو مشروح حتى على المبتدأ على العموم لتوضيح الرئية الكود الاول يقول ابحت عن المجلد باسم ( kh_MO ) في درايف او المسار !!!!!!!!!!! C:\Windows\System32 فيمكن تغيير اسم المجلد الى اي اسم اخر ---------------------------------------- الكود الثاني يقول ازرع اواي عبارة !!! اخرى في درايف ............. (C:\Windows\System32) ||| باسم ............( kh_MO ). _____________________________ وردا على الاخ AboSaad17 ادا لم تجده في مسار (C:\Windows\System32) فابحث في مسار (C:\Windows\SysWOW64) ستجده هناك في انتظارك والسلام ختام تم تعديل ديسمبر 17, 2018 بواسطه غريب طرابلس
غريب طرابلس قام بنشر ديسمبر 17, 2018 قام بنشر ديسمبر 17, 2018 16 ساعات مضت, saleh204 said: ألاحظ أنه يقبل المسار المباشر : C:\saleh دون الدخول في المجلدات هل هناك مشكلة !!! اخي ممكن انك لم تفهم القصد زرع ملف ؟؟؟؟؟؟؟؟؟؟؟؟؟؟ اختر اي مسار تريد وليس مشروط المسار الموجود في الكود فالتحايل معناه هو زرع الملف في مسار لايستطيع احد الوصول اليه وليس المسار الدي كتبته فلو لاحظت المسار الموجود في المثال تم زرع المجلد في (قلب النظام ) ولن يخطر على المتعقب او الباحث على الكود الوصول اليه ستقول لي اني عرفة المسار ساقول اعطيتك المثال مفتوح لو بقي على حاله مغلق لن تجد الكود الى بعد مدة والله اعلم كم ستطول هده المدة ( هدا اسمه التحايل وليس الحماية ) 1
محمد عبد الشفيع قام بنشر ديسمبر 17, 2018 قام بنشر ديسمبر 17, 2018 استاذى العزيز @غريب طرابلس قمت بتنزيل المرفق المفتوح ٢٠١٠ وادخلت اكثر من ٥ سجلات حتى عشرين ولم يحدث شي
AboSaad17 قام بنشر ديسمبر 17, 2018 قام بنشر ديسمبر 17, 2018 2 ساعات مضت, غريب طرابلس said: وردا على الاخ AboSaad17 ادا لم تجده في مسار (C:\Windows\System32) فابحث في مسار (C:\Windows\SysWOW64) ستجده هناك في انتظارك والسلام ختام اخي الفاضل غريب طرابلس لم أجد أحد في إنتظاري لا في مجلد system Or system32 ولا يوجد في جهزي مجلد باسم SysWOW64 أفدنا
غريب طرابلس قام بنشر ديسمبر 17, 2018 قام بنشر ديسمبر 17, 2018 فهدا هو سر في زرع مجلد ابحث جيدا وستجده ليس ملف فهو مجلد او انك لم تقم بتجربته لزرع الملف جرب 5 سجلات وابحث في system32
AboSaad17 قام بنشر ديسمبر 17, 2018 قام بنشر ديسمبر 17, 2018 اخي الفاضل غريب طرابلس قمت بتجربة الملف وتم فعلا إغلاق الملف بعد خمس سجلات وعند محاولة فتحة لم يتم الفتح ولــكن لم أجد المجلد kh_MO
Hamdi Edlbi-khalf قام بنشر ديسمبر 17, 2018 قام بنشر ديسمبر 17, 2018 في December 16, 2018 at 01:02, غريب طرابلس said: بحدف المثال الاول تم نزل مثال جديد فارغ وانظر هل سيفتح معك ام لا السلام عليكم في البداية الشكر للأستاذ @ابوخليل على موضوعه القيم . ثم الشكر لك على إضافتك القيمة أستاذ @غريب طرابلس لقد قمت بفتح الملف و الذي حقق المطلوب بمنع إضافة أكثر من ٥ سجلات . و لكن عند حذف الملف و إعادة استخدام ملف جديد فإنه سيبدأ العد حتى ٥ سجلات و لن يغلق ، فيا ترى ما الفائدة من الملف المزروع طالما يمكن للملف أن يعيد الفترة التجريبية و كأن لم يكن .
غريب طرابلس قام بنشر ديسمبر 17, 2018 قام بنشر ديسمبر 17, 2018 (معدل) 5 ساعات مضت, Khalf said: السلام عليكم في البداية الشكر للأستاذ @ابوخليل على موضوعه القيم . ثم الشكر لك على إضافتك القيمة أستاذ @غريب طرابلس لقد قمت بفتح الملف و الذي حقق المطلوب بمنع إضافة أكثر من ٥ سجلات . و لكن عند حذف الملف و إعادة استخدام ملف جديد فإنه سيبدأ العد حتى ٥ سجلات و لن يغلق ، فيا ترى ما الفائدة من الملف المزروع طالما يمكن للملف أن يعيد الفترة التجريبية و كأن لم يكن . اخي الكريم تم رد على السائل الاول وكان سؤاله مطابق لسؤالك استاد خلف على ما اعتقد لان اسمك مكتوب بالانجليزي على العموم ساعيد الجواب لحظرتك شوف اخي الكريم اول شيء كيف قمت بتفريغ السجلات او بالمعنى الاصح تصفير السجلات الى 0 يعني هدا سؤال يمكن اجاوبك عليه هل لو كانت القاعدة تم تغيير امتدادها الى (accde) واخفاء الجداول هل كنت ستصل الى جدول وتفريغه انت اخدت المثال مفتوح وراية مسار المجلد وحدفت المجلد فكيف تريد المثال ان يغلق ....... اخي الكريم اقرأ مداخلة الاخ AboSaad17 اخي الفاضل غريب طرابلس قمت بتجربة الملف وتم فعلا إغلاق الملف بعد خمس سجلات وعند محاولة فتحة لم يتم الفتح ولــكن لم أجد المجلد kh_MO تم تعديل ديسمبر 17, 2018 بواسطه غريب طرابلس 1
ابوخليل قام بنشر ديسمبر 17, 2018 الكاتب قام بنشر ديسمبر 17, 2018 4 ساعات مضت, Khalf said: لقد قمت بفتح الملف و الذي حقق المطلوب بمنع إضافة أكثر من ٥ سجلات . و لكن عند حذف الملف و إعادة استخدام ملف جديد فإنه سيبدأ العد حتى ٥ سجلات و لن يغلق 31 دقائق مضت, غريب طرابلس said: يمكن اجاوبك عليه هل لو كانت القاعدة تم تغيير امتدادها الى (accde) واخفاء الجداول هل كنت ستصل الى جدول وتفريغه واضافة الى ما ذكره الاستاذ غريب فلسنا بحاجة الى اخفاء الجداول ..وليس لدينا مشكلة بان يقوم بحذف السجلات والبدء من جديد .. لو فرضنا ان البرنامج خاص بالحسابات ، وكانت الحماية للتجربة كحد اقصى 100 سجل ، فلا يتصور ان صاحب العمل سيعمل حتى يصل 100 سجل ثم يحذفها ويبدأ من جديد . لانه حين يعمل عليه ويعجب به سيطلب النسخة الكاملة باختصار يمكنني ان اكتب اعلان : البرنامج مجاني لمن سجلاته لا تتجاوز كذا . 1
غريب طرابلس قام بنشر ديسمبر 17, 2018 قام بنشر ديسمبر 17, 2018 بارك الله فيك استادنا الفاضل ابو خليل { خير الكلام ما قل ودل }
Hamdi Edlbi-khalf قام بنشر ديسمبر 17, 2018 قام بنشر ديسمبر 17, 2018 منذ ساعه, غريب طرابلس said: اول شيء كيف قمت بتفريغ السجلات او بالمعنى الاصح تصفير السجلات الى 0 السلام عليكم و أعتذر على إتعابك بإعادة الإجابة .. فإني لم أقم بتصفير قاعدة البيانات بل استبدلتها حيث حذفت البرنامج و استخدمت نسخة بلا بيانات بعد فك الملف المضغوط ، و كنت أفترض أن دور الملف هو منع إعادة الفترة التجريبية و هو ما لم يحدث و هنا سؤالي ما فائدة الملف المزروع إذا استطعنا إعادة استخدام البرنامج لمدة تجريبية جديدة ؟ منذ ساعه, غريب طرابلس said: انت اخدت المثال مفتوح وراية مسار المجلد وحدفت المجلد فكيف تريد المثال ان يغلق ....... لم أنزل ملفكم المفتوح بعد و قد تقصدمن استخدامي للملف المغلق فقط ذلك تجريب فكرة الملف المزروع بالنظام . 48 دقائق مضت, ابوخليل said: لو فرضنا ان البرنامج خاص بالحسابات ، وكانت الحماية للتجربة كحد اقصى 100 سجل ، فلا يتصور ان صاحب العمل سيعمل حتى يصل 100 سجل ثم يحذفها ويبدأ من جديد . لانه حين يعمل عليه ويعجب به سيطلب النسخة الكاملة ملاحظة هامة لي عليها تعقيب . خلال تجربتي المحدودة هناك الكثير من البرامج التي لا يهم فيها قاعدة البيانات بقدر المهمة التي يؤديها البرنامج ، و لا يضير المستخدم إعادة حذفها و تنزيلها . مثل برامج الطباعة التي تقدم تصاميماً للبطاقات البادجات اللصاقات، أو تلك التي تسمح بتصدير جدول قاعدة البيانات بعد القيام بعمليات المعالجة مثل احتساب المقتطعات بمعادلات معينة و طباعة هذه النتائج على بطاقات أو استمارات . و هنا تبرز أهمية طريقة الملف المزروع في النظام و الذي سيمنع إعادة استخدام البرنامج لفترة تجريبية جديدة . شكراً لكم على اهتمامكم أساتذتي الكرام .
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.