Hi,
Does anyone has fivewin sample to send sms via gsm modem in notebook/pc(connected with phone sim card) ?
Regards
Hoe
send sms via modem (with phone sim card)
Hi tnhoe
You have two ways
1-Develop a small aplication/service in Microsoft SMS SDK to use in your aplication.
2-Using Microsoft SMS Sender 1.0 tool. Is a free small aplication for send SMS. You can download at SOFT32.com
Or search on Google with sms api for more.
You have two ways
1-Develop a small aplication/service in Microsoft SMS SDK to use in your aplication.
2-Using Microsoft SMS Sender 1.0 tool. Is a free small aplication for send SMS. You can download at SOFT32.com
Or search on Google with sms api for more.
==> 1-Develop a small aplication/service in Microsoft SMS SDK
Will try it.
==> 2-Using Microsoft SMS Sender 1.0 tool
Already tried. I call it from Fivewin nCode=Winexec() and a few problems found :-
- it always return same nCode value whether success or fail
- it hangs when sending more than 5 SMSs from app
Will try it.
==> 2-Using Microsoft SMS Sender 1.0 tool
Already tried. I call it from Fivewin nCode=Winexec() and a few problems found :-
- it always return same nCode value whether success or fail
- it hangs when sending more than 5 SMSs from app
SMS FIVEWIN
These people sell an aplication that permits sending sms with a batch file.
http://www.intellisoftware.co.uk
I Fwrite from FW and Run :
[SENDSMS 637777888 Rec:PRUEBA SL /Dir:ABADESA, Nº 12 /Ciudad:MADRID /Hora:19:15] to send an SMS
************************************************
Function MakeSendSms(cSend,cTel)
Local oText
Local cText:='SENDSMS '+cTel+ ' "'+cSend+'"'
IF FILE("PESSEND.BAT")
ERASE PESSEND.BAT
ENDIF
oText:= TTxtFile():New("PESSEND.BAT" )
if oText:Open()
oText :Add(cText)
oText :Close()
endif
IF FILE("PESSEND.BAT")
WAITRUN("PESSEND.BAT",2)
ENDIF
RETURN NIL
http://www.intellisoftware.co.uk
I Fwrite from FW and Run :
[SENDSMS 637777888 Rec:PRUEBA SL /Dir:ABADESA, Nº 12 /Ciudad:MADRID /Hora:19:15] to send an SMS
************************************************
Function MakeSendSms(cSend,cTel)
Local oText
Local cText:='SENDSMS '+cTel+ ' "'+cSend+'"'
IF FILE("PESSEND.BAT")
ERASE PESSEND.BAT
ENDIF
oText:= TTxtFile():New("PESSEND.BAT" )
if oText:Open()
oText :Add(cText)
oText :Close()
endif
IF FILE("PESSEND.BAT")
WAITRUN("PESSEND.BAT",2)
ENDIF
RETURN NIL