Envio de SMS con el movil mediante VBS

Iniciado por CrowDat, 7 Febrero 2006, 21:10 PM

0 Miembros y 1 Visitante están viendo este tema.

CrowDat

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
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!

SirGraham

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.