a mi me pasa q mucçhos hablan y dicen cosas como "yo estoy trabajando0 con mscomm.ocx y va de diez"... pero no lo suben
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarMe ha costado, pero finalmente, ya he conseguido enviar sms desde Visual Basic 6.0 o NET, con VB 5.0 no he probado. Sin embargo, quiero añadir que con Visual C++ es muchísimo más fácil de desarrollar (desde 0, me refiero, claro).
Bueno, es sencillo, cuando ya se tiene, jeje:
Se necesita cargar el componete MSComm1, obviamente,
y el código fuente para el envío es el siguiente:
If Not MSComm1.Open Then
MSComm1.PortOPen = True
End If
MSComm1.IDPort = 1 ' 1>com1, 2>com2, 3>com3...
MSComm1.TypeSend = CommTextStringMethod
MSComm1.Provider = "901904020" ' Ese es Wanadoo, cada cual que elija...
MSComm1.RecipientCountryCode = "34" ' España
MSComm1.Recipient = "666666666" ' Teléfono receptor del mensaje
MSComm1.OutPutToRecipient = "Saludos" ' Mensaje de texto (ojo! hasta 120)
MSComm1.SendRecipient
Do While MsComm1.FullRecipient
DoEvents
Loop
MSComm1.ClearRecipient
MSComm1.CloseProvider
MSComm1.RefreshPort
MSComm1.PortOpen = False
Colocando el código en el evento click del commandbutton sobra.
El proceso tarda en ejecutarse completamente entre 8 y 12 segundos, y el mensaje se recive tras 20 a 30 segundos, pero funciona y no tiene coste.
TODAS LAS LINEAS DEL CODIGO FUENTE Y SU ORDEN SON INDISPENSABLES. SI HAY DUDAS ENVIADME UN CORREO O PONEOS EN CONTACTO A TRAVES DE MSN. ESTOY POR LAS TARDES DE LUNES A VIERNES.
HASTA LUEGO PROGRAMMERS...
Ah! Ah! la versión del MSCOMM.OCX es la 4.3 de abril del 2004 y funciona sólo bajo XP y 2000 ( el resto de versiones no acogen el método "Recipient" ni la propiedad IDPort), su tamaño es de 489.561 Bytes. (475 Kb.). Se puede descargar libremente desde Microsoft.
Y eso es todo, amigos...