Hola alguien sabe como puedo hacer para marcar por teléfono con MSCOMM1 y cuando la otra persona atiende hacer sonar un wav
y obviamente la otra persona lo escuche el wav
tengo este código que lo que hace es marcar pero y cuando conecta aparece un msgbox diciendo que "levante el tuvo", pero se puede hacer que en ves de esto, cuando la otra persona atiende le suene el wav?
Dim cancelar As Boolean
'Boton para hacer la llamada...
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Introduzca un número a marcar!", vbCritical, "Marcar"
Else
cancelar = False
Command1.Caption = "Marcando..."
Dial (Text1.Text)
End If
End Sub
Private Sub Dial(Number$)
Dim DialString$, FromModem$, dummy
DialString$ = "ATDT" + Number$ + ";" + vbCr
On Error Resume Next
MSComm1.PortOpen = True
If Err Then
MsgBox "Error de Puerto!"
Exit Sub
End If
MSComm1.InBufferCount = 0
MSComm1.Output = DialString$
Do
dummy = DoEvents()
If MSComm1.InBufferCount Then
FromModem$ = FromModem$ + MSComm1.Input
If InStr(FromModem$, "OK") Then
Beep
MsgBox "Por favor alce el auricular y presione Enter o haga click."
Command1.Caption = "Marcar"
Exit Do
End If
End If
If cancelar Then
cancelar = False
Exit Do
End If
Loop
MSComm1.Output = "ATH" + vbCr
MSComm1.PortOpen = False
End Sub
