[AhmedEissa]

السلام عليكم

إستخدمت  2     Function   فى تطبيق على فيجوال بيسك 2010

لكن ظهر به تلك العلامات الدالة على وجود أخطاء

ما المكتبات التى يجب إضافتها لهذا التطبيق ، وما احتاج إليه من Imports

PHP كود :

       Friend Shared Function GetProcessorId() As String
            Dim str2 As String = String.Empty
            Dim searcher As New ManagementObjectSearcher(New SelectQuery("Win32_processor"))
            Dim obj2 As ManagementObject
            For Each obj2 In searcher.Get
                str2 = obj2("processorId").ToString
            Next
            Return str2
        End Function

        Public Shared Function GetVolumeSerial(ByVal ltr As Object) As String
            Dim obj2 As New ManagementObject($"win32_logicaldisk.deviceid="{ltr}:"")
            obj2.Get()
            Return obj2("VolumeSerialNumber").ToString
        End Function