Практическое руководство. Дозвон при помощи модема, подключенного к последовательному порту компьютера, в Visual Basic

Статья
02/20/2013

В этом разделе описывается использование объекта My.Computer.Ports для дозвона при помощи модема в Visual Basic.

Как правило, модем подключается к одному из последовательных портов компьютера.Для взаимодействия с модемом приложение должно отправлять команды на соответствующий последовательный порт.

Дозвон с помощью модема

Выясните, к какому последовательному порту подключен модем.В этом примере предполагается, что модем подключен к порту COM1.
Используйте метод My.Computer.Ports.OpenSerialPort для получения ссылки на порт.Дополнительные сведения см. в разделе OpenSerialPort.

Блок Using позволяет приложению закрыть последовательный порт даже в случае возникновения исключения.Весь код, управляющий последовательным портом, должен содержаться внутри этого блока или внутри блока Try...Catch...Finally.
```
Using com1 As IO.Ports.SerialPort = 
        My.Computer.Ports.OpenSerialPort("COM1", 9600)
End Using
```
Задайте свойство DtrEnable, чтобы указать, что компьютер готов принять входящие данные от модема.
```
com1.DtrEnable = True
```
Отправьте модему через последовательный порт команду дозвона и телефонный номер с помощью метода Write.
```
com1.Write("ATDT 555-0100" & vbCrLf)
```

Пример

Sub DialModem()
    ' Dial a number via an attached modem on COM1.
    Using com1 As IO.Ports.SerialPort = 
            My.Computer.Ports.OpenSerialPort("COM1", 9600)
        com1.DtrEnable = True
        com1.Write("ATDT 555-0100" & vbCrLf)
        ' Insert code to transfer data to and from the modem.
    End Using
End Sub

Данный пример кода доступен также в качестве фрагмента кода IntelliSense.В окне выбора фрагмента кода он находится в разделе Связь и сеть.Дополнительные сведения см. в разделе Фрагменты кода.

Компиляция кода

В этом примере требуется ссылка на пространство имен System.

Отказоустойчивость

В этом примере предполагается, что модем подключен к порту COM1.Рекомендуется предоставить пользователю возможность выбора нужного последовательного порта в списке доступных портов.Дополнительные сведения см. в разделе Практическое руководство. Отображение доступных последовательных портов в Visual Basic.

В этом примере используется блок Using, чтобы обеспечить закрытие порта приложением даже в случае возникновения исключения.Дополнительные сведения см. в разделе Оператор Using (Visual Basic).

В этом примере приложение отключает последовательный порт после осуществления дозвона до модема.В реальной ситуации может потребоваться передавать данные в модем и получать их от модема.Дополнительные сведения см. в разделе Практическое руководство. Получение строк из последовательных портов в Visual Basic.