Cómo enviar y recibir un SMS con VB 6

Mensajería SMS , también conocida como la mensajería de texto , sigue creciendo en popularidad. Ahora se utiliza en los sistemas de alerta de emergencia para los campus universitarios y ciudades. La banca móvil también ha incorporado la mensajería SMS. Los programadores informáticos están encontrando SMS acceden cada vez más importante . Nuevas bibliotecas creadas para Visual Basic 6 ( VB 6 ) simplificar el proceso de escribir y recibir mensajes SMS. Con los servicios de SMS en su lugar , los programadores pueden incorporar mensajería como una nueva interfaz para la comunicación con los usuarios . Instrucciones
1

Descargar e instalar SMSLibX . Usted tendrá que registrarse en una cuenta antes de permitir la descarga de biblioteca SMS. Una vez que el registro y la descarga se completa, haga doble clic en el archivo para iniciar el asistente de instalación . Siga las instrucciones de la pantalla con la configuración predeterminada .
2

lanzamiento Visual Basic Studios. Haga clic en " Inicio", " Todos los programas", " Visual Basic Studios ", "Editor de Visual Basic ". El software de edición de código aparecerá en la pantalla.
3

Acceder a la biblioteca de SMS a través de la lista de referencia . Haga clic en " proyecto ", "Referencias ", a continuación, seleccione SMSLibX de la lista de referencia y haga clic en " Aceptar".
4

Crear el objeto módem SMS a través de una declaración VB 6 . En el editor de código , escriba:

WithEvents Pública Modem Como SMSModem
5

Crear una función para enviar mensajes en VB 6 . En el editor de código , por debajo de la línea del paso anterior , escriba:

Private Sub nowSendSMSMessage ( Fax , MessageText ) Abrir módem de comunicación

Set Modem

'= Nuevo SMSModem

Modem.LogTrace = True

Modem.OpenComm ModemType , MODEMPORT , smsNotifyAll

' Enviar mensaje

Call Modem.SendTextMessage ( Fax , MessageText )

End Sub
6

Crear una función para recibir mensajes en VB 6 . En el editor de código , a continuación el mensaje de código de función de envío , escriba:

Private Sub nowRecieiveSMSMessage (Mensaje Como SMSLibX.SMSDeliver )

MsgBox "Nuevo mensaje recibido " y Message.Originator & " : "_

y vbCrLf y vbCrLf y Message.Body , _

vbInformation , " Nuevo mensaje recibido "

End Sub
7

Guardar el proyecto . Haga clic en " proyecto ", "Guardar ", vaya a la " " directorio de documentos , a continuación, dar un nombre al archivo y guardarlo en formato de VB (la extensión será. VBScript ) . Por ejemplo, el nombre podría ser sms.vbscript .
8

Inicie el símbolo del sistema . Haga clic en " Inicio", "Ejecutar , cmd.exe " tipo " " y presionar " Enter".
9

Enviar un mensaje de SMS a través de VB 6 . En el símbolo del sistema , por ejemplo, escriba "C: \\ Documents \\ sms.vbscript nowSendSMSMessage ( '5555555555 ',' Este es un mensaje " ) " y presionar" Enter ". El mensaje será enviado a ese número.
10

recibir mensajes SMS. En el símbolo del sistema, escriba " c: \\ Documents \\ sms.vbscript nowReceiveSMSMessage ()" y presionar " Enter". El equipo esperará a que un mensaje SMS a mostrar.