خاص بموضوع الحمايه

[sendbadzman2010]

لو سمحتم كنت عاوز اعرف ايه الملفات داخل الويندوز  اللي البرنامج بيستدعي منها رقم الهارد ديسك ورقم البروسيسور ورقم النيت ورك ومودم  وهل المستخدم بقدر يغير السريالات دي ولا  ايه   شكرا جزيلا .

 

تم تعديل يوليو 25, 2020 بواسطه sendbadzman2010

[محمد أبوعبدالله]

السلام عليكم

ان كنت تقصد ملفات يضعها المبرمج لمعرفة رقم الهارد فهذا خطأ

انما هي مكتبات داخل ويندوز يتم التعامل معها من داخل البرنامج

مثال لمعرفة رقم السريال لمحرك الاقراص C

 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

هذا الرقم يتغيير عند كل فورمات

ايضا يمكن التعمل مع رقم الهارد الحقيقي الذي لا يتغير بالفورمات

   Dim WMI As Object
   Dim wmiCollection As Object
   Dim wmiMember As Object
   
   Set WMI = GetObject("winmgmts:\\")
   Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia")
   
   For Each wmiMember In wmiCollection
   MsgBox Trim(wmiMember.SerialNumber)
   Exit For
   Next

 

في النهاية المستخدم لا يستطيع تغيير رقم السريال الخاص بأي قطعة الا بمساعدة برامج خارجية قد تؤدي الى تلف القطعة نفسها

تحياتي

تم تعديل يوليو 25, 2020 بواسطه محمد أبوعبدالله

[محمد أبوعبدالله]

ونصيحتي لك اخي الكريم

احرص على ان يكون البرامج الخاص بك قوي ومتماسك ويلبي حاجة العميل حتى يتمسك بنسخة اصلية من البرنامج

مع وضع الحماية في الحسبان ولكن الاهم هو جودة المنتج

تحياتي