اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

الاساتذة خبراء منتدى البور وينتانا عندى عمل على سى دى اريد حمايتة يوجد فى اكسل حماية بطريقة معرفة رقم الهرد ديسكفهل فى البور بوينت هذه الامكانية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 وهذه العملية أيضا غير ثابتة .. أي يتغير مرة .. ولا يتغير أخرى

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

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

تم تعديل بواسطه ياسر أبو خضور
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

PW.rar

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information