منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

هل يمكن تفعيل المشروع برقم الهارد ؟

ممكن ذلك عن طريق الدالة التالية:


نتيجة هذه الدالة هو الرقم المتسلسل للهارد دسك
و بالامكان استخدام الرقم المتسلسل للمذر بورد كالتالي:

كما انه بالامكان استخدام الرقم المتسلسل للمعالج كما يأتي:


بقي ان انبه الى انه يجب استيراد النطاق التالي :

ارجو ان يكون الشرح وافيا
تحياتي..

(29-09-16, 11:34 PM)ابراهيم النعيمي كتب : [ -> ]ممكن ذلك عن طريق الدالة التالية:

كود :

   ' getting harddrive Serial NO
   Function Gettingharddriveid() As String
       Dim x As String = ""
       Try
           Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
           For Each dvs As ManagementObject In hd.Get()
               x = dvs("SerialNumber").ToString()
               Exit For
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

       Gettingharddriveid = x
   End Function

نتيجة هذه الدالة هو الرقم المتسلسل للهارد دسك
و بالامكان استخدام الرقم المتسلسل للمذر بورد كالتالي:

كود :

   ' getting Mother Board Serial NO
   Function GettingMotherBoardID() As String
       Dim x As String = ""
       Dim oConn As ConnectionOptions = New ConnectionOptions
       Dim oMs As System.Management.ManagementScope = New System.Management.ManagementScope("\\machineID")
       Dim oQuery As System.Management.ObjectQuery = New System.Management.ObjectQuery("select SerialNumber from Win32_BaseBoard")
       Dim oSearcher As ManagementObjectSearcher = New ManagementObjectSearcher(oMs, oQuery)
       Dim oReturnCollection As ManagementObjectCollection = oSearcher.Get
       For Each oReturn As ManagementObject In oReturnCollection
           x = oReturn("SerialNumber").ToString
       Next
       GettingMotherBoardID = x
   End Function

كما انه بالامكان استخدام الرقم المتسلسل للمعالج كما يأتي:

كود :

   ' getting processor Serial NO
   Function Gettingprocessorid() As String
       Dim x As String = ""
       Dim win32MgmtClass As System.Management.ManagementClass
       win32MgmtClass = New System.Management.ManagementClass("Win32_Processor")
       Dim processors As System.Management.ManagementObjectCollection
       processors = win32MgmtClass.GetInstances()

       For Each processor As System.Management.ManagementObject In processors
           x = processor("ProcessorID").ToString()
       Next
       Gettingprocessorid = x

   End Function

بقي ان انبه الى انه يجب استيراد النطاق التالي :

كود :

Imports System.Management

ارجو ان يكون الشرح وافيا
تحياتي.

بارك الله فيك وجزاك الله خيرا

Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")

            For Each dvs As ManagementObject In hd.Get()

لم يتم التعرف على الدالتين المذكورتين باللون الاحمر ... شو المشكلة
علماً بأنني قمت باستدعاء المكتبة بالكود Imports System.Management

ايهما ثابت ولا يتغير مهما حدث المازبورد ام البروسيسر؟؟؟

اظن اذا اراد الكراكر الجاهل كسر برنامجك سيحمل معه المذر بورد اينما حل لا داعي لان يستخدم برنامج OllyDbg او اي برنامج اخر لتتبع الشرط الموضوع على رقم المذر بورد او المعالج او الهارد ديسك و عكسه بحيث برنامجك يعمل على كل الاجهزة عدى الجهاز المصمم له و شكرا .

(20-08-19, 02:29 AM)asemshahen5 كتب : [ -> ]اظن اذا اراد الكراكر الجاهل كسر برنامجك سيحمل معه المذر بورد اينما حل لا داعي لان يستخدم برنامج OllyDbg او اي برنامج اخر لتتبع الشرط الموضوع على رقم المذر بورد او المعالج او الهارد ديسك و عكسه بحيث برنامجك يعمل على كل الاجهزة عدى الجهاز المصمم له و شكرا .

استاذ:عبد العزيز البسكري.

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

انا اقصد اخي العزيز ان يشفر الاكواد بعد عمل سيريال ممير لقطعة معينة بحيث يصعب عملية كسر البرنامج اما يضع كود قطعة مميزة و كود مفتوح لا فائدة منه انت فاهم قصدي المنتدى بيعلم طرق الحماية كسيريال البورد او الفلاش او الهارد و ما الى ذالك لكن اهم من كل ده تشفير الكود الاساسي للبرنامج و المكاتب الخاصة به و لكم جزيل الشكر .

(20-08-19, 03:06 AM)اسامه الهرماوي كتب : [ -> ]استاذ:عبد العزيز البسكري.

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

---

(20-08-19, 03:15 AM)asemshahen5 كتب : [ -> ]انا اقصد اخي العزيز ان يشفر الاكواد بعد عمل سيريال ممير لقطعة معينة بحيث يصعب عملية كسر البرنامج اما يضع كود قطعة مميزة و كود مفتوح لا فائدة منه انت فاهم قصدي المنتدى بيعلم طرق الحماية كسيريال البورد او الفلاش او الهارد و ما الى ذالك لكن اهم من كل ده تشفير الكود الاساسي للبرنامج و المكاتب الخاصة به و لكم جزيل الشكر .