حمايه باكثر من سريال هارد ديسك

[sam_farh]

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

حماية برقم الهارد ديسك.rar

[عبدالله بشير عبدالله]

جرب هذا الكود  وهو نفس الكود في ملفك  وبواسطة 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 بواسطه عبدالله الصاري

[omar elhosseini]

بعد اذن الاخوه الاعزاء

تعتبر الحماية برقم البارتشن غير مجدية في حالة القيام بفرمتة بارتشن  C

والافضل الحماية بالسريال نمبر الحقيقي للهارد ديسك

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

ولي موضوع قديم بهذا الصدد بالمنتدي ولكن لا اتذكر الرابط او العنوان

[omar elhosseini]

لقد وجدت رابط الموضوع

 

سريال نمبر الهارد ديسك الحقيقى

[sam_farh]

السلام عليكم الكود لا يعمل 

[omar elhosseini]

الاخ sam_farh

جرب هذا المرفق

 

مع ملاحظة ان :

البرنامج يعمل في بيئة وندوز 32 بت

و لا يعمل في بيئة وندوز 64 بت

 

 

!_Auto HD Serial Number.rar