elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Central Telefonica. Se Puede?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Central Telefonica. Se Puede?  (Leído 2,866 veces)
LICHONGO

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Central Telefonica. Se Puede?
« en: 16 Octubre 2007, 21:48 pm »

Hola a todos, estoy haciendo una agenda telefonica y me hice la pregunta de que si era posible realizar llamadas con una aplicacion en visual basic 6.0 estuve buscando material y no he encontrado casi nada, si alguien tiene un material que me pueda servir se lo agradeceria que me lo pasara.

muchas gracias


En línea

sch3m4
Ex-Staff
*
Desconectado Desconectado

Mensajes: 1.608

Nihil est in intelectu quod prius not fuerit insen


Ver Perfil WWW
Re: Central Telefonica. Se Puede?
« Respuesta #1 en: 16 Octubre 2007, 21:53 pm »

Si tienes acceso a internet por modem, puedes usar el control mscomm. A penas lo he usado, pero seguro que encuentras algo en google.


En línea

SafetyBits

"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..
LICHONGO

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Re: Central Telefonica. Se Puede?
« Respuesta #2 en: 16 Octubre 2007, 21:57 pm »

Gracias por la ayuda, ese tema si lo encuentro vastante en internet el de hacer llamadas con un programa VOIP pero ese tipo de programa no es que quiero realizar yo quiero hacer una aplicacion sencilla que realize llamada entre estenciones telefonicas como una especie de central virtual... gracias
En línea

sch3m4
Ex-Staff
*
Desconectado Desconectado

Mensajes: 1.608

Nihil est in intelectu quod prius not fuerit insen


Ver Perfil WWW
Re: Central Telefonica. Se Puede?
« Respuesta #3 en: 16 Octubre 2007, 22:07 pm »

No te hablo de VoIp, sino de marcar el número de teléfono con el módem, como si fuera el teléfono (que es realmente lo que es).
En línea

SafetyBits

"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..
CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: Central Telefonica. Se Puede?
« Respuesta #4 en: 17 Octubre 2007, 03:43 am »

a ver si esto te sirve

vas a necesitar poner en un form:

1 textbox que se llame txtPuerto
1 textbox que se llame txtNum
1 commandbutton que se llame cmdMarcar
1 commandbutton que se llame cmdColgar
2 optionButton (opTonos y opPulsos)
y el control MSComm
(parece receta de cocina jajajajajja)


Código:
Option Explicit
Dim objComunicar

Public Sub marcarNumeroTelefono(numero As String)
  Dim cadConexion As String
  Dim resultado As Integer
  Dim modem As String
   
  On Error GoTo cError
    MousePointer = 11
  Set objComunicar = CreateObject("MSCommLib.MSComm")
 
  'Enviamos la cadena ATDT que equivale a
  'descolgar el modem y marcar el número indicado por tonos
  'ATDP por pulsos
  If opTonos.Value = True Then
    cadConexion$ = "ATDT" + numero + ";" + Chr$(13)
  End If
  If opPulsos.Value = True Then
    cadConexion$ = "ATDP" + numero + ";" + Chr$(13)
  End If
 
  'Indicaremos el puerto COM a utilizar (donde esté conectado el módem)
  objComunicar.CommPort = CInt(txtPuerto.Text)
 
  'En la configuración le indicaremos
    '300 = 300 baudios (velocidad)
    'N = sin paridad
    '8 = 8 bits de datos
    '1 = bit de parada
  objComunicar.Settings = "300,N,8,1"
   
  If Not objComunicar.PortOpen Then objComunicar.PortOpen = True
   
  'Liberamos el búfer de salida
  objComunicar.InBufferCount = 0
   
  'Enviamos los comandos AT con el número al módem
  objComunicar.Output = cadConexion$
   
  'Esperamos a recibir "OK" desde el módem
  Do
    resultado = DoEvents()
    ' Si hay datos en el Buffer los leemos
    If objComunicar.InBufferCount Then
      modem$ = modem$ + objComunicar.Input
      'Comprobamos si los datos leídos son "OK"
      If InStr(modem$, "OK") Then
        'Podemos indicar al usuario que descuelgue el teléfono
        MsgBox "Descuelge su teléfono y pulse 'Aceptar' para cerrar" _
            + " el módem. Podrá continuar la llamada en su teléfono." _
            + Chr(13) + Chr(13) + "Recuerde que si pulsa 'Aceptar' " _
            + "sin descolgar su teléfono se cortará la llamada.", _
            vbInformation + vbOKOnly
        Exit Do
      End If
    End If
  Loop
   
  'Desconectamos el módem, para ello enviamos el comando "ATH"
  objComunicar.Output = "ATH" + Chr$(13)
  'Cerramos el puerto
  objComunicar.PortOpen = False
    MousePointer = 0
cSalir:
  Exit Sub
 
cError:
  MsgBox "Error en la marcación del número de teléfono: " & _
      Err.Number & " - " & Err.Description, vbExclamation
  GoTo cSalir
End Sub


Private Sub cmdColgar_Click()
  On Error GoTo cError
  'Desconectamos el módem, para ello enviamos el comando "ATH"
  objComunicar.Output = "ATH" + Chr$(13)
 
cSalir:
  Exit Sub
 
cError:
  MsgBox "Error en la marcación del número de teléfono: " & _
      Err.Number & " - " & Err.Description, vbExclamation
  GoTo cSalir
End Sub

Private Sub cmdMarcar_Click()
    marcarNumeroTelefono txtNum.Text
End Sub
En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
LICHONGO

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Re: Central Telefonica. Se Puede?
« Respuesta #5 en: 17 Octubre 2007, 13:49 pm »

Muchas Gracias Celaya eso es precisamente lo que queria hacer pero lo que hace falta es recivir llamadas, no seria mucho pedir si tambien tienes ese codigo.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
El servidor central de Adobe es hackeado
Noticias
wolfbcn 2 2,663 Último mensaje 28 Septiembre 2012, 20:39 pm
por dimitrix
Tú proveedor de internet puede saber y ver desde la central... « 1 2 3 »
Dudas Generales
win_7 29 10,508 Último mensaje 24 Agosto 2018, 13:15 pm
por Skali
programar central llamado de enfermeras MC 4010 / ETH AUSTCO
Redes
CIBERNETICO80 1 2,024 Último mensaje 9 Junio 2019, 23:49 pm
por Machacador
IoT Central
Programación General
ryhuso 0 2,107 Último mensaje 28 Abril 2021, 17:21 pm
por ryhuso
Recuperar una grabación telefónica .se puede???
Dudas Generales
Daniel22 9 4,670 Último mensaje 2 Junio 2021, 00:28 am
por Machacador
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines