Вывести информацию на форму о памяти, о устройствах подключенных к нему(мышь, клавиатура) - VB

  1. Процессы должны показываться ещё


textual

Код к задаче: «Вывести информацию на форму о памяти, о устройствах подключенных к нему(мышь, клавиатура) - VB»

Sub keyboard()
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 objKeyb In objService.ExecQuery("SELECT * FROM Win32_Keyboard")
    Exit For
Next
Print objKeyb.Caption 'наименование устройства
Print objKeyb.Description 'описание устройства
Print objKeyb.DeviceID  'адрес или другая уникальная информация идентификации
Print objKeyb.NumberOfFunctionKeys 'количество функциональных клавиш
 
End Sub
 
Sub memory()
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.Name 'наименование устройства
    Print objPhMem.Capacity 'размер физической памяти в байтах
    Print objPhMem.DeviceLocator 'гнездо или монтажная схема, к которой подключена память
Next
End Sub
 
Sub Mouse()
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 objMouse In objService.ExecQuery("SELECT * FROM Win32_PointingDevice")
    Exit For
Next
Print objMouse.Caption 'наименование устройства
Print objMouse.Description 'описание устройства
Print objMouse.HardwareType 'тип устройства
Print objMouse.Manufacturer  'производитель
Print objMouse.DeviceID  'уникальный идентификатор устройства
Print objMouse.DeviceInterface  'интерфейс: 162 - USB, 4 - PS/2, 3 - Serial и т.д.
Print objMouse.Handedness  'настройка: 2 - мышь для правши, 3 - мышь для левши
Print objMouse.NumberOfButtons  'количество кнопок
 
End Sub
Sub Process()
Dim Process As Object
        For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
         Print Process.Caption
        Next
End Sub
 
Private Sub Command1_Click()
keyboard
Mouse
memory
Process
End Sub

СДЕЛАЙТЕ РЕПОСТ

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



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

  1. После нажатия на форме появляется время работы компьютера

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

  1. Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести yes, иначе no. помогите решить на VB

  1. Текст задачи Дан массив А размера N. Вывести его элементы в следующем порядке: A1, AN, A2, AN-1, A3, AN-2 …

  1. Дана строка, изображающая десятичную запись целого положительного числа. Вывести строку, Изображающую двоичную запись этого же числа

  1. Вывести на экран таблицу умножения для чисел от 1 до 10.

  1. Вывести все пятизначные числа, которые делятся на 2, у которых средняя цифра нечетная, и сумма всех цифр делится на 4.