Olá,

 

Estou com dificuldades para desenvolver um pequeno programa similar ao Hyper Terminal do Windows.

Estou utilizando o MScomm. Será que alguém tem material sobre o MScomm ou um pequeno exemplo de utilização ?

 

Obrigado.

Olhes este link

 

Olá meu kro !!!

 

Segue abaixo:

 

Crie um Form no VB contendo:   uma caixa de texto, um botao de comando e um objeto MSComm

 

Nome dos objetos

 

txtNum

cmdDiscar

MSComm1

 

 

Dentro do Evento click do botao coloque o código

 

 'Declaramos duas variáveis do tipo texto

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

 

 

 

Tentei...