Identificar de llamadas en VB

Publicar una respuesta


Esta pregunta es una forma de evitar inserciones automatizadas por Spambots.
Emoticonos
:D :) :( :o :shock: :? 8) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :meparto: :cry2:

BBCode está habilitado
[img] está habilitado
[Flash] está deshabilitado
[url] está habilitado
Emoticonos están habilitados

Revisión de tema
   

Expandir vista Revisión de tema: Identificar de llamadas en VB

Re: Identificar de llamadas en VB

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

Re: Identificar de llamadas en VB

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

Vamos a Probar gracias.

Re: Identificar de llamadas en VB

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

identificador de llamadas

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

Identificar de llamadas en VB

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

Arriba