[محمد بوقزاحة]

(23-11-23, 02:51 AM)3sem كتب :

(22-11-23, 11:57 AM)محمد بوقزاحة كتب : شكرا اخي على الرد والمشاركة
 قمت بإرفاق المشروع لم يظهر الكود المطلوب منه ويوجد خطا  
كما اضفت شاشة ثانية تظهر بيانات سيريال نمبر   لوحة الام   والهارد ديسك    ...الخ


ارجو التعديل على الكود الذي كتببته انت  واظهار المطلوب كل ناتج في textbox1 

اظهار حجم الرام  في textbox1
 اظهار حجم الهارد ديسك في textbox2 
اظهار نوع الهارد في textbox3

جرب هذا التعديل
  شكرا اخي
       Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
       For Each queryObj As ManagementObject In searcher.Get()
           Dim totalRam As Double = CDbl(queryObj("TotalVisibleMemorySize"))
           Dim freeRam As Double = CDbl(queryObj("FreePhysicalMemory"))
           textbox1.text="Total RAM: " & (totalRam / 1024) & " MB"
       Next

       Dim searcher1 As New ManagementObjectSearcher("SELECT * FROM Win32_LogicalDisk WHERE DeviceID='C:'")
       For Each queryObj As ManagementObject In searcher1.Get()
           Dim totalDisk As Double = CDbl(queryObj("Size"))
           Dim freeDisk As Double = CDbl(queryObj("FreeSpace"))
           textbox2.text="Total Disk Space: " & (totalDisk / 1024 / 1024 / 1024) & " GB"
       Next

       Dim driveInfo As New DriveInfo("C")
       Dim driveType As DriveType = driveInfo.DriveType
       If driveInfo.DriveType = driveType.Fixed AndAlso driveInfo.DriveFormat.ToUpper() = "NTFS" Then
           textbox3.text="Drive C: is an SSD"
       ElseIf driveType = driveType.Fixed Then
           textbox3.text="Drive C: is an HDD"
       Else
           textbox3.text="Drive C: type is unknown"
       End If