Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Text Messaging (SMS) for VFP 2
- Thread starter LouisC4
- Start date
KoenPiller
Programmer
Louis,
Have no experience with this subject found the following sites for you:
Good luck
Koen
Have no experience with this subject found the following sites for you:
Good luck
Koen
-
1
- #3
Hello LouisC4,
This is SMS via http. I think it can help u
************************************************************
*---------------------
* Author: Bill Too
* Mobile SMS Demo
*---------------------
Clear
Declare INTEGER InternetGoOnline IN wininet STRING lpszURL, INTEGER hwndParent, INTEGER dwReserved
Declare INTEGER GetActiveWindow IN user32
*------------------------------------
lcPhone = "13007320505" && Mobile No.
lcSname = "Bill Too" && Receiver
lcSnoto = "1" && 1:Miss 2:Mr
lcSbody = "How are u:" + chr(13) + chr(10) ;
+ "Mobile SMS System (Testing)" + chr(13) + chr(10) ;
+ " Bill Too" + chr(13) + chr(10) ;
+ " 2005?05?09?"
* --- Parameters ---
HWnd = GetActiveWindow()
lcUrl = " ;
+ "?gsm_no=" + lcPhone ;
+ "&mobile_type=C" ;
+ "&firstname=" + lcSname ;
+ "&title=" + lcSnoto ;
+ "&message=" + lcSbody
* --- Send Message ---
? InternetGoOnline (lcUrl, hwnd, 0)
clea dlls
Return
* &&
** &&
*------------------------------------------------
*!* *!* lcUrl = " ;
*!* + "?gsm_no=" + lcPhone ;
*!* + "&mobile_type=C" ;
*!* + "&firstname=" + lcSname ;
*!* + "&title=" + lcSnoto ;
*!* + "&message=" + lcSbody
This is SMS via http. I think it can help u
************************************************************
*---------------------
* Author: Bill Too
* Mobile SMS Demo
*---------------------
Clear
Declare INTEGER InternetGoOnline IN wininet STRING lpszURL, INTEGER hwndParent, INTEGER dwReserved
Declare INTEGER GetActiveWindow IN user32
*------------------------------------
lcPhone = "13007320505" && Mobile No.
lcSname = "Bill Too" && Receiver
lcSnoto = "1" && 1:Miss 2:Mr
lcSbody = "How are u:" + chr(13) + chr(10) ;
+ "Mobile SMS System (Testing)" + chr(13) + chr(10) ;
+ " Bill Too" + chr(13) + chr(10) ;
+ " 2005?05?09?"
* --- Parameters ---
HWnd = GetActiveWindow()
lcUrl = " ;
+ "?gsm_no=" + lcPhone ;
+ "&mobile_type=C" ;
+ "&firstname=" + lcSname ;
+ "&title=" + lcSnoto ;
+ "&message=" + lcSbody
* --- Send Message ---
? InternetGoOnline (lcUrl, hwnd, 0)
clea dlls
Return
* &&
** &&
*------------------------------------------------
*!* *!* lcUrl = " ;
*!* + "?gsm_no=" + lcPhone ;
*!* + "&mobile_type=C" ;
*!* + "&firstname=" + lcSname ;
*!* + "&title=" + lcSnoto ;
*!* + "&message=" + lcSbody
KoenPiller
Programmer
Hi KcToo,
Interesting posting. Could it be that this is only working in PROC? I cant get it started, maybe that's also because there is very little explication about your code and on the lcUrl I get a page cannot be found. The directs me straight to China. ????
Koen
Interesting posting. Could it be that this is only working in PROC? I cant get it started, maybe that's also because there is very little explication about your code and on the lcUrl I get a page cannot be found. The directs me straight to China. ????
Koen
china website it a free just only working in china. But some ISP provide free SMS services on mobile phone and webpage. It is depends on your ISP.
KoenPiller
Programmer
KcToo,
I hope Louis can do something with your answer, I dont live in China (unfortunately)
Bi bi,
Koen
I hope Louis can do something with your answer, I dont live in China (unfortunately)
Bi bi,
Koen
LouisC4,
Just as an FYI, we just started doing some text messaging at our company. But we don't send messages directly to the recipients. We send a file to a third party vendor and they send the desired message.
The reason is that they have approval and specs from various cell service providers and are able to send the messages.
Since most cell phone providers as of now, totally abhor spam and 'war dialers', they won't let just anyone send a message to just any phone, especially in bulk.
If you are allowed/have permission to send mesages to a certain set of phones, you can basically use an email client to do it.
-Dave Summers-
![[cheers]](/data/assets/smilies/cheers.gif "[cheers] [cheers]")
Even more Fox stuff at:
Just as an FYI, we just started doing some text messaging at our company. But we don't send messages directly to the recipients. We send a file to a third party vendor and they send the desired message.
The reason is that they have approval and specs from various cell service providers and are able to send the messages.
Since most cell phone providers as of now, totally abhor spam and 'war dialers', they won't let just anyone send a message to just any phone, especially in bulk.
If you are allowed/have permission to send mesages to a certain set of phones, you can basically use an email client to do it.
-Dave Summers-
Even more Fox stuff at:
-
1
- #8
Mike Gagnon
Programmer
This link might help as well
Microsoft SMS Sender
Mike Gagnon
If you want to get the best response to a question, please check out FAQ184-2483 first.
KoenPiller
Programmer
Mike,
Nice link, pitty MS developped only for XP and not for W2K.
Koen
Nice link, pitty MS developped only for XP and not for W2K.
Koen
- Status
Similar threads
