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)
