(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

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

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

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

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

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