ابوخليل

موضوع الحماية يعتبر من المواضيع الخاصة اي ان كل مبرمج له طرقه الخاصة في حماية برامجه وقد تكون هذه الطرق من ابتكاره هو ولم يطلع عليها احد فيبقى هذا من خصوصياته التي يبخل في الاعلان عنها ولا شك هو لا يلام في ذلك . ولو ضربت لك مثلا في احد الاعضاء كان يسأل هنا عن طريقة لحذف ملف ما ثم طريقة الاستعلام عنه ، طبعا هوفكر بطريقة عكس طريقتك . وعلى كل حال طرق الحماية كثيرة ومتنوعة وايضا طرق كسرها محتمل لا شك في ذلك لان الجميع يتفق انه لا يوجد حماية كاملة ، وسأسرد بعض الطرق الشائعة التي تستخدم فرادى واحيانا يجمع بين اكثر من طريقة لزيادة الحماية وضبطها : 1- الحماية بواسطة المعالج او الاقراص الثابتة او المنقولة 2- زراعة ملفات داخل النظام او حذفها 3- تسجيل بيانات محددة داخل النظام وتفسيرا لاستفساري السابق حين يتم تنصيب البرنامج لاول مرة يبحث البرنامج عن محبوبه داخل النظام ( في الجداول او في المجلدات او التسجيل او حتى تكون في خصيصة معينة لكائن ) فان لم يجدها يظهر فورم يطالب برقم التسجيل الذي ينبني على معادلة مسبقة الصنع معتمدة على عتاد الحاسوب وحين يدخل الرقم الصحيح يتم خلق هذا المحبوب في اوقات يحتاج المبرمج عرض برنامجه للتجربة مدة محددة او حسب ادخالات محددة وهنا يلجأ الى الحلول المناسبة التي تحفظ حقوقه عن العبث . ولكن مع ذلك ترى برامج عملاقة محمية تم اختراقها وفك طلاسمها طبعا التقنية تتطور وتتغير مع الزمن وهو الملاحظ حاليا في لغات البرمجة الاخرى التي تجمع بين واجهات الويب وواجهات وندوز فيمكن تطبيق الحماية اون لاين عبر الويب ، بحيث لا يعمل البرنامج الا بوجود الانترنت ، بهذه الطريقة تكون الشيفرة في جيب المبرمج آمل ان يكون في الاسطر السابقة زيادة معلومة وفائدة

وعليكم السلام احد الحلول السريعة ما دمت تتعامل مع جهاز العميل : جرب اضبط دقة شاشة وندوز في جهاز العميل مثل الدقة في جهازك طبعا ستحل المشكلة ولكن يعتبر هذا الحل تصرف في تنسيقات العميل المفضلة طبعا كانت هذه الحلول تقدم في وقت مضى حيث يوضح في التعليمات للعميل ان افضل عرض للبرنامج هو ضبط الشاشة على الدقة الفلانية ثم كانت هناك حلول بتغيير دقة شاشة العميل آليا وهذا ايضا يعتبر تعدي على الخصوصية الآن يوجد اكواد وهي موجودة فعلا في هذا المنتدى فقط تحتاج لقليل من البحث تقوم هذه الاكواد بضبط العرض على شاشة العميل آليا بحيث تتوائم واجهات البرنامج مع شاشة العميل ولا تغيرها

احب اشارك اخوي حسين كلامك صحيح 100% لا غبار عليه ، ولكن بشرط انت من سيقوم بتركيب البرنامج مباشرة على جهاز العميل طيب لو اردنا نشر البرنامج يعني اضع البرنامج على الموقع والعميل هو من سيقوم بتنزيله وتنصيبه على جهازه فما هي خطوات الحماية المتبعة في هذا الحال ؟

يا لطيف !!!!!!!! ما قلنا نحن نطبق على شرط عادي ليس للفلاش دخل فيه بعدين فتح f1 وهذا يعني ان الشرط صحيح والمثال اشتغل المطلوب منك انك تزيد او تنقص في الرقم الموجود داخل الوحدة النمطية العامة ثم تجرب لندع الامثلة السابقة كلها الآن جرب اكتب رقم فلاشك في مكانه المخصص في المثال المرفق ثم افحص المثال TG2.rar

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

يا بو العقاب : المثال الاخير مافيه رقم فلاش مجرد كود عادي ورقم عادي المفروض يعمل استاذ عبدالله لا يوجد عندنا مشكلة في اظهار رقم الفلاشة المشكلة ان ابو العقاب عجز عن تطبيق الشرط جرب استاذ عبدالله مشكورا آخر مثال تم ارفاقه وافدنا هل يتم تنفيذ الشرط ؟ وقم بتغيير احد الارقام وانظر ما يحدث

