مساعدة في كتابة كود

[ابو عبد الرحمن اشرف]

كده صح وان لم يكن فما الصحيح وشكرا لكم 

تم تعديل مايو 8, 2023 بواسطه ابو عبد الرحمن اشرف
نسيت المرفق

[Ezril]

من الي عطاك كود!!  وهنا ليس امتحان للطلب ولاندرس الاستاذ بل نتبادل ونعين بعض  

بساعدك بشغله استعمل الجدوال Me.  بدل ""  للفتح واغلاق وذاك شرط ينفع عند نهاية الوقت او للصلاحيات بشرط اذا كان رقم مجموعه 2 اغلق نافذه الحاليه ويفتح نافذه تدقيق وراك شغل 

ما هو طلبك؟!  باي شرط للكود لي يساعدوك 

[ابو عبد الرحمن اشرف]

33 دقائق مضت, ابو عبد الرحمن اشرف said:

كده صح وان لم يكن فما الصحيح وشكرا لكم 

 

6 دقائق مضت, Ezril said:

من الي عطاك كود!!  وهنا ليس امتحان للطلب ولاندرس الاستاذ بل نتبادل ونعين بعض  

بساعدك بشغله استعمل الجدوال Me.  بدل ""  للفتح واغلاق وذاك شرط ينفع عند نهاية الوقت او للصلاحيات بشرط اذا كان رقم مجموعه 2 اغلق نافذه الحاليه ويفتح نافذه تدقيق وراك شغل 

ما هو طلبك؟!  باي شرط للكود لي يساعدوك 

العفو يا فندم انا امنيتي بعد حصولي علي رقم uuid 

ان اضعه شرط لفتح قاعدة البيانات حتي لا تعمل علي جهاز اخر

2 دقائق مضت, ابو عبد الرحمن اشرف said:

من الي عطاك كود!!  وهنا ليس امتحان للطلب ولاندرس الاستاذ بل نتبادل ونعين بعض  

بساعدك بشغله استعمل الجدوال Me.  بدل ""  للفتح واغلاق وذاك شرط ينفع عند نهاية الوقت او للصلاحيات بشرط اذا كان رقم مجموعه 2 اغلق نافذه الحاليه ويفتح نافذه تدقيق وراك شغل 

هي دي شتيمة وله استنكار علي عدم فهمي ومعرفتي اخي بارك الله فيك

[Ezril]

كيف واشلون فهمتها شتيمه !! ده اختراع!!  وكود حل سؤال .....  (  جاوب )  اكمل بين قوسين؟! على درجتين! 

لا يوجد طلب يخدم لك مشروع ولا  نعرف ما هو شرط المطلوب للتحقق او يساوي ده سؤال على بياض 

[ابو عبد الرحمن اشرف]

51 دقائق مضت, Ezril said:

كيف واشلون فهمتها شتيمه !! ده اختراع!!  وكود حل سؤال .....  (  جاوب )  اكمل بين قوسين؟! على درجتين! 

لا يوجد طلب يخدم لك مشروع ولا  نعرف ما هو شرط المطلوب للتحقق او يساوي ده سؤال على بياض 

دي قاعدة بيانات موجوده علي جهاز ما ولا اريد نسخها علي جهاز اخر يارب تكون الفكرة وصلت

 

ورشة.rar

[ابوخليل]

4 ساعات مضت, ابو عبد الرحمن اشرف said:

كده صح وان لم يكن فما الصحيح وشكرا لكم 

ينفع ليه لا ؟

جرب وحاول .. هناك مائة طريقة وطريقة للحماية

