اذهب الي المحتوي
أوفيسنا

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


sam_farh
إذهب إلى أفضل إجابة Solved by omar elhosseini,

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

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

 

تم تعديل بواسطه عبدالله الصاري
  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

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

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

  • أفضل إجابة

الاخ sam_farh

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

 

مع ملاحظة ان :

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

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

 

 

!_Auto HD Serial Number.rar

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information