كيف ؟ عند فتح النموذج frm1 : الا يفتح معك نموذج الترحيب ويقفل نموذج البداية ؟ نفتح نموذج frm1 فيظهر نموذج f1 فقط .. اليس كذلك ؟ ارجو من الاخوة الذين حملوا المثال الاخير في المشاركة السابقة التجربة والافادة

انظر .. جرب المثال المرفق اذا فتح نموذج الترحيب جيد حاول تغير في احد الرقمين وشوف النتيجة وخبرني التجربة هذه خارج الفلاشة TG.rar

الكود شغال 100% جرب غير تعريف المتغير الموجود في اعلى المحرر الى dim i as String ايضا السطر : strComputer = "." اكتب قبله dim strComputer اذا لم يمشي الحال عندي لك كود آخر للفحص عندي لم يتغير مع الفورمات وربما انواع اخرى تختلف ولكن هل يمكن الفلاشات تتشابه في السيريال فهذا لا اعلم ولم اجرب

ممتاز اخونا حسين يعني ان الفلاشة معك انت للحفاظ على خصوصية البرنامج ولكن ابو العقاب يريد البرنامج داخل الفلاشة ، بمعنى انه يريد توزيع البرنامج مع الفلاشة بحيث يمكنك تشغيل البرنامج بعد شرائه على اي جهاز حاسوب اي لا يمكنك نسخه الى فلاشة اوجهاز آخر

exit sub هي للخروج من الشرط وفتح النموذج اصلا اذا تحقق الشرط فتح النموذج وهي نتيجة exit sub اما اذا لم يتحقق تخرج الرسالة ويغلق التطبيق اين المشكلة في ذلك ؟ طيب اجعل بدلها امر بفتح نموذج آخر

ولكنه عندي يعمل استبدل الرقم وجرب db1.rar

اعمل مثال داخل الفلاش يحتوي على نموذج واحد فقط الصق الاكواد في محرر النموذج وجرب العمل سيتم على نموذج واحد حدث عند الفتح يقرأ رقم الفلاشة وحدث عند التحميل يقارن اذا ضبطت يمكنك استبدال العبارة exit sub بعبارة اخرى لفتح ما تريد Dim i Private Sub Form_Load() If i = "1210253353" Then Exit Sub Else MsgBox "البرنامج محمي لا يمكن فتحه" DoCmd.Quit End If End Sub Private Sub Form_Open(Cancel As Integer) strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DiskDrive", , 48) For Each objItem In colItems i = objItem.SerialNumber Next End Sub ويمكن جعل الكود في حدث الفتح في وحدة نمطية عامة يتم نداؤها داخل كل نموذج لتضمن عدم التمكن من فتح اي نموذج عند مخالفة الشرط

هذا الكود يظهر رقم الفلاشة التسلسي في الرسالة strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DiskDrive", , 48) For Each objItem In colItems s = objItem.SerialNumber Next MsgBox s يمكنك استبدال الرسالة بمتغير يتم فحصه عند فتح النموذج فان كان موافقا لهذا الرقم والا يتم غلق البرنامج ملحوظة : يجب ان تتأكد ان الفلاشات لا تتشابه ارقامها خاصة اذا كانت من مصنع واحد انا جربت فلاشة واحدة عندي قبل الفورمات وبعد الفورمات لم يتغير الرقم

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

لم تجب على تساؤلي اي برنامج متقدم يحتاج الى خدمات مصاحبة يتم تثبيتها على الجهاز المستخدم

هل تقصد ان : 1- البرنامج موجود على الفلاشة 2- يمكنه تشغيل البرنامج من اي جهاز آخر من الفلاشة الحالية فقط اذا كان صحيحا فما تعليقك على الخدمات المصاحبة للبرنامج مثل التعريفات والمكتبات

ارفق مثالك لتسهل على اخوتك مساعدتك

هذا برنامج صغير لحذف وإزالة التشكيل عن النصوص مثلا يحتاج احدنا آية كريمة او حديث شريف خالية من التشكيل ، فتصور كم من الوقت والجهد يحتاج لازالة تلك الحركات انا اعتقد ان كتابتها من جديد ارحم في هذا التطبيق يتم النسخ واللصق والتطبيق ولمن اراد زيادة في التطبيق والافكار يتفضل من هنا برنامج حذف التشكيل.rar

