Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sending sms text to mobile phones
Message
From
07/02/2002 06:16:36
Hisham Serry
Al-Bahar United Company
Kuwait, Kuwait
 
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00613489
Message ID:
00616487
Views:
25
well, it is very easy, but you need to attach gsm modem or 9210 or 9110 mible and swich the fax modem on with computer.

use the ocx file for Ms. communication control and use at commands in your form
sampel. :
thisform.modemset.commport=thisform.text4.value
&& set the com port for the modem, 1 or 2 then do the following:

thisform.modemset.Output="at+csca="+alltrim(str(thisform.text3.value))+chr(13)&& to set message center number.

thisform.modemset.Output="at+cmgf=1"+chr(13)
&& set the modem to text mode

thisform.modemset.Output= 'AT+CMGS="' +alltrim(thisform.text2.value)+ '"' + CHR(13)
&& send the number to modem

thisform.modemset.Output=" "+alltrim(thisform.text1.value)+chr(26)
&& send the message to the modem
&&you have to use chr(13) as in the exampl to make the modem respond.
&&fater you type your message you issue ctrl Z by chr(26) in this case
the message will go if the computer is attached with GSM modem.

Note: Each time you need to send all this statement it work you can put in loop so you can send broadcasting. :)

Best Reagrds
Hisham Serry
Best Regards,

Hisham Serry
IT Management
Previous
Reply
Map
View

Click here to load this message in the networking platform