منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
خطأ فى كود التفعيل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطأ فى كود التفعيل (/showthread.php?tid=29450)

خطأ فى كود التفعيل - احمد خطاب - 22-04-19

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

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

RE: خطأ فى كود التفعيل - elgokr - 22-04-19

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

او يمكنك فتح هذا الملف وتاتى على سطر رقم 13
وتضعه هنا لتوضح الكود المستخدم بضبط
او ارفق المشروع كاملاً للمعينة افادتك بصورة صحيحة

وتذكر ان السبب يشير الى 
كود :
randa1
قد يكون غير معرف بالمشروع

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


RE: خطأ فى كود التفعيل - احمد خطاب - 22-04-19

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

RE: خطأ فى كود التفعيل - elgokr - 23-04-19

فقط قم بحذف هذا الكود
كود :
   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
بدون اى مشكلة او ظهور اى رسالة خطاء

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


RE: خطأ فى كود التفعيل - احمد خطاب - 25-04-19

الكود لم يعمل

RE: خطأ فى كود التفعيل - elgokr - 25-04-19

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

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


RE: خطأ فى كود التفعيل - احمد خطاب - 25-04-19

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

RE: خطأ فى كود التفعيل - elgokr - 25-04-19

ارفق هذا المشروع
حتى يتم رؤية السبب الفعلى

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

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


RE: خطأ فى كود التفعيل - احمد خطاب - 26-04-19

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

RE: خطأ فى كود التفعيل - elgokr - 26-04-19

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

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