[احمد خطاب]

يوجد خطأ فى كود التفعيل مش عارف احله ازاى
Error 1 Class 'randa1.managementobject' cannot be indexed because it has no default property. D:\randa1\randa1\Class3.vb 13 23 randa1

ايه معنى الرسالة دى وتتحل ازاى

[elgokr]

قم بارفاق ملف Class3.vb

حتى يتم مراجعة الكود وتوضيح ما سبب الخطاء

او يمكنك فتح هذا الملف وتاتى على سطر رقم 13

وتضعه هنا لتوضح الكود المستخدم بضبط

او ارفق المشروع كاملاً للمعينة افادتك بصورة صحيحة

وتذكر ان السبب يشير الى 

كود :

randa1

قد يكون غير معرف بالمشروع

تحياتى لك

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

[احمد خطاب]

Imports System.Management
Imports System.Text
Imports System.Security.Cryptography

Public Class Class3

    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
                Return val
            Next
        Catch ex As ManagementException
            Return ""
        End Try
        Return val
    End Function


    Private Shared Function mo(ByVal p1 As String) As Object
        Throw New NotImplementedException
    End Function

End Class

[elgokr]

فقط قم بحذف هذا الكود

كود :

   Private Shared Function mo(ByVal p1 As String) As Object
       Throw New NotImplementedException
   End Function

وفقط اجعل الكلاس يحتوى على

كود :

   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
               Return val
           Next
       Catch ex As ManagementException
           Return ""
       End Try
       Return val
   End Function

وسيعمل معك بجلب الـ serialnumber

بدون اى مشكلة او ظهور اى رسالة خطاء

تحياتى لك

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

[احمد خطاب]

الكود لم يعمل

[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)

تحياتى لك

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

[احمد خطاب]

هو بالفعل صديقى العزيز يعمل عندى على مشروع اخر اما هذا المشروع لايعمل

[elgokr]

ارفق هذا المشروع

حتى يتم رؤية السبب الفعلى

فلعل يكون المشكلة خارج نطاق ما تتحدث عنه

تحياتى لك

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

[احمد خطاب]

صديقى العزيز اشكرك جداااااااااااااااااااااااااا الكود نجح

[elgokr]

الشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك

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