Тема: список модемов
здравствуйте, нужен код на вб(а) как программно вывести список модемов и их состояния, строго с вкладки телефон модемы, программно она открывается так:
'1
'control.exe - служит для работы с панелью управления
'telephon.cpl - оснастка панели управления для телефонии
'1 - номер вкладки, которую нужно активировать при открытии (отсчет с нуля)
'Shell "control.exe telephon.cpl,,1"
'2
'можно и так сразу открывается вторая вкладка
'Shell "control.exe modem.cpl"
'3
Shell "rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus
'MyID - идентификатор процесса
'MyID = Shell("rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus)
'закрыть вкладку
SendMessage GetForegroundWindow, &H10, 0&, 0&