02-10-12, 04:25 PM
كاتب الموضوع : FlyToAbd
بسم الله الرحمن الرحيمالسلام عليكم ... واسف على الانقطاع بسبب الانشغال
أثناء بحثي لجلب رقم البطاقة الام MotherBoard ورقم المعالج ورقم الذاكرة وحجمها واكث من ذلك بكثير في كود واحد حيث يجلب جميع معلومات الجهاز بالكامل وقد وجدت انه لم يكن واضحا للمبتدئين ولم يكمل اجزاء الكود بالرغم من تكامل الفكرة
اضفت له واجهة تجعل استخدامه سهل للجميع
لعمل ذلك اتبع الخطوات التالية
1. اعمل مشروع جديد
2. من القائمة Project - Add Referance أضف المرجع System.Management
3. في النموذج Form1 اضف الاداة SplitContainer
4. اختر الاداة SplitContainer1.Panel1 وأضف فيها اداة TreeView واضبط الخصائص التالية
A. الخاصية FillRowSelect تكون True
B. الخاصية HideSelection تكون False
C. الخاصية Dock تكون Fill
5. اختر الاداة SplitContainer1.Panel2 وأضف فيها اداة ListView واضبط الخصائص التالية
A. الخاصية FillRowSelect تكون True
B. الخاصية HideSelection تكون False
C. الخاصية Dock تكون Fill
D. الخاصية View تكون Details
E. الخاصية Columns أضف اربع اعمدة واجعل الخاصية Text للعمود الأول #والثاني Name والثالث DataType والرابع Value
6. اذهب الى كود النموذج واعمله كما يلي
كود :
Imports System.Management
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Nod As TreeNode
' الكود في المشاركة التالية
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
Dim ind As Integer = 1
Dim Nod As TreeNode = e.Node
Dim Itm As ListViewItem
ListView1.Items.Clear()
Me.Cursor = Cursors.WaitCursor
Dim searcher As New ManagementObjectSearcher("select * from Win32_" & Nod.Text)
For Each share As ManagementObject In searcher.Get()
For Each PC As PropertyData In share.Properties
Itm = ListView1.Items.Add(ind)
Itm.SubItems.Add(PC.Name)
Itm.SubItems.Add(PC.Type.ToString)
If Not PC.Value Is Nothing Then
Itm.SubItems.Add(PC.Value.ToString)
End If
Application.DoEvents()
Itm.BackColor = IIf(ind Mod 2 = 0, SystemColors.Window, Color.AliceBlue) : ind += 1
Next PC
Next
Me.Cursor = Cursors.Default
End Sub
End Class
BaseBoard يجلب لك معلومات البطاقة الام MotherBoard وانتبه للخاصية SerialNumber
Keyboard وستجد خصائصه تتضمن DeviceID
LocalDisk وستجد معلومات القرص الصلب
DiskPartition تقسيمات القرص واحجامها وخصائص اخرى كثيرة
NetworkAdapter جميع خصائص كروت الشبكة بضمنها خاصية MAC Address
Processor المعالج CPU بكامل خصائصة بضمنها الخاصية ProcessorID
SoundDevice كرت الصوت بخصائصه الكاملة
والكثير الكثير من المعلومات