تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التسجيل برقم الهارد
#1
هل يمكن تفعيل المشروع برقم الهارد ؟
الرد }}}}
تم الشكر بواسطة:
#2
ممكن ذلك عن طريق الدالة التالية:

كود :
   ' 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

ارجو ان يكون الشرح وافيا
تحياتي..
الرد }}}}
تم الشكر بواسطة: أبو عمر


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في كود التسجيل بموقعي .. الراجية عفو ربها 0 120 12-04-16, 01:52 PM
آخر رد: الراجية عفو ربها
  [سؤال] كيف أجعل برنامجي يعمل على جهاز واحد ياستخدام id الهارد ديسك؟ abdelaaliazz 2 299 13-02-16, 12:29 AM
آخر رد: HASAN6.0
  [سؤال] شباب مساعدة ضرورية الهارد بتاعى باظ ومحتاج مساعدتكم احمد عبد الحكيم 2 280 27-06-15, 07:07 AM
آخر رد: silverlight
Question [VB.NET] كيف اقوم بتكرار عملية التسجيل اكثر من مرة dhetos 16 1,146 31-03-15, 03:02 AM
آخر رد: Dr.Sherif Alazizi
Sad [سؤال] اريد الحقل يبدا برقم تسلسلي حسب السنة الهجرية العزابي 5 1,278 07-11-14, 04:52 AM
آخر رد: العزابي
  [سؤال] التسجيل من برنامجي لاي موقع mazen55 0 391 11-10-13, 03:17 PM
آخر رد: mazen55
  مشكله في فورم التسجيل alaqsa 12 1,442 22-05-13, 09:50 AM
آخر رد: alaqsa

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم