Вывести информацию на форму о памяти, о устройствах подключенных к нему(мышь, клавиатура) - VB
Формулировка задачи:
Процессы должны показываться ещё
Решение задачи: «Вывести информацию на форму о памяти, о устройствах подключенных к нему(мышь, клавиатура)»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д