23-11-13, 07:29 PM
23-11-13, 08:55 PM
ممكن توضح سؤالك ,, 
23-11-13, 09:33 PM
23-11-13, 10:00 PM
23-11-13, 10:33 PM
23-11-13, 10:50 PM
24-11-13, 04:01 PM
في البداية قم بادراج المكتبة System.Management
ثم استورد المكتبة
الكود الاول :
مصدر الكود الاول : من هنا
الكود الثاني :
ثم استورد المكتبة
PHP كود :
Imports System.Management
الكود الاول :
PHP كود :
Function GetMotherboardSerialNumber() As String
Dim searcher As New ManagementObjectSearcher("SELECT SerialNumber, Product FROM Win32_BaseBoard")
Dim information As ManagementObjectCollection = searcher.Get()
Dim serialNumber As String = String.Empty
For Each obj As ManagementObject In information
If (obj.Properties("SerialNumber").Value.ToString().Trim() <> String.Empty) Then
serialNumber = obj.Properties("SerialNumber").Value.ToString().Trim()
Else
serialNumber = obj.Properties("Product").Value.ToString().Trim()
End If
Exit For
Next
searcher.Dispose()
Return serialNumber
End Function
مصدر الكود الاول : من هنا
الكود الثاني :
PHP كود :
Public Function MotherboardSerialNumber() As String
Dim searcher As New System.Management.ManagementObjectSearcher("SELECT SerialNumber FROM Win32_BaseBoard")
For Each obj As System.Management.ManagementObject In searcher.Get
Return obj.Properties("SerialNumber").Value.ToString
Next
Return String.Empty
End Function
24-11-13, 04:21 PM