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

اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد و شكرا على المساعدة

للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج CPU id

(11-02-16, 12:34 AM)Fantastico كتب : [ -> ]للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج  CPU id

PHP كود :

   Public Function CPU_ID() As String

        Dim wmi As Object = GetObject("winmgmts:" & _
            "{impersonationLevel=impersonate}!\\.\root\cimv2")
        Dim processors As Object = wmi.ExecQuery("Select * from " & _
            "Win32_Processor")

        Dim cpu_ids As String = ""
        For Each cpu As Object In processors
            cpu_ids = cpu_ids & ", " & cpu.ProcessorId
        Next
        If cpu_ids.Length > 0 Then cpu_ids = cpu_ids.Substring(2)

        Return cpu_ids
    End Function 


شكرا لك ولاكن اين مكان هذا الكود و اين يظهر السريال على الفورم و شكرا

(12-02-16, 03:59 AM)nabil.1710 كتب : [ -> ]

(11-02-16, 12:34 AM)Fantastico كتب : [ -> ]للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج  CPU id

PHP كود :

   Public Function CPU_ID() As String

        Dim wmi As Object = GetObject("winmgmts:" & _
            "{impersonationLevel=impersonate}!\\.\root\cimv2")
        Dim processors As Object = wmi.ExecQuery("Select * from " & _
            "Win32_Processor")

        Dim cpu_ids As String = ""
        For Each cpu As Object In processors
            cpu_ids = cpu_ids & ", " & cpu.ProcessorId
        Next
        If cpu_ids.Length > 0 Then cpu_ids = cpu_ids.Substring(2)

        Return cpu_ids
    End Function 


شكرا لك ولاكن اين مكان هذا الكود و اين يظهر السريال على الفورم و شكرا

اكتب msgbox(CPU_ID) او ضعها فى textbox او label اى اداة بها خاصية .text لان الدالة تعطى قيمة نصية عند تنفيذها string

(12-02-16, 02:19 PM)mohamed haroon كتب : [ -> ]

(12-02-16, 03:59 AM)nabil.1710 كتب : [ -> ]

(11-02-16, 12:34 AM)Fantastico كتب : [ -> ]للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج  CPU id

PHP كود :

   Public Function CPU_ID() As String

        Dim wmi As Object = GetObject("winmgmts:" & _
            "{impersonationLevel=impersonate}!\\.\root\cimv2")
        Dim processors As Object = wmi.ExecQuery("Select * from " & _
            "Win32_Processor")

        Dim cpu_ids As String = ""
        For Each cpu As Object In processors
            cpu_ids = cpu_ids & ", " & cpu.ProcessorId
        Next
        If cpu_ids.Length > 0 Then cpu_ids = cpu_ids.Substring(2)

        Return cpu_ids
    End Function 


شكرا لك ولاكن اين مكان هذا الكود و اين يظهر السريال على الفورم و شكرا

اكتب msgbox(CPU_ID) او ضعها فى textbox او label اى اداة بها خاصية .text لان الدالة تعطى قيمة نصية عند تنفيذها string

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

(11-02-16, 12:34 AM)Fantastico كتب : [ -> ]للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج  CPU id

PHP كود :

   Public Function CPU_ID() As String

        Dim wmi As Object = GetObject("winmgmts:" & _
            "{impersonationLevel=impersonate}!\\.\root\cimv2")
        Dim processors As Object = wmi.ExecQuery("Select * from " & _
            "Win32_Processor")

        Dim cpu_ids As String = ""
        For Each cpu As Object In processors
            cpu_ids = cpu_ids & ", " & cpu.ProcessorId
        Next
        If cpu_ids.Length > 0 Then cpu_ids = cpu_ids.Substring(2)

        Return cpu_ids
    End Function 


شكرا اخى