Como: Discar modems anexados a portas seriais no Visual Basic

Artigo
08/25/2010

Este tópico descreve como usar My.Computer.Ports para discar um modem em Visual Basic.

Normalmente, o modem está conectado a uma das portas seriais no computador.Para o aplicativo se comunicar com o modem, ele deve enviar comandos à porta serial apropriada.

Para discar um modem

Determine em qual porta serial o modem está conectado.O exemplo pressupõe que o modem está na COM1.
Use o método My.Computer.Ports.OpenSerialPort para obter uma referência para a porta.Para obter mais informações, consulte My.Computador.Ports.OpenSerialPort método.

O bloco Using permite que ao aplicativo feche a porta serial mesmo que se gere uma exceção.Todo o código que manipula a porta serial deve aparecer dentro deste bloco ou em um bloco Try...Catch...Finally.
```
Using com1 As IO.Ports.SerialPort = _
        My.Computer.Ports.OpenSerialPort("COM1", 9600)
End Using
```
Defina a propriedade DtrEnable para indicar que o computador estará pronto para aceitar uma transmissão de entrada do modem.
```
com1.DtrEnable = True
```
Envie o comando de discagem e o número de telefone para o modem por meio de porta serial por meio do método Write.
```
com1.Write("ATDT 555-0100" & vbCrLf)
```

Exemplo

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

Este exemplo de código também está disponível como um trecho de código IntelliSense.No selecionador de trechos de código, ele está localizado em Connectivity and Networking.Para obter mais informações, consulte Como: Inserir trechos em seu código (Visual Basic).

Compilando o código

Este exemplo requer uma referência ao namespace System.

Programação robusta

O exemplo supõe que o modem está conectado com a COM1.É recomendável que seu código permita que o usuário selecione a porta serial desejada em uma lista de portas disponíveis.Para obter mais informações, consulte Como: Show disponível Serial Ports in Visual Basic.

Este exemplo usa um bloco Using para se certificar de que o aplicativo fecha a porta mesmo se ele lançar uma exceção.Para obter mais informações, consulte Instrução Using (Visual Basic).

No exemplo, o aplicativo desconecta a porta serial após discar o modem.Realisticamente, você desejará transferir dados a partir do modem e para o modem.Para obter mais informações, consulte Como: Receber Strings From Serial Ports in Visual Basic.