[RaggiTech]

في الدرس السابق قمنا بشرح الكود الذي يقوم بجلب سريال الهارد ديسك عن طريق جملة الـ WQL وعرفنا أنها تبحث في الـ Class التي تسمي
Win32_PhysicalMedia وهذه هي احدي الـ Win32 Classes أنظر الرابط لتعرف أكثر عنها :

WMI Administrative Tools

لو تجولت في الرابط لوجدت Classes يمكنك استخدامها لمعرفة الكثير من المعلومات عن الـ Hardware الخاص بالجهاز ,

الآن نتعرف أكثر علي الـ Class ManagementObject :

اكتب معي الكود التالي :

كود :

Dim x As New Management.ManagementObject("Win32_WMISetting=@")

في السطر السابق قمنا بانشاء عنصر من الـ Class ManagementObject , وأبسط صوره للـ Constructor لهذه الـ Class هي أن يأخذ اسم الـ
Win32 Class متبوعا بـ "@=" حتي يتعرف الكائن الـ ManagementObject علي ان هذه الـ Class تكون Singleton , ومعني انها أي ان لها Instance واحد , أي انها وحيده وفريده أي Unique ,
بعد ان انشأنا هذا العنصر ما الذي يمكننا هذا العنصر من عمله بهذه الـ Win32 Class .. ؟؟؟
يمكننا التعرف علي خواص هذه الـ Class كالآتي :

كود :

Dim xx As Management.PropertyData
For Each xx In x.Properties
MsgBox(xx.Name)
Next

في الكود السابق قمنا بتعريف عنصر من الـ PropertyData Class , ثم قمنا بعمل For Each Loop للحصول علي خواص الـ Win32 Class ,

جرب الكود وأنظر النتيجة ......,

يمكنك التعرف أكثر علي الـ Win32 Classes من خلال WMI Studio وهو جزء من WMI Tools , ويمكنك تنزيله من موقع ميكروسوفت من
الرابط :

Win32 Classes