Вывести в листбокс информацию о видеокарте, материнской плате и свойства экрана - VB

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

Должно работать после нажатия command)Добавлено через 5 часов 49 минут Неужели никто не может этого в VB?(

Код к задаче: «Вывести в листбокс информацию о видеокарте, материнской плате и свойства экрана - VB»

textual
Sub Board()
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 objObject In objService.ExecQuery("SELECT * FROM Win32_BaseBoard")
    Print objObject.Caption 'наименование устройства
    Print objObject.Manufacturer  'производитель
    Print objObject.Product  'тип, определённый производителем
    Print objObject.SerialNumber  'серийный номер производителя
    Print objObject.Tag  'идентификатор в системе
    Print objObject.Version  'версия
Next
End Sub
 
Sub Monic()
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 objVideo In objService.ExecQuery("SELECT * FROM Win32_VideoController")
    Print objVideo.Caption 'наименование устройства
    Print objVideo.Description 'описание устройства
    Print objVideo.DeviceID 'идентификатор устройства
    Print objVideo.AdapterRAM 'размер памяти видеоадаптера
    Print objVideo.CurrentHorizontalResolution 'текущее разрешение экрана по горизонтали (точек)
    Print objVideo.CurrentVerticalResolution 'текущее разрешение экрана по вертикали (точек)
    Print objVideo.CurrentNumberOfColors 'число цветов в текущем разрешении экрана
    Print objVideo.VideoModeDescription 'текущее разрешение экрана и число цветов
    Print objVideo.CurrentBitsPerPixel 'качество цветопередачи (количество бит на пиксель)
    Print objVideo.CurrentRefreshRate 'частота обновления экрана, Гц
    Print objVideo.VideoProcessor 'описание видеопроцессора
Next
End Sub

15   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