Вывести на форму сведения о Оперативной Памяти - VB

Узнай цену своей работы

Формулировка задачи:

Должна быть память оперативки в Мб

Решение задачи: «Вывести на форму сведения о Оперативной Памяти»

textual
Листинг программы
Private Sub Command1_Click()
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    MsgBox Err.Number & ": " & Err.Description
    Exit Sub
End If
For Each objPhMem In objService.ExecQuery("SELECT * FROM Win32_PhysicalMemory")
        Print (objPhMem.Capacity / 1024) / 1024 & " МБ" 'размер физической памяти в МБ
   
Next
End Sub

Оцени полезность:

14   голосов , оценка 3.643 из 5
Похожие ответы