02-03-14, 04:40 AM
(آخر تعديل لهذه المشاركة : 23-04-15, 07:30 AM {2} بواسطة Genius Live.)
السلام عليكم ورحمة الله وبركاته
وضع به الادوات التالية:
1 ListBox
1 TextBox
2 Button
كما بالشكل التالي:
إذهب إلي Solution Explorer
إضغط زر الفأرة الأيمن اختار Add Reference
من التبويب .NET اضف المرجع System.Management
ثم في شاشة تحرير الكود إستدعي المرجع System.Management كما يلي:
في قسم التصاريح عرف متغيير لإستخدامه في تحميل قيمة المعالج كالتالي:
كود زر جلب رقم المعالج
إضغط علي ListBox نقراً مزدوجاً ليفتح في شاشة الكود الحدث SelectedIndexChanged
يوجد مثال بالمرفقات
والله أعلي وأعلم
طريقة جلب رقم المعالج
افتح مشروع جديدوضع به الادوات التالية:
1 ListBox
1 TextBox
2 Button
كما بالشكل التالي:
إذهب إلي Solution Explorer
إضغط زر الفأرة الأيمن اختار Add Reference
من التبويب .NET اضف المرجع System.Management
ثم في شاشة تحرير الكود إستدعي المرجع System.Management كما يلي:
كود :
Imports System.Management
كود :
Public A As String = ""
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ProcessorID As New ManagementObjectSearcher("SELECT * FROM Win32_processor")
Dim CPUID As ManagementObject
For Each CPUID In ProcessorID.Get()
A = Trim((CPUID("processorId").ToString()))
If A <> "" Then
ListBox1.Items.Add(A)
End If
Next
End Sub
كود :
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
TextBox1.Text = ListBox1.Text
End Sub
والله أعلي وأعلم
{ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ }
" Mohamed M. Bedair - " Abu Anas
Genius Live , Egypt