تقييم الموضوع :
  • 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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 59 منذ 11 ساعة مضت
آخر رد: alsouf
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 801 18-09-17, 03:40 PM
آخر رد: رمضان محمد
  [VB.NET] التعديل على الكود ليتناسق ما اريده 0theghost0 4 106 17-09-17, 03:35 PM
آخر رد: 0theghost0
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 190 15-09-17, 04:38 PM
آخر رد: 0theghost0
  [سؤال] كيفية نسخ النصوص من داخل ليست بوكس تنمية المعرفة 7 125 12-09-17, 11:15 PM
آخر رد: تنمية المعرفة
  [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات 0theghost0 0 49 11-09-17, 12:58 PM
آخر رد: 0theghost0
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 0 57 09-09-17, 10:44 PM
آخر رد: aliomar333
  [VB.NET] لدي مشكلة مع كود التعديل 0theghost0 13 177 09-09-17, 05:24 PM
آخر رد: ola
  [VB.NET] تصحيح الكود لو سمحتم 0theghost0 4 125 30-08-17, 12:06 PM
آخر رد: 0theghost0
  استسفسار حول التعديل على فاتورة المشتريات والقيمة المتألق9 1 186 22-08-17, 02:47 PM
آخر رد: نبيل كونكت

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


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