+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : [سؤال] اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد (/showthread.php?tid=14696)
اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد - nabil.1710 - 10-02-16
اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد و شكرا على المساعدة
RE: اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد - Fantastico - 11-02-16
للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج 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
RE: اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد - nabil.1710 - 12-02-16
(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
شكرا لك ولاكن اين مكان هذا الكود و اين يظهر السريال على الفورم و شكرا
RE: اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد - mohamed haroon - 12-02-16
(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
RE: اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد - nabil.1710 - 13-02-16
(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
شكرا لك اخى قد تم المطلوب و لاكن طلب اخير و جزاك الله خيرا هذا سريال المعالج فهل يوجد كود لمعرفة سريال المازربورد و شكرا على مجهودك
RE: اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد - محمد سالم المحترف - 13-06-16
(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
شكرا اخى