VFP 给手机发送短信

如何用foxpro给手机发送短信呢？

现在是网络时代，写软件经常需要给客户发送短信。千万要记得，不能使用这种短信接口去干坏事。

一、到短信平台申请一个帐号密码，可以联系微信号“ebongsoft”郑生帮忙开通，给他手机号码他会发送帐号密码给你。好像能免费试用10条，200元起充。

二、把下面的代码复制到prg里，命名为sms.prg（记得要将里面的前三个变量替换成郑生发给你的地址、帐号和密码，有&&注释的那部分）。

FUNCTION sms(pPhone,pContent)

    *******************************************************************
	m.host = "http://***.***.***.***:****/sms/api/" && 替换成自己的
	m.userName = "******"  &&  替换成自己的
	m.password = LOWER(md5string("******"))  &&  替换成自己的 
    *******************************************************************

	m.content1 = ALLTRIM(pContent) 
	m.content = STRCONV(m.content1,9)  
	m.phoneList = ALLTRIM(pPhone)
	m.timestamp =TRANSFORM( tton(datetime()-8*3600))+"000"
	m.sign =LOWER(md5string(m.userName+m.content+m.timestamp+m.password)) 
	TEXT TO m.bodys NOSHOW TEXTMERGE  
	{  	"userName":"<<m.userName>>",  
		"phoneList":["<<m.phoneList>>"],  
		"content":"<<content1>>",  
		"timestamp":<<timestamp>>,  
		"sign":"<<m.sign>>" 
	},  
	ENDTEXT  
	m.path = "sendMessage" 
	m.url = m.host + m.path 
	oXML = Createobject("Microsoft.XMLHTTP") 
	oXML.Open("POST",m.url,.F.) 
	oXML.setRequestHeader('Accept','application/json') 
	oXML.setRequestHeader('Content-Type','application/json;charset=utf-8') 
	oXML.send(m.bodys) 
	cJson = oXML.responseText 
	RETURN cJson  
ENDFUNC

三、如何调用。只需要运行

?sms("对方手机号","发送内容") 

就可以给手机发送短信了，这里发送内容要注意，得打上标签和标签符号【】。

比如：

？sms("13411111111","【ebong软件】您好，账户注册成功！")

假如没有打上标签，会发送失败，标签符号要大写，而且不用用别人的标签，类似【阿里云】，这种是不会发送出去的。