Partilhar via

Como: Modems de discagem conectados a portas seriais no Visual Basic

  • Artigo

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

Normalmente, o modem está conectado a uma das portas seriais do computador. Para que seu aplicativo se comunique com o modem, ele deve enviar comandos para a porta serial apropriada.

Para discar um modem

  1. Determine a qual porta serial o modem está conectado. Este exemplo pressupõe que o modem esteja em COM1.

  2. Use o My.Computer.Ports.OpenSerialPort método para obter uma referência à porta. Para obter mais informações, veja OpenSerialPort.

    O Using bloco permite que o aplicativo feche a porta serial, mesmo que gere uma exceção. Todo o código que manipula a porta serial deve aparecer dentro deste bloco ou dentro de um Try...Catch...Finally bloco.

    Using com1 As IO.Ports.SerialPort =
        My.Computer.Ports.OpenSerialPort("COM1", 9600)
End Using

  3. Defina a DtrEnable propriedade para indicar que o computador está pronto para aceitar uma transmissão de entrada do modem.

    com1.DtrEnable = True

  4. Envie o comando de discagem e o número de telefone para o modem através da porta serial por meio do Write método.

    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 seletor de trechos de código, ele está localizado em Conectividade e Rede. Para obter mais informações, consulte Trechos de código.

Compilando o código

Este exemplo requer uma referência ao System namespace.

Programação robusta

Este exemplo pressupõe que o modem está conectado ao COM1. Recomendamos que seu código permita que o usuário selecione a porta serial desejada a partir de uma lista de portas disponíveis. Para obter mais informações, consulte Como mostrar portas seriais disponíveis.

Este exemplo usa um Using bloco para garantir que o aplicativo feche a porta, mesmo que lance uma exceção. Para obter mais informações, consulte Usando instrução.

Neste exemplo, o aplicativo desconecta a porta serial depois de discar o modem. Realisticamente, você vai querer transferir dados de e para o modem. Para obter mais informações, consulte Como receber cadeias de caracteres de portas seriais.

Consulte também