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

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

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

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

[Ezril]

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

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

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

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

  في 8‏/5‏/2023 at 16:03, ابو عبد الرحمن اشرف said:

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

Expand  

 

  في 8‏/5‏/2023 at 16:30, Ezril said:

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

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

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

Expand  

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

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

  في 8‏/5‏/2023 at 16:39, ابو عبد الرحمن اشرف said:

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

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

Expand  

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

[Ezril]

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

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

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

  في 8‏/5‏/2023 at 16:48, Ezril said:

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

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

Expand  

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

 

ورشة.rarFetching info...

[ابوخليل]

  في 8‏/5‏/2023 at 16:03, ابو عبد الرحمن اشرف said:

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

Expand  

ينفع ليه لا ؟

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

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

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

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

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

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

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

 

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

  في 8‏/5‏/2023 at 20:31, ابوخليل said:

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

Expand  

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

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

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

[ابوخليل]

تفضل

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

فك الضغط عن المرفق تجد بجانب قاعدة البيانات ملف باسم   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.rarFetching info...

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

  في 8‏/5‏/2023 at 21:22, ابوخليل 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

Expand  

 

 

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

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

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

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

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

[ابوخليل]

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

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

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

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

("C:\ashraf.txt")

او

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

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

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

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

  في 8‏/5‏/2023 at 23:27, ابوخليل said:

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

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

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

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

("C:\ashraf.txt")

او

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

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

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

Expand  

 

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

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

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

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

 

[ابوخليل]

  في 8‏/5‏/2023 at 20:31, ابوخليل said:

 

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

 

Expand  

 

  في 9‏/5‏/2023 at 10:04, ابو عبد الرحمن اشرف said:

 

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

 

Expand  

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

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

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

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

  في 9‏/5‏/2023 at 10:27, ابوخليل said:

 

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

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

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

Expand  

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

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

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

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

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

[ابوخليل]

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

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

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

  اقتباس

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

Expand  

فارفق ملفك

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

  في 9‏/5‏/2023 at 15:29, ابوخليل said:

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

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

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

فارفق ملفك

Expand  

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

 

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

صيانة.rarFetching info...

[ابوخليل]

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.rarFetching info...

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

  في 9‏/5‏/2023 at 21:35, ابوخليل 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

Expand  

 

 

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

[Moosak]

  في 9‏/5‏/2023 at 21:35, ابوخليل 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

Expand  

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

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

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

[ابوخليل]

  في 9‏/5‏/2023 at 15:29, ابوخليل said:

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

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

Expand  

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

 

[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 #  

 

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

  في 10‏/5‏/2023 at 04:55, Moosak said:

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

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

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

Expand  

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

 

[Moosak]

  في 10‏/5‏/2023 at 09:57, ابو عبد الرحمن اشرف said:

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

Expand  

تفضل : 🙂 

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.mdbFetching info...

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

  في 10‏/5‏/2023 at 10:14, 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

Expand  

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