主题：XXXXX发送短信

 没有多复杂，直接post发过去即可

 

http://www.foxtable.com/mobilehelp/scr/0159.htm

 

 和生成图片验证码的方式一模一样，只是把生成图片的过程换成了发送短信。

 

 发送短信的方式，在你服务器那里写一段httpclient代码即可。

1、先测试发送短信的代码能否成功

 

2、js代码 var result = sendAjaxText("sendMsg","test.htm","",false);

 

3、你项目的httpReqeust事件

 

    Case "test.htm"
        Select e.PlainText
            Case "sendMsg" 
                '发送短信的代码

                msgbox("发送完毕")
                'e.WriteString(v)
        End Select

代码不需要写到新项目，直接在原来的项目写代码就行了。

 

Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
Dim shoujihao = 13888888888
hc.ContentType = "application/x-www-form-urlencoded"
hc.Content = "apikey=24e3a47f44f34bfb6a296471470808c1&mobile=" & shoujihao & "&text=1540736"
output.show(hc.getData())

 要这样写，注意红色代码的标点符号，必须是中文的。要和你的短信模板匹配

 

'''
Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
Dim shoujihao = 13827126079
Dim text = "【连云港双联网】您的验证码是123456789，是男生女生寻觅爱人的小窝，男生女生均可免费参与哦。"
hc.ContentType = "application/x-www-form-urlencoded"
hc.Content = "apikey=24e3a47f44f34bfb6a296471470808c1&mobile=" & shoujihao & "&text=" & UrlEncode(text)
output.show(hc.getData())

 看30楼，在这个地址，可以查看是什么原因发送不成功。

 

http://www.yunpian.com/dashboard/smsFailure#!/smsFailure

 

 请认认真真看30楼，先测试发送成功短信，好吗？

你发的内容，必须匹配你的模板。标点符号都要匹配，要匹配成中文的

 

【郎窝网】您的验证码是1234。如非本人操作，请忽略本短信

 

http://www.foxtable.com/webhelp/scr/1273.htm

 

 你可以在模板那里，拷贝你发送的信息，进行【匹配】的校验 http://www.yunpian.com/dashboard/domestic/register#!/domestic/register/sign

 

 

 加入msgbox，看进入执行了多少次，如果执行多次，说明你调用了多次。