تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لمعرفة حجم الذاكرة الحية الخاصة بكل Slot
#1
كاتب الموضوع : Boutemine Oualid

السلام عليكم ورحمة الله و بركاته
مثال آخر عن استعمال ال WMI

VB.NET

كود :
Private Function ListPhysicalMemory() As Collection
Dim Result As New Collection
Dim myScop As New Management.ManagementScope("\\" & Environment.MachineName & "\root\cimv2")
Dim oQuer As New Management.SelectQuery("SELECT * FROM Win32_PhysicalMemory")
Dim oResult As New Management.ManagementObjectSearcher(myScop, oQuer)
Dim oIte As Management.ManagementObject
Dim oPropert As Management.PropertyData
Dim StrFinal As String = Nothing
Dim Idx As Integer = 0
Try
Result.Clear()
For Each oIte In oResult.Get()
For Each oPropert In oIte.Properties
StrFinal &= oPropert.Name & " ---> "
If Not oPropert.Value Is Nothing Then StrFinal &= oPropert.Value
StrFinal &= vbCrLf
If Not oPropert.Value Is Nothing AndAlso oPropert.Name = "Capacity" Then
Dim Valeur As String = oPropert.Value
Result.Add(oPropert.Value, "Slot " & Idx)
End If
Next
Idx += 1
Next
Catch ex As Exception
MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "Erreur", MessageBoxButtons.OK, _
MessageBoxIcon.Error)
End Try
Return Result
End Function
C#

كود :
public static string[] ListPhysicalMemory()
{
ManagementScope mscope = new ManagementScope(string.Format(@"[url=file://%7B0%7D/root/cimv2]\\{0}\root\cimv2[/url]", Environment.MachineName));
ManagementObjectSearcher mos = new ManagementObjectSearcher(mscope, new ObjectQuery("SELECT * FROM Win32_PhysicalMemory"));
StringBuilder szb = new StringBuilder();
foreach (ManagementObject mo in mos.Get())
szb.AppendFormat(@"{0}:{1};", mo.Properties["BankLabel"].Value, mo.Properties["Capacity"].Value);
mos.Dispose();

string szResult=szb.ToString().Trim();
return szResult.Remove(szResult.Length - 1).Split(";".ToCharArray());
}
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  (لعبة الذاكرة Memory Game) لتفهم التعامل مع مصفوفة الادوات RaggiTech 0 2,716 17-10-12, 09:05 PM
آخر رد: RaggiTech
  لمعرفة هل نعمل ضمن بيئة 32 بت أو 64 بت برمجيا RaggiTech 0 2,312 17-10-12, 08:59 PM
آخر رد: RaggiTech
  للمبتدئين فقط..كيفية عمل برنامج صغير (عداد لحساب الذاكرة المستخدمة بالجهاز) RaggiTech 0 2,352 17-10-12, 07:13 PM
آخر رد: RaggiTech
  استخدام مجال الأسماء My.Computer لمعرفة هل ازرارالوظائف تستخدم ام لاكزر Ctrl و خلافه RaggiTech 0 2,060 17-10-12, 06:59 PM
آخر رد: RaggiTech
  معرفة لغة العرض الخاصة بنظام التشغيل ويندوز RaggiTech 0 2,077 17-10-12, 06:48 PM
آخر رد: RaggiTech
  لمعرفة نسخة الفريم وورك التي يعمل عليها التطبيق RaggiTech 0 1,690 17-10-12, 06:18 PM
آخر رد: RaggiTech
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 1,841 17-10-12, 06:17 PM
آخر رد: RaggiTech
  لمعرفة رسالة الخطأ الأخيرة بعد استدعاء دالة API (Last Error Message) RaggiTech 0 1,938 17-10-12, 06:17 PM
آخر رد: RaggiTech
  لمعرفة حالة الاتصال بالانترنت RaggiTech 0 1,910 17-10-12, 06:16 PM
آخر رد: RaggiTech
  لمعرفة ان كانت السنة كبيسة أم لا RaggiTech 0 2,205 17-10-12, 06:16 PM
آخر رد: RaggiTech

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


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