sam_farh قام بنشر ديسمبر 23, 2019 مشاركة قام بنشر ديسمبر 23, 2019 السلام عليكم هل من الممكن تعديل الكود بحيث يتم كتابه اكثر من رقم هارد ديسك في نفس الكود حماية برقم الهارد ديسك.rar رابط هذا التعليق شارك More sharing options...
عبدالله الصاري قام بنشر ديسمبر 23, 2019 مشاركة قام بنشر ديسمبر 23, 2019 (معدل) جرب هذا الكود وهو نفس الكود في ملفك وبواسطة AND يمكن اضافة اكثر من جهاز Private Sub Workbook_Open() 'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجاهز الاول" And Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجهاز الثاني" Then 'MsgBox "Attention ! Ce programme est spécial pour M : tahar1983 ", vbCritical, "Violation des droits du programme" 'ThisWorkbook.Close savechanges = True 'End If End Sub حماية برقم الهارد ديسك.xls وجدت الكود في ملفاتي ويعمل على خمسة اجهزة ويمكن زيادتها الى ما تشاء Private Sub Workbook_Open() 'Dim PC1$, PC2$, PC3$, PC4$, PC5$ 'PC1 = "74828D32" ' رقم الايدي للجهاز 1 'PC2 = "12BE1EE2" ' رقم الايدي للجهاز 2 'PC3 = "2D4F902" ' رقم الايدي للجهاز 3 'PC4 = "282B91B1" ' رقم الجهاز 4 'PC5 = "" ' رقم الايدي للجهاز 5 'With CreateObject("Scripting.FileSystemObject") 'If Hex(.Drives.Item("c:").SerialNumber) = PC1 Or Hex(.Drives.Item("c:").SerialNumber) = PC2 _ 'Or Hex(.Drives.Item("c:").SerialNumber) = PC3 Or Hex(.Drives.Item("c:").SerialNumber) = PC4 _ 'Or Hex(.Drives.Item("c:").SerialNumber) = PC5 Then 'Else: MsgBox "نأسف هذا البرنامج مخصص لجهاز اخر " 'ThisWorkbook.Close SaveChanges = True 'End If 'End With End Sub تم تعديل ديسمبر 23, 2019 بواسطه عبدالله الصاري 3 رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر ديسمبر 23, 2019 مشاركة قام بنشر ديسمبر 23, 2019 بعد اذن الاخوه الاعزاء تعتبر الحماية برقم البارتشن غير مجدية في حالة القيام بفرمتة بارتشن C والافضل الحماية بالسريال نمبر الحقيقي للهارد ديسك سوف ابحث في ملفاتي عن كود استخراج سريال نمبر الحقيقي للهارد ديسك واذا وجدته سأضعه هنا ليستفيد الجميع منه ولي موضوع قديم بهذا الصدد بالمنتدي ولكن لا اتذكر الرابط او العنوان 2 رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر ديسمبر 24, 2019 مشاركة قام بنشر ديسمبر 24, 2019 لقد وجدت رابط الموضوع سريال نمبر الهارد ديسك الحقيقى 1 رابط هذا التعليق شارك More sharing options...
sam_farh قام بنشر ديسمبر 25, 2019 الكاتب مشاركة قام بنشر ديسمبر 25, 2019 السلام عليكم الكود لا يعمل رابط هذا التعليق شارك More sharing options...
أفضل إجابة omar elhosseini قام بنشر ديسمبر 25, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 25, 2019 الاخ sam_farh جرب هذا المرفق مع ملاحظة ان : البرنامج يعمل في بيئة وندوز 32 بت و لا يعمل في بيئة وندوز 64 بت !_Auto HD Serial Number.rar 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.