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

[خالد الشاعر]

الاساتذة خبراء منتدى البور وينتانا عندى عمل على سى دى اريد حمايتة يوجد فى اكسل حماية بطريقة معرفة رقم الهرد ديسكفهل فى البور بوينت هذه الامكانيةPrivate Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As LongPrivate Declare Function GetSerialNumber Lib "DiskSerial.dll" (ByVal nDrive As Integer, ByVal lpBuffer As String) As LongSub RunMe()Dim MyDrive As StringWhoMe = "SystemDrive"MyDrive = String(255, 0)[A200] = ""GetEnvironmentVariable WhoMe, MyDrive, Len(MyDrive)If InStr(1, MyDrive, Chr(0)) > 0 Then MyDrive = Left(MyDrive, 2)End IfMySource = ThisWorkbook.Path & "\DiskSerial.dll"MyDestination = MyDrive & "\WINDOWS\system32\DiskSerial.dll"If Dir(MyDestination) = "" Then FileCopy MySource, MyDestination If Application.Wait(Now + TimeValue("0:00:03")) Then GetMeElse GetMeEnd IfEnd SubSub GetMe()Dim MySer As String * 99Call GetSerialNumber(0, MySer)Sheets("Welcom").[A200] = MySerEnd Sub

[خالد الشاعر]

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

[ابوخليل]

السلام عليكم

إذا كان لك محاولات ارفقها

ليس لي سابق خبرة في البور بوينت .

يلزم فقط محاولة حماية فتح المستند عن طريق الكود ( ليست الحماية الموجودة مسبقا في الخيارات )

لعلنا نصل الى مطلوبك .

[خالد الشاعر]

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

[ياسر أبو خضور]

السلام عليكم ورحمة من الله

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

أن تغير رقم الهارد وبذلك خرج الملف من العمل

الأسلم فعلا .. هو التشفير عن طريق رقم المعالج وليس الهارد .. حيث أن رقم الأول يبقى ثابتا أما رقم الهارد فيتغير عند كل عملية Format وهذه العملية أيضا غير ثابتة .. أي يتغير مرة .. ولا يتغير أخرى

حدث هذا معي عند تشغير برنامج تعليمي ( مسابقة أسئلة ) من إعدادي ..

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

تم تعديل يناير 20, 2010 بواسطه ياسر أبو خضور

[ابوخليل]

مشكور اخي ياسر على هذه المداخلة وهذه الفائدة

كلام جميل وصحيح %

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

والأحسن من هذا لو ارفقت لنا مثالا بهذه الشفرة فنتعاون سويا لتحويره الى رقم المعالج

وتقبل تحيات أخيك ابو خليل ،،،

[خالد الشاعر]

الاخ ابو الانسارف لك ملف اكسل من اعمال مبدعى المنتدى الاستاذ القدير ابو تامرملف يكتشف رقم الهرد و يضعة فى صفحه Welcom A10فهل ممكن عمل مثلة فى البوربوينتوشكرا

PW.rar

[ابوخليل]

هذاالمثال في الاكسل .. أعتقد البوربوينت يختلف .

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

وهذا ما ننتظره من أخينا ياسر أبو خضور

حيث انه قام بتشفير برنامج تعليمي ( مسابقة أسئلة ) من إعداده ..