تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعديل على الكود لإظهاره في ليست فيو
#1
السلام عليكم ..

أخواني بارك الله فيكم ..

هذا الكود يستخرج أسماء التعاريف في إدارة الأجهزة وتحديداً التعاريف اللي تواجه مشاكل إما معطلة أو لم تُعرف بالاصل

كود :
Public Shared Function GetNonWorkingDevices()
        Dim pc As String = "." 'local
        Dim wmi As Object = GetObject("winmgmts:\\" & pc & "\root\cimv2")
        Dim devices As Object = wmi.ExecQuery("Select * from Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0")
        For Each d As Object In devices
            d.name()

        Next
    End Function

طبعاً أبي أعدل على الكود عشان يظهر لي أسماء التعاريف في ليست فيو

وجزاكم الله خير ..
الرد }}}}
تم الشكر بواسطة:
#2
غير d.name إلى

كود :
ListView1.Items.Add(d.name())
الرد }}}}
تم الشكر بواسطة:
#3
أخوي أحمد الله يجزاك خير ..

جربت الكود وللأسف ما ضبط ..

وهذي بعض التغييرات في الكود ولاكن المشكلة كل ما اشغل السورس يجي خطأ : لم يتم تعيين مرجع كائن لمثيل كائن وهذا الكود

كود :
Public Shared Function GetNonWorkingDevices()
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0")

            For Each queryObj As ManagementObject In searcher.Get()

                Dim list As ListViewItem

                list.ListView.Items.Add(queryObj("Name"))
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
    End Function
الرد }}}}
تم الشكر بواسطة:
#4
كود :
Imports System.Management

Public Class Form1

    Public Sub GetNonWorkingDevices()
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0")
            For Each queryObj As ManagementObject In searcher.Get()
                Dim LVI As New ListViewItem(New String() {queryObj("Name")})
                ListView1.Items.Add(LVI)
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetNonWorkingDevices()
    End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#5
Aly El-Haddad كتب :
كود :
Imports System.Management

Public Class Form1

    Public Sub GetNonWorkingDevices()
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0")
            For Each queryObj As ManagementObject In searcher.Get()
                Dim LVI As New ListViewItem(New String() {queryObj("Name")})
                ListView1.Items.Add(LVI)
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetNonWorkingDevices()
    End Sub
End Class

بيض الله وجهك يا غالي وما قصرت والكود اشتغل

والشكر موصول لكن من ساهم بحل مشكلتي ..

بارك الله فيكم ..
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 75 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  [VB.NET] طلب التعديل في كود بسيط rabeh.ram 2 53 29-11-16, 11:10 PM
آخر رد: rabeh.ram
  خطاء عند التعديل علي Checkbox السيد الجوهري 4 60 27-11-16, 04:10 PM
آخر رد: السيد الجوهري
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 62 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 93 22-11-16, 02:38 PM
آخر رد: thevirus
  التعديل علي datagridview باستخدام sql command dark1459 6 131 21-11-16, 11:55 AM
آخر رد: dark1459
  [VB.NET] استفسار بخصوص استعلام التعديل dark1459 8 107 15-11-16, 12:31 AM
آخر رد: dark1459
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 189 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 96 10-11-16, 06:25 PM
آخر رد: أبو عمر
  التعديل الذي أقوم به في الفورم لا يظهر عند عمل RUN نسيم 8 194 07-11-16, 01:14 PM
آخر رد: zinom

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم