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

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

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


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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


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

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

Источник