(23-08-19, 02:38 AM)عبد العزيز البسكري كتب :

فقط بمشروعك أخي خالد قم بالتأشير عن الملف و ستجده بمجلد المشروع ال Debug

(23-08-19, 03:50 AM)محمد اسماعيل كتب : علي اصدار فيجول ستوديو 2010

اتبع الخطوات الاتية

استدعي المكتبة في اول الكلاس او اعلاة بعد بعد اتباع الخطوات الاتية

Imports System.Management

Public Class Form1

(23-08-19, 03:57 AM)خالد كامل1 كتب :

(23-08-19, 03:50 AM)محمد اسماعيل كتب : علي اصدار فيجول ستوديو 2010

اتبع الخطوات الاتية

استدعي المكتبة في اول الكلاس او اعلاة بعد بعد اتباع الخطوات الاتية

Imports System.Management

Public Class Form1

يا اخى والله اتبعت تلك الخطوات ولكن لم يعمل الكود وموجود بالمكتبه System.Management
فارجو ان كان هذا الملف موجود عند حضرتك عمله على المنتدى

(23-08-19, 04:25 AM)خالد كامل1 كتب : هل هذا الكود به خطأ فىجلب سريال نمبر الهارد

كود :

Imports System.Management

Public Class Class1
   Public Shared Function SECU() As String
       Dim VAL As String = ""

       Dim MA As New ManagementObjectSearcher("select * from Win32_DiskDRIVE")
       Try
           For Each MO As ManagementObject In MA.Get
               VAL = MO("Serialnumber").ToString()
               Return VAL


           Next
       Catch ex As ManagementException
           Return ""
       End Try


       Return VAL
   End Function

End Class

(23-08-19, 04:44 AM)محمد اسماعيل كتب :

(23-08-19, 04:25 AM)خالد كامل1 كتب : هل هذا الكود به خطأ فىجلب سريال نمبر الهارد

كود :

Imports System.Management

Public Class Class1
   Public Shared Function SECU() As String
       Dim VAL As String = ""

       Dim MA As New ManagementObjectSearcher("select * from Win32_DiskDRIVE")
       Try
           For Each MO As ManagementObject In MA.Get
               VAL = MO("Serialnumber").ToString()
               Return VAL


           Next
       Catch ex As ManagementException
           Return ""
       End Try


       Return VAL
   End Function

End Class

الهارد مش مضمون وسعات مبيظهرش ومش من الصح استعمالة للنصيحة فقط دة الماذر بورد افضل ومبتتغيرش ذي الهارد

كود :

Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_BaseBoard")
       Dim MOTHERBOARD As String
       For Each getserial As ManagementObject In MOS.[Get]()
           MOTHERBOARD = getserial("SerialNumber").ToString()
       Next

       MsgBox(MOTHERBOARD)