Criei um Form no VB contendo: uma caixa de texto, um botao de comando e um objeto MSComm
Dim StringSaida, StringRetorno
As String StringSaida = "ATX3DT," & txtNum & ";" & Chr$(13) 'Atribuimos o valor a variavel MSComm1.Settings = "300,N,8,1" 'Configuramos a porta de comunicação
MSComm1.CommPort = "2" 'Direciona as informações para a COM2, Do Modem
MSComm1.Input = "" 'Abre a porta de comunicação
MSComm1.PortOpen = True
'Esta mensagem aguarda a confirmação do usuário para continuar o processo
MsgBox "O sistema discará para " & " o telefone : " & txtNum
MSComm1.InBufferCount = 0 'Limpa o buffer de entrada
MSComm1.Output = StringSaida 'O modem inicia a discagem
'Aguarda por um OK que o modem retornará quando concluir a discagem
Do
DoEvents
If MSComm1.InBufferCount Then 'O buffer contém alguma string de retorno
StringRetorno = StringRetorno & MSComm1.Input 'Joga o conteúdo para a variável
If IntStr(StringRetorno, "OK") Then 'Procura pelo "OK"
Beep 'Avisa com um beep
MsgBox "Retire o telefone do gancho e pressione Enter ou clique em OK."
Exit Do
End If
End If
Loop
'Desconecta o modem, permitindo que o usuário fale ao telefone sem interferências
MSComm1.Output = "ATH" + Chr$(13) 'Efetua o hang-up da ligação
MSComm1.PortOpen = False
