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

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Comunicaciones
| |-+  Dispositivos Móviles (PDA's, Smartphones, Tablets)
| | |-+  Hacking Mobile
| | | |-+  Envio de SMS con el movil mediante VBS
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Envio de SMS con el movil mediante VBS  (Leído 4,446 veces)
CrowDat

Desconectado Desconectado

Mensajes: 22


Ver Perfil
Envio de SMS con el movil mediante VBS
« en: 7 Febrero 2006, 21:10 pm »

Buenas,
estuve buscando información por internet y no habia ningun texto que explicara TAL CUAL como enviar un SMS mediante VBS a través del movil estando conectado al PC, sea por USB o Bluetooth (solo hay que cambiar el puerto COM). Asi que os dejo a continuación el codigo, ocupa poco, pero funciona totalmente.

Se ejecuta desde linea de comando, necesita 2 argumentos a pasar, el numero de telefono, y el mensaje a enviar.

sendSMS.vbs
Código:
Option Explicit
Dim PhoneNum, Message, MSComm1, i

Set MSComm1 = CreateObject("MSCOMMLib.MSComm")
MsComm1.commport = 4
MsComm1.settings = "9600,N,8,1"
MsComm1.InputLen = 1024
MsComm1.RThreshold = 0
MsComm1.RThreshold = 0
Mscomm1.PortOpen = True

PhoneNum = WScript.Arguments.Item(0)

For i = 1 to wscript.Arguments.count - 1
 Message = Message & " " & WScript.Arguments.Item(i)
Next

Mscomm1.Output="AT+CMGF=1" & vbcrlf
MSComm1.Output = "AT+CMGS= " & Chr(34) & PhoneNum & Chr(34) & vbcrlf
Mscomm1.Output=Message & chr(26) & vbcrlf
MSComm1.PortOpen = False


Saludos!


En línea

SirGraham


Desconectado Desconectado

Mensajes: 492



Ver Perfil WWW
Re: Envio de SMS con el movil mediante VBS
« Respuesta #1 en: 8 Febrero 2006, 00:27 am »

Hola,

Ese codigo vale si el telefono soporta modo texto en el comando de envio. Si no es asi y solo admite PDU no te funcionara...

Como comentario...

Saludos,
Sir Graham.


En línea

   
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Así funciona el envío de invitaciones a grupos de WhatsApp mediante enlaces ...
Noticias
wolfbcn 0 1,191 Último mensaje 27 Septiembre 2016, 14:38 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines