[elgokr]

(25-04-19, 11:56 AM)احمد خطاب كتب : الكود لم يعمل

مرحباً احمد خطاب

بخصوص الكود التالى

كود :

  Public Shared Function sec() 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
          Next
          Return val
      Catch ex As ManagementException
          Return ""
      End Try
      Return val
  End Function

فهو يعمل وتم اختباره مسبقاً قبل اضافة ردي السابق

فقط تاكد كونك تستخدم كالتالى فى اى حدث لرؤية serialnumber

كود :

       MsgBox(sec)

تحياتى لك

وتمنياتى لك التوفيق