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

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

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

Должно работать после нажатия command)
Неужели никто не может этого в 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 из 5
Похожие ответы