Вывести в листбокс информацию о видеокарте, материнской плате и свойства экрана - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д