Dos dudas - VB-MUNDO

nonamed · #1 (**permalink**) 23-01-2005, 10:08:35

Hola. Es la primera vez que voy a escribir en el foro y seguro que no será la última, así que me vereis por aquí alguna que otra vez.

Intento hacer una agenda telefónica, y lo que quiero es saber como marcar un nº de teléfono, y como mandar un email, pulsando un botón.

Gracias.

Cblackx · #2 (**permalink**) 23-01-2005, 15:39:48

tu pregunta es muy amplia. Presionando un boton puede parecer muy facil pero la codificacion depende de quien lo cree y en muchas ocasiones no es tan sencillo como parece. Hacer lo que tu quieres requiere de algunos conocimientos de VB no tan basicos.

J.M.Movilla · #3 (**permalink**) 23-01-2005, 16:34:47

Efectivamente, tal como te dice Cblackx no se define una comunicación telefónica como puedes diseñar un combobox... Tienes que tener cuando menos (además de un módem adecuadamente instalado) unos conocimientos básicos sobre algunos conceptos, como por ejemplo:

AT es el comando compatible Hayes ATTENTION que es necesario para enviar comandos al módem.
DT significa "marcar con tonos". El comando Dial utiliza tonos, en lugar de pulsos
Tras la orden "ATDT" se envía el número de teléfono que se va a marcar.
Seguidamente un punto y coma para indicar al módem que vuelva al modo de comando después de marcar.
Y se finaliza con un retorno de carro, vbCr, para que se envíen los comandos al módem.

Entonces, tu montas un control MSComm y defines sus propiedades con los parámetros que acabo de indicarte, dándole por ejemplo la orden de

Dim DialString$
DialString$ = "ATDT" + Number$ + ";" + vbCr
MSComDia.Output = DialString$

Finalizarías la conexión con la orden

MSComDia.Output = "ATH" + vbCr (Por si no se alcanza la comunicación)

Respecto a enviar un email, tienes multitud de posts en este foro que tratan del tema... Utiliza el botón [Buscar] y prueba con los ejemplos que se adjuntan.

nonamed · #4 (**permalink**) 23-01-2005, 18:39:46

No sabía yo que iba a ser tan dificil. Aún así he seguido buscando en internet y he encontrado este código:

Dim sNumTel as string

sNumTel = "(123) 456-7890"
Open "COM2" For Output As #1 ' o COM1 si tienes el modem en COM1
Print #1, "ATDT" & sNumTel & Chr$(13)
Close #1

Lo he probado y no funciona. ¿Qué es lo que hace realmente?

Muchas gracias.

acalanto · #5 (**permalink**) 23-01-2005, 19:52:25

El código que has conseguido debe pertenecer a alguna versión de Basic para MS-DOS. En el entorno Visual (Visual Basic) la forma de acceder a un puerto serie (Dónde tendrás conectado el módem), se realiza a través del componente MSComm tal como te indica en su ejemplo J.M.Movilla.

´Salvo esta particularidad y si te fijas el resto del código es coincidente. ATDT o ATDP 'descuelgan el teléfono' dependiendo de si marca por tono <DIALTONE> o por pulsos <DIALPULSE> y si tras este comando envías una cadena que contiene un número de teléfono intentará establecer la comunicación.

Evidentemente al otro lado de la línea debe existir otro módem (Escucharás los pitidos típicos de establecimiento de conexión, velocidades y protocolo). También es necesario que exista una aplicación que atienda los comandos que le envíes y los ejecite devolviendo información, de lo contrario ambos nodos se limitarán a estar conectados pero sin ejecutar nada.

Espero que te resulte útil.