利用飞信API实现公司内部发送短信可以省下不少钱.网上也有不少飞信API,但感觉不可靠,
还是自己写了一个简单的API.调用地址如下,不会记录飞信密码.
喜欢的朋友可以试试,结合AU3又写了个UDF.这下发短信方便很多了.
http://lab.l4ever.cn/fetion/api/?from=发送手机&pw=飞信密码&to=接收号码&msg=短信内容
传递的参数为UTF-8编码,注意调用API的时候注意地址,全部都小写,Linux服务器是区分大小写的,
返回参数有两段,用半角分号分割!返回的内容分别为:
发送状态;正常则返回接收号码|失败则返回错误原因
以下为Au3应用示范,保存为FetionSMS.au3,调用即可.
查看源代码打印帮助
01.; 本UDF用于利用飞信API发送免费短信,接收号码必须为发送号码的飞信好友放可发送
02.; UDF作者:L4EVER QQ:425145 http://L4EVER.cn
03.; 使用方法:FetionSMS("发送手机","飞信密码","接收手机","发送内容","返回值")
04.;===============================
05.; 使用演示:
06.; #include "FetionSMS.au3"
07.; msgbox(32,"飞信短信",FetionSMS("15999999999","l4ever.cn","15999999999","短信测试SMSTEST"))
08.;===============================
09.Func FetionSMS($from,$pw,$to,$msg)
10.filedelete (@TempDir&"\SmsResult.Dat")
11.
$GetSMSResult = InetGet("http://lab.l4ever.cn/fetion/api/?from="&$from&"&pw="&$pw&"&to="&$to&"&msg="&$msg,@TempDir&"\SmsResult.Dat",1,0)
12.if $GetSMSResult <> "0" Then
13.
$smsresult = FileReadLine(@TempDir&"\SmsResult.Dat",1)
14.
$strsmsresult = StringSplit ($smsresult,";")
15.
if $strsmsresult[0] <> "2" or @error ="1" Then
16.
return("飞信短信 - 发送状态未知,获取的数据出错")
17.
Else
18.
Select
19.
case $strsmsresult[1] = "SendOK"
20.
return("发送成功")
21.
case Else
22. &nb
