(PREGUNTA) capturar número telefónico

[orlando.zarate]

Huy, este tema es viejo, pero me inscribi por esto.

Tuvieste exito? Creo que el modem debe tener esa cualidad, un simple fax modem no lo puede reconocer, yo se como realizar una llamada, en la base de datos tengo los telefonos y pues buscar el nombre, escojes el cliente y marcas, pero quiero tambien que pueda reconocer el telefono cuando llamen.

Aqui te dejo un ejemplo rapido, yo me base en el... Solo necesitas un boton y una caja de texto... a y poner el msComm, agregar el componente a la barra y lo jalas. Le seleccionas el puerto del modem y listo.


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


Ojala te sirva de algo y le eches ganas a tu proyecto, me interesa mucho...