1

Тема: список модемов

здравствуйте, нужен код на вб(а) как программно вывести список модемов и их состояния, строго с вкладки телефон модемы, программно она открывается так:

  '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&