SMS Short Messaging with GSM Modems

Keywords: 	 SMS Short Messaging with GSM Modems.txt

---

The following script can send SMS, using a GSM modem connected on a serial port. I tested it with a Siemens M20, black box GSM modem, and a Nokia 6110 GSM phone connnected on COM1.

AddExtender("wwser34i.dll")
MyModemIsOn = "COM1"
CaptureFile = "C:\temp\modem.html"
Ctrl_Z      = Num2Char(26)


pCaptureOn(CaptureFile,0)

debug(@on)

port=pComOpen(MyModemIsOn,0,19200,"8N1","XONXON")


pModemCommand(port, `AT+CMGF=1`)         ; set sms mode text

pPutline(port, `AT+CMGS="0600000000"`)   ; set tel number 

pPutline(port, `l1 = test de message `)  ; as many lines as needed
pPutline(port, `l2 = test de message `)
pPutline(port, ctrl_z)                   ; end message

pComClose(port,0)
pCaptureOff()


exit

Web pages with all the AT command accepted by Nokia GSM with modem :

http://www.tele-servizi.com/nokiasecrets/nokia/gsm_at_commands_en.html

More about M20 :

http://www.siemens-mobile.de/btob/CDA/presentation/ap_btob_cda_presentation_contentproduct/0,2953,49_223062,FF.html