Identificar de llamadas en VB

Cuestiones y dudas acerca de lenguajes de programación diversos.

Moderador: Moderadores

fpm810
Novat@
Mensajes: 1
Registrado: Lun Jun 25, 2007 9:50 pm

Identificar de llamadas en VB

Mensaje por fpm810 » Lun Jun 25, 2007 10:00 pm

Hola. Estoy buscando como hacer un identificador de llamadas en Visual Basic 6. Si alguien me puede ayudar por favor. y Estare pendiente de las dudas que yo pueda solucionar para ustedes. Gracias

Avatar de Usuario
orion1500

identificador de llamadas

Mensaje por orion1500 » Jue Ago 23, 2007 7:17 pm

fpm810 yo tengo q relizar la misma aplicacion asi q si puedes o si alguin te manda ayuda por favor no dudes en ayudarme xq la vdd es algo dificil para mi de antemano les doy las gracias

Avatar de Usuario
Invitado

Re: Identificar de llamadas en VB

Mensaje por Invitado » Jue Abr 10, 2008 6:10 pm

fpm810 escribió:Hola. Estoy buscando como hacer un identificador de llamadas en Visual Basic 6. Si alguien me puede ayudar por favor. y Estare pendiente de las dudas que yo pueda solucionar para ustedes. Gracias
Private Sub Form_Load()
Dim sInit As String, nTemp As Variant, bStop As Boolean, sTemp As String
On Error GoTo Err_Rutina_Error
'CODIGO CREADO POR JOSE PASTOR LEZCANO LOPEZ
'josepastor.lezcano@telecom.com.co

If Me.MSComm1.Settings <> "" Then
''''Revisar e iniciar modem 1 linea1
Me.MSComm1.CommPort = 7
sInit = "AT+VCID=1" ' O TAMBIEN SEGUN EL MODEM "AT#CID=1"
'SET UP THE COM PORT
Me.MSComm1.InputLen = 0
'OPEN THE CONNECTION AND SEND THE INIT STRING
If Me.MSComm1.PortOpen = False Then Me.MSComm1.PortOpen = True
Me.MSComm1.Output = sInit + Chr$(13)
Me.MSComm1.EOFEnable = True
'WAIT A FEW SECONDS FOR MODEM RESPONSE
nTemp = 0
bStop = False
While (nTemp < 32000 And bStop = False) 'Or InStr(sTemp, "OK") = 0
nTemp = nTemp + 1
If Me.MSComm1.InBufferCount >= 6 Then ' este valor puede ser mayor o menor
sTemp = Me.MSComm1.Input
If InStr(sTemp, sInit) = 0 Then bStop = True
End If
Wend
'IF THE MODEM DIDN'T SAY OK THEN END
If InStr(sTemp, "OK") = 0 Then
MsgBox "El Módem para la línea 1 no Responde.", vbOK + vbCritical, "Error al Inicializar el Módem"
End If
'CLEAR REMAINING INPUT
sTemp = Me.MSComm1.Input
nTemp = 0
If Handshaking <> 0 Then
Me.MSComm1.Handshaking = Handshaking
If Err Then
MsgBox Error$, 48
Exit Sub
End If
End If
End If
Exit_Rutina_Error:
Exit Sub
Err_Rutina_Error:
MsgBox Err.Description
Resume Next 'Exit_Rutina_Error
End Sub
Private Sub MSComm1_OnComm()
On Error GoTo Err_Rutina_Error
Dim conta As Long
Dim EVMsg$
Dim ERMsg$
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant
Case comEvSend
Case comEvCTS
EVMsg$ = "Detectado cambio en CTS"
Case comEvDSR
EVMsg$ = "Detectado cambio en DSR"
Case comEvCD
EVMsg$ = "Detectado cambio en CD"
Case comEvRing

Call ChequearLLamada

Case comEvEOF
EVMsg$ = "Detectado el final del archivo"
Case comBreak
ERMsg$ = "Parada recibida"
Case comCDTO
ERMsg$ = "Sobrepasado el tiempo de espera de detección de portadora"
Case comCTSTO
ERMsg$ = "Soprepasado el tiempo de espera de CTS"
Case comDCB
ERMsg$ = "Error recibiendo DCB"
Case comDSRTO
ERMsg$ = "Sobrepasado el tiempo de espera de DSR"
Case comFrame
ERMsg$ = "Error de marco"
Case comOverrun
ERMsg$ = "Error de sobrecarga"
Case comRxOver
ERMsg$ = "Desbordamiento en el búfer de recepción"
Case comRxParity
ERMsg$ = "Error de paridad"
Case comTxFull
ERMsg$ = "Búfer de transmisión lleno"
Case Else
ERMsg$ = "Error o evento desconocido"
End Select
Exit_Rutina_Error:
Exit Sub
Err_Rutina_Error:
MsgBox Err.Description
Resume Exit_Rutina_Error
End Sub
Sub ChequearLLamada()
On Error GoTo Err_Rutina_Error
sTemp = Me.MSComm1.Input
If InStr(sTemp, "NMBR =") <> 0 Then
If Len(sTemp) < 10 Then
Exit Sub
End If
ExtraeNumero (sTemp)
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
sTemp = ""
End If
Exit_Rutina_Error:
Exit Sub
Err_Rutina_Error:
MsgBox Err.Description
Resume Exit_Rutina_Error
End Sub
Sub ExtraeNumero(sInput As String)
On Error GoTo Err_Rutina_Error
Dim sName As String
Dim sNumber As String
Dim sDate As String
sNumber = "?"
If InStr(sInput, "MESG =") Then
nTemp = InStr(sInput, "MESG =")
sName = Mid(sInput, nTemp + 7)
sNumber = "NO NUMBER SENT"
Else
nTemp = InStr(sInput, "NMBR =")
If nTemp <> 0 Then sNumber = Mid(sInput, nTemp + 7, 17)
sTemp = Val(sNumber)
Me.Tel1.Text = "Número de Teléfono " + CStr(sTemp)
End If
Exit_Rutina_Error:
Exit Sub
Err_Rutina_Error:
MsgBox Err.Description
Resume Exit_Rutina_Error
End Sub

Avatar de Usuario
kikeleon

Re: Identificar de llamadas en VB

Mensaje por kikeleon » Mar Ago 30, 2011 8:28 pm

Vamos a Probar gracias.

Avatar de Usuario
tavocoolmaster

Re: Identificar de llamadas en VB

Mensaje por tavocoolmaster » Mar Abr 23, 2013 8:03 pm

esta es la solucion a tu lio ya lo probe
http://blogdediegoramirez.blogspot.com/ ... madas.html

Responder