وهذه طريقة لاستخراج النصوص بلا تشكيل عن طريق الاستعلام اختصرنا الكود السابق ووضعناه في وحدة نمطية عامة واستخدمناه داخل الاستعلام Public Function delTshkeel(tshkeel As String) Dim i As Integer Dim fld As String, wr As String, spa As String wr = "" fld = tshkeel i = 1 Do While i <= Len(fld) spa = Mid(fld, i, 1) If Asc(spa) = 240 Or Asc(spa) = 241 Or Asc(spa) = 242 Or Asc(spa) = 243 Or Asc(spa) = 244 Or Asc(spa) = 245 Or Asc(spa) = 246 Or Asc(spa) = 247 Or Asc(spa) = 248 Or Asc(spa) = 249 Or Asc(spa) = 250 Then Else wr = wr & spa End If i = i + 1 Loop delTshkeel = wr End Function وهذا المرفق استعلام حذف التشكيل.rar

هدية لاحبتي في الله للحاجة الملحة في تسهيل وتيسير عمليات البحث داخل النصوص وخاصة النصوص الكريمة في القرآن والسنة كان لزاما عند اجراء عملية البحث اهمال حركات التشكيل الموجودة في هذه النصوص وبعد البحث وجدت التالي : 0x064B فتحتان Shift + W 0x064C ضمتان Shift + R 0x064D كسرتان Shift + S 0x064E فتحة Shift + Q 0x064F ضمة Shift + E 0x0650 كسرة Shift + A 0x0651 شدة Shift + ~ 0x0652 سكون Shift + X ووجدت ايضا : أن رموز unicode لحروف التشكيل العربية تبدأ من 240 وحتى 250 من هنا : http://withdotnet.net/2010/06/using-strings-with-combining-chars/ وأصل الكود هنا وبفضل من الله وعونه تم التوصل الى طريقة مرنة يمكن تطبيقها بكل يسر وسهولة عبر الكود التالي : Private Sub zer1_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim i, x As Integer Set db = CurrentDb Set rs = db.OpenRecordset("tbl1") rs.MoveLast rs.MoveFirst For x = 1 To rs.RecordCount Dim fld As String, wr As String, spa As String wr = "" fld = rs!text1 i = 1 Do While i <= Len(fld) spa = Mid(fld, i, 1) If Asc(spa) = 240 Or Asc(spa) = 241 Or Asc(spa) = 242 Or Asc(spa) = 243 Or Asc(spa) = 244 Or Asc(spa) = 245 Or Asc(spa) = 246 Or Asc(spa) = 247 Or Asc(spa) = 248 Or Asc(spa) = 249 Or Asc(spa) = 250 Then Else wr = wr & spa End If i = i + 1 Loop rs.Edit rs!text2 = wr rs.Update rs.MoveNext Next x Set db = Nothing Set rs = Nothing MsgBox "تمت العملية بنجاح" End Sub في المرفقات يتم من خلال هذا الكود حذف التشكيل ونقل النتيجة الى عمود جديد وطبعا هذا حسب طلب اخونا المحب علما انه يمكن اخراج النتيجة داخل الاستعلام وهو برأيي افضل .. وللهدية بقية ... ازالة التشكيل.rar

اضبط اعدادات المنطقة واللغة في وندوز على اللغة التي تستخدمها

اضبط اعدادات المنطقة واللغة في وندوز على اللغة التي تستخدمها في الاحداث اذا لم يصلح الحال : احذف اوفيس ثم اعد تنصيبه

اذا كان السؤال في محيط الوورد فيمكنك جعل المستند الذي تعمل عليه محمي (للقراءة فقط) وعند تسجيل شخص ما فلن تتمكن من الحفظ ولكن يمكنك الحفظ باسم لتضع اسم الشخص على المستند الجديد وستجد المستند الاصلي خاليا حين تفتحه من جديد وطريقة الحماية : انقر بالزر الايمن على المستند وهو مغلق واختر خصائص / ضع اشارة على خانة : للقراءة

السلام عليكم هذه المشكلة توضح انه تم اضافة الجدول الى القالب يوجد عدة طرق لحل هذه المشكلة : 1- لصق ملف Normal.dot جديد بدلا من الموجود 2- تنصيب وورد جديد بعد حذف الاول اذا كان القالب معد بشكل خاص ولا تريد تغيييره او يوجد فيه اضافات يصعب تحديثه انظر الصورة وفيها الموضع الذي يمكنك حذف الاضافات الغير مرغوب فيها