1- كتابة الشفرة داخل محرر الفيجوال ( ثم تحويل الملف الى mde او accde

2 - كتابة الشفرة في الجدول وتشفيرها

3- غرس ملف داخل نظام ويندوز يبحث عنه البرنامج عند الاقلاع فإن وجده فتح 

4- البحث عن شفرة معينة داخل ملف في النظام

5- تسجيل  قيمة ومفتاح في الريجستري يتعرف عليها البرنامج عند الاقلاع

وغيرها الكثير من الطرق المعروفة والخاصة غير المعروفة ، بمعنى انه يمكنك ابتكار طريقة خاصة بك

 

[ابو عبد الرحمن اشرف]

11 دقائق مضت, ابوخليل said:

تسجيل  قيمة ومفتاح في الريجستري يتعرف عليها البرنامج عند الاقلاع

اخي الحبيب الغالي بارك الله فيك علي الرد الجميل 

هو ده بالضبط اللي انا عاوز اعمله وكنت محتاج كود لذلك 

بارك الله فيك اخي

[ابوخليل]

تفضل

هذا مثال على غرس ملف

فك الضغط عن المرفق تجد بجانب قاعدة البيانات ملف باسم   ashraf.txt  

سيتم فتح البرنامج بشكل عادي .... حاول حذف الملف او تغيير اسمه ثم حاول فتح البرنامج

Dim iFile
Set iFile = CreateObject("Scripting.FileSystemObject")
If iFile.FileExists(CurrentProject.Path & "\ashraf.txt") = False Then
MsgBox "غير مصرح لك بالدخول .. سيتم غلق البرنامج "
DoCmd.Quit
Else
MsgBox "مرحبا"
End If

 

xfolder.rar

[ابو عبد الرحمن اشرف]

منذ ساعه, ابوخليل said:

تفضل

هذا مثال على غرس ملف

فك الضغط عن المرفق تجد بجانب قاعدة البيانات ملف باسم   ashraf.txt  

سيتم فتح البرنامج بشكل عادي .... حاول حذف الملف او تغيير اسمه ثم حاول فتح البرنامج

Dim iFile
Set iFile = CreateObject("Scripting.FileSystemObject")
If iFile.FileExists(CurrentProject.Path & "\ashraf.txt") = False Then
MsgBox "غير مصرح لك بالدخول .. سيتم غلق البرنامج "
DoCmd.Quit
Else
MsgBox "مرحبا"
End If

 

xfolder.rar 12.1 kB · 2 downloads

 

 

تبارك الله بارك الله فيك اخي الحبيب

فعلا حاولت تغير اسم الملف فلم تفتح قاعدة البيانات 

هل لو تم نقل الملف الي اي مكان في الجهاز تعمل القاعدة اخي ؟ لاني نقلت الملف الي دريف اخر فلم تفتح القاعدة , فنريد وضع ذلك الملف بعيدا عن القاعدة 

ربي يزيدك علما ونفع الله بك واعلي قدرك  

هذه واحدة من اصل 5 طرق فياليت تتحفنا بباقي الطرق واحدة تلو الاخري اخي الكريم

[ابوخليل]

مكان الملف انت الذي تحدده داخل الكود

في الكود اعلا موجود داخل القوسين : 

(CurrentProject.Path & "\ashraf.txt")

اي ان الملف موجود بجانب قاعدة البيانات ... يمكنك تغيير مكان الملف على قرص C مثلا  وتعدل  ما بين القوسين الى :

("C:\ashraf.txt")

او

("C:\WIDOWS\ashraf.txt")

وتلصق الملف داخل مجلد وندوز

وهكذا ..... آمل انك فهمت الفكرة

[ابو عبد الرحمن اشرف]

10 ساعات مضت, ابوخليل said:

مكان الملف انت الذي تحدده داخل الكود

في الكود اعلا موجود داخل القوسين : 

(CurrentProject.Path & "\ashraf.txt")

اي ان الملف موجود بجانب قاعدة البيانات ... يمكنك تغيير مكان الملف على قرص C مثلا  وتعدل  ما بين القوسين الى :

("C:\ashraf.txt")

او

("C:\WIDOWS\ashraf.txt")

وتلصق الملف داخل مجلد وندوز

وهكذا ..... آمل انك فهمت الفكرة

 

بارك الله فيك اخي وصلت الفكرة وتم فهمها وتنفيذها 

جعله الله في ميزان حسناتك اخي

وبما ان الطمع في الخير والاستزادة من العلم امر محمود

فانا بانتظار ابداعت حضرتك في الطرق الاربعة الباقية

 

[ابوخليل]

13 ساعات مضت, ابوخليل said:

 

وغيرها الكثير من الطرق المعروفة والخاصة غير المعروفة ، بمعنى انه يمكنك ابتكار طريقة خاصة بك

 

 

17 دقائق مضت, ابو عبد الرحمن اشرف said:

 

فانا بانتظار ابداعت حضرتك في الطرق الاربعة الباقية

 

لا .. ليس هكذا  .. بارك الله فيك

وانما الفكرة يجب ان تستنبطها انت .. ونحن هنا نساعدك على تنفيذها

يوجد طرق اخرى لم اكتبها .

[ابو عبد الرحمن اشرف]

16 دقائق مضت, ابوخليل said:

 

لا .. ليس هكذا  .. بارك الله فيك

وانما الفكرة يجب ان تستنبطها انت .. ونحن هنا نساعدك على تنفيذها

يوجد طرق اخرى لم اكتبها .

تمام اخي احسن الله اليك

نأتي الي الفكرة التي كنت اود تنفيذها في اول المشاركة 

عندي ملف من كنوز المنتدي يعطيني رقم uuid للجهاز الذي تعمل عليه قاعدة البيانات  فاريد ربط الشرط برقم uuid

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

فهل ممكن حضرتك تساعدني في ذلك بارك الله فيك

[ابوخليل]

انت تريد هذه الخدمة لك انت فقط .. اي على جهازك ؟؟

ام انك تريدها تجارية كل مشتري له رقمه الخاص ؟؟؟

اذا تريدها خاصة لك :

اقتباس

عندي ملف من كنوز المنتدي يعطيني رقم uuid للجهاز الذي تعمل عليه قاعدة البيانات  فاريد ربط الشرط برقم uuid

فارفق ملفك

[ابو عبد الرحمن اشرف]

منذ ساعه, ابوخليل said:

انت تريد هذه الخدمة لك انت فقط .. اي على جهازك ؟؟

ام انك تريدها تجارية كل مشتري له رقمه الخاص ؟؟؟

اذا تريدها خاصة لك :

فارفق ملفك

تفضل اخي الفاضل الكريم

 

سنتعتبر نموذج erad  هو الشاشة الرئيسية للبرنامج

صيانة.rar

[ابوخليل]

Private Sub Form_Load()
Dim i
i = GetUUID
If i <> "1B059FC0-5BCB-11D9-935A-F46D047AEF8C" Then
MsgBox "لا يحق لك الدخول"
DoCmd.Quit
Else
Exit Sub
End If
End Sub

استبدل رقم الـــ  UUID الظاهر بالرقم الخاص بجهازك ... يجب ان يكون بين علامتي التنصيص

صيانة2.rar

[ابو عبد الرحمن اشرف]

23 دقائق مضت, ابوخليل said:

Private Sub Form_Load()
Dim i
i = GetUUID
If i <> "1B059FC0-5BCB-11D9-935A-F46D047AEF8C" Then
MsgBox "لا يحق لك الدخول"
DoCmd.Quit
Else
Exit Sub
End If
End Sub

استبدل رقم الـــ  UUID الظاهر بالرقم الخاص بجهازك ... يجب ان يكون بين علامتي التنصيص

صيانة2.rar 701.79 kB · 0 downloads

 

 

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

[Moosak]

7 ساعات مضت, ابوخليل said:

Private Sub Form_Load()
Dim i
i = GetUUID
If i <> "1B059FC0-5BCB-11D9-935A-F46D047AEF8C" Then
MsgBox "لا يحق لك الدخول"
DoCmd.Quit
Else
Exit Sub
End If
End Sub

استبدل رقم الـــ  UUID الظاهر بالرقم الخاص بجهازك ... يجب ان يكون بين علامتي التنصيص

صيانة2.rar 701.79 kB · 5 downloads

هناك نقطة أضنك انتبهت لها أستاذنا @ابوخليل 🙂 

لو أراد نقل البرنامج لجهاز آخر سيضطر لفتح محرر الأكواد لتغيير رقم الـــ  UUID ..

هنا أعتقد أنه من الأفضل بأن يتم تخزين الأرقام المصرح لها بالدخول في جدول .. ويستدعي الكود الرقم من الجدول بدل كتابته يدويا في الكود .

[ابوخليل]

15 ساعات مضت, ابوخليل said:

انت تريد هذه الخدمة لك انت فقط .. اي على جهازك ؟؟

ام انك تريدها تجارية كل مشتري له رقمه الخاص ؟؟؟

من اجل هذا سألته

فهو لا يريد ان يتم فتحه على جهاز آخر

يوجد حلول اخرى بعيدا عن رصد القيمة في الجدول  مثلا :

عند التشغيل على جهاز آخر يطالبه البرنامج بادخال رقم آخر خاص تأكيدا على انه هو المالك

 او استخدام (الفلاشة)  لهذا الغرض

والافضل هو الحل الخاص بالتوزيع التجاري وهو كالتالي :

على اعتبار كل جهاز له رقم العتاد الخاص ( المعالج او القرص الصلب او اللوحة الأم )

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

عند ادخالها في فورم التسجيل يقوم البرنامج بلصقها في حقل في الجدول ويتم الفتح

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

يمكنك ان تقول : اذا عرفت الرقم الناتج يمكنني اكتشاف المعادلة

صحيح ، لهذا يلجأ البعض الى الاستعانة بمعلومة خارجية تسجل على الجهاز يبحث عنها البرنامج عند الاقلاع

يتم رصد هذه المعلومة عند التسجيل اول مرة

ومع ذلك لا يوجد حماية كاملة ..

للعلم .. هناك برامج خاصة يمكنها تتبع وتسجيل مايقوم به البرنامج عند الاقلاع

 

 

 

[Ezril]

(IF Function 1Path File Name = File name And By text =text) File_Tixt, chack File Path, To tebl tixt To tixt<<

Or Text _Box = Text yFunction #  

 

[ابو عبد الرحمن اشرف]

4 ساعات مضت, Moosak said:

هناك نقطة أضنك انتبهت لها أستاذنا @ابوخليل 🙂 

لو أراد نقل البرنامج لجهاز آخر سيضطر لفتح محرر الأكواد لتغيير رقم الـــ  UUID ..

هنا أعتقد أنه من الأفضل بأن يتم تخزين الأرقام المصرح لها بالدخول في جدول .. ويستدعي الكود الرقم من الجدول بدل كتابته يدويا في الكود .

اخي الفاضل موسي بارك الله فيك ومرورك الكريم اسعدني اخي واقتراح حضرتك في محله فهل ممكن تطبيقة اخي علي الملف المرفق بالمشاركة صيانة2.rar

 

[Moosak]

16 دقائق مضت, ابو عبد الرحمن اشرف said:

فهل ممكن تطبيقة اخي علي الملف المرفق

تفضل : 🙂 

Dim i, n

i = GetUUID
n = DCount("*", "[AllowedUUIDsT]", "[AllowdUsersUUID] ='" & i & "'")

If n = 0 Then
    MsgBox "لا يحق لك الدخول"
    DoCmd.Quit
Else
    Exit Sub
End If

لا تنسى تخزين الـ UUID المسموح لها بالدخول في الجدول AllowedUUIDsT

صيانة2.mdb

[ابو عبد الرحمن اشرف]

11 دقائق مضت, Moosak said:

تفضل : 🙂 

Dim i, n

i = GetUUID
n = DCount("*", "[AllowedUUIDsT]", "[AllowdUsersUUID] ='" & i & "'")

If n = 0 Then
    MsgBox "لا يحق لك الدخول"
    DoCmd.Quit
Else
    Exit Sub
End If

لا تنسى تخزين الـ UUID المسموح لها بالدخول في الجدول AllowedUUIDsT

صيانة2.mdb 5.58 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

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