السلام عليكم
الاخوة الكرام الاخت المشرفة الممتميزة زهرة
الكود التالي اذا تم تفعيل البرنامج بنفس الرقم الذي يظهر في هذا الكود
فهل هذا الرقم يتغير بعد الفرمتة ام انه سيقى نفسه
' لمعرفة السيريال نمبر الخاص بالهاردسك
Dim obj_FSO As Object, obj_Drive As Object
Set obj_FSO = CreateObject("Scripting.FileSystemObject")
Set obj_Drive = obj_FSO.GetDrive("c:\")
'MsgBox obj_Drive.SerialNumber
SerialNumber = obj_Drive.SerialNumber
Set obj_FSO = Nothing
Set obj_Drive = Nothing
End Subوشكرا
نعم قد يتغيّر عند عمل format للجهاز ..
وأيضاً يمكن تغييره بطرق أخرى
انظر هذه الروابط ..
كيف تغيّر الـ serial numner للـHD
بالتوفيق
_______________
ملاحظة : سؤالك لا علاقة له بهذا القسم
تم تعديل هذه المشاركة بواسطة مصطفى 36a2 في 1 يناير 2014 في 17:17
شكرا اخي لم افهم كيف ليس له علاقة بهذا القسم اين اضعه اذن ؟؟
أظن أن القسم المناسب له هو قسم دعم انظمة التشغيل ربما ... ولكن بالتأكيد ليس قسم الأكسيس :)
تحياتي لك
عزيزي البرنامج الي اقصده معمول بالاكسيس وانا ابحث عن طريقة لحمايته برقم الهارد
والكود موجود في هذا القسم ... على العكس بالتاكيد هذا هو المكان الصحيح للموضوع بل ان هناك قسم فرعي خاص في هذا القسم مخصص لهذه المواضيع
شكرا لك مرة اخرى
اخي الفاضل : lordring
السلام عليكم ورحمة الله وبركاته
الكود الذي وضعته انت في بداية المشاركة هو خاص برقم الهاردسك Hard Disk volume serial number
وهذا الرقم يتغير مع كل فورمات للهارد دسك وايضا يمكن تغييره بعدة طرق .
اما الرقم الحقيقي الثابت الذي لا يتغير ابدا ولا يمكن تغييره لا بالفورمات ولا بالبرامج فهو REAL Hard Drive Serial Number
والكود الخاص به تجده في حدث عند تحميل النموذج بهذه الطريقة
تم تعديل الملف بإستبعاد مكتبه لا لزوم لها
za-RealHardDriveSerialNumber.rar
بالتوفيق
تم تعديل هذه المشاركة بواسطة zahrah في 1 يناير 2014 في 23:57
وعليكم السلام ورحمة الله وبركاته
شكرا اختي الكريمة على التوضيح
حقيقة راجعت المواضيع خلال الوقت الذي مضى واطلعت على الامثلة المطروحة للكشف عن رقم الهارد وطريقة تحويله
جهودكم رائعة .. هل هناك مثال للحماية برقم الهارد الحقيقي يمكن نقله الى البرامج الي نعملها .اذ اني بحثت عن مثال يتم به تطويع هذا الرقم للحماية من خلاله ولم اتوصل له
فبحكم خبرتك هل يوجد مثال هنا في المنتدى استطيع الاستفاد منه ؟؟ هل يمكن ارفاق مثال وتطبيقن لنا هذه الحماية ان امكن لكي نستفيد منها ..
مع فائق التقدير
بالمناسبة المثال الذي ارفقيته لم يعمل معي بسبب نقص لدي في المكتبات كالتالي
كيف اعالجها
missing :systoolslibrary 1.0 type library
اخي الفاضل
بالنسبه لإستبدال الحروف بأرقام فهذا ممكن بواسطة دالة الآسكي كود بحيث يتم تحويل جميع
الأحرف الى ارقام عدديه تستطيع ان تتعامل معا كأنها مجموعة من الأرقام .
اما بالنسبة للأمثلة على كود الحماية برقم الهارد دسك فيفضل ان تبحث في المنتدى لأننا اهلكنا الموضوع
بالمناقشات والعديد من الأمثله ولهذا حاول ان تبحث بارك الله بك واذا لم تخرج بأي نتيجه فأبلغنا ما الذي لم تعرف الوصول اليه
لأنه من الخطأ بارك الله بك وانت تتعلم مواضيع الحماية ان نضع لك ملف حماية جاهز لا تعرف رأسه من ساسه ولا كيف تم بناؤه
ثم تقوم بإستخدامه مباشرة وتطبيقه على برامجك فلو اتي يوما من الأيام وحدثت لك مشكله فلن تستطيع حلها بنفسك بل ستبحث
عن اجابات على كل الأسئلة المتعلقة بالحماية وقد يكون وقتها انا قد غادرت المنتدى الى كوكب الزهره !!!!
لذا بارك الله بك الفهم ثم الفهم ثم الفهم وبعد ذلك التطبيق .
بالتوفيق
شكرا اختي العزيزة
اطلعت على المثال الموجود في الموضوع التالي واستخلصت منه طريقة لحماية البرنامج
وبما انك تعرفين جيدا الاكواد فيه
فهل الطريقة في هذا البرنامج هي للرقم الحقيقي للهارد ...
هذا مثال لما استخلصته من البرنامج فهل هذه الحماية الان بالرقم الحقيقي .. المعادلة رقم الهارد -200 مضروب في 2
نعم اخي الكريم
هذه الحماية هي برقم الهارد دسك الحقيقي الثابت الذي لا يتغير
بالتوفيق
شكرا جزيلا ..الله يوفقك
هذا الموضوع مغلق.
