Вывести на форму сведения о Оперативной Памяти - 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