TRABALHAR COM MSCOMM

EDELSON 21/04/2011 21:54:06
#372153

Estou tentando fazer um telefone no vb. pois não consigo gazer com que o mscomm
veja se o numero que eu estou ligando esta ocupado sei que ele retorna a Como BUSY

os codigos que estou usando são

Para chamar

Private Sub Command1_Click()

MSComm1.PortOpen = True [ô]aqui ele abre a porta
MSComm1.Settings = [Ô]9600,N,8,1[Ô]
MSComm1.Output = [Ô]ATDT[Ô] & [Ô]6285116322 & [Ô];[Ô] & Chr$(13) [ô]aqui ele disca para o numero
End Sub


[ô] aqui ele abre o modem
Private Sub Form_Load()
MSComm1.CommPort = 4
End Sub


Private Sub Command3_Click()
Label1.Caption = MSComm1.Input [ô]aqui ele mostra na lebel1 tudo o que esta acontecendo na porta
End Sub

Estou usando o VB6

Quero que o mscomm1 fale se o telefone esta ocupado

Desde já agradeço