[العتيق]

(09-11-23, 10:40 AM)AhmedEissa كتب :

السلام عليكم

يبدو   أن المحترفون  غير متفرغين للرد على أى سؤال

لأن  أكثر من موضوع كتبته  ، ولا أجد له رداً  !!

هى محاولة أخيرة قبل أن أصرف النظر عن الأسئلة هنا

فى هذا الموضوع اقتبست هذا الــ Function    لاستخدامه فى مشروع

لكن ظهر هذا الخطأ الأخضر المتعرج تحت كلمة enumerator

وأريد بالطبع معرفة السبب ومن ثم تصحيحه

PHP كود :

       Friend Shared Function GetProcessorId() As String
            Dim enumerator As ManagementObjectEnumerator
            Dim str2 As String = String.Empty
            Dim searcher As New ManagementObjectSearcher(New SelectQuery("Win32_processor"))
            Try 
                enumerator = searcher.Get.GetEnumerator
                Do While True
                    If Not enumerator.MoveNext Then
                        Exit Do
                    End If
                    Dim current As ManagementObject = DirectCast(enumerator.Current, ManagementObject)
                    str2 = current("processorId").ToString
                Loop
            Finally
                If Not Object.ReferenceEquals(enumerator, Nothing) Then
                    enumerator.Dispose
                End If
            End Try
            Return str2
        End Function 


شكراً مقدماً

جرب الكود

PHP كود :

Imports System.Management
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As System.Management.ManagementObject
        Dim searchInfo_Processor As New System.Management.ManagementObjectSearcher("Select * from Win32_Processor")
        For Each i In searchInfo_Processor.Get()
            TxtProcessorID.Text = i("ProcessorID").ToString
        Next
    End Sub
End Class