VB短信接口API示例

Public Function GetCode(CodeBase, Url) 
    Dim xmlHTTP1
    Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
    xmlHTTP1.Open "get", Url, True
    xmlHTTP1.send
    While xmlHTTP1.ReadyState <> 4
    DoEvents
    Wend
    GetCode = xmlHTTP1.ResponseBody
    If CStr(GetCode) <> "" Then GetCode = BytesToBstr(GetCode, CodeBase)
    Set ObjXML = Nothing
    MsgBox "finish"
End Function
    
Public Function BytesToBstr(strBody, CodeBase)
    Dim ObjStream
    Set ObjStream = CreateObject("Adodb.Stream")
    With ObjStream
    .Type = 1
    .Mode = 3
    .Open
    .write strBody
    .Position = 0
    .Type = 2
    .Charset = CodeBase
    BytesToBstr = .ReadText
    .Close
    End With
    Set ObjStream = Nothing
End Function

'代码使用：在窗体代码相应位置写如下代码
'第一个参数是设置编码方式(GB2312或UTF-8)，第二个参数是接口地址.
GetCode("UTF-8", "http://utf8.api.smschinese.cn/?Uid=本站用户名&Key=接口短信密钥&smsMob=手机号码&smsText=验证码:8888")

网建SMS短信通API接口接入流程

• 第一步，注册成为 www.smschinese.com.cn 网建短信平台用户
• 第二步，设置短信签名，获取短信接口短信密钥KEY
• 第三步，下载SDK并集成网建短信接口。

网建SMS短信通API接口集成注意事项

重要提示:用接口发送验证码的程序员注意，近期短信验证码轰炸软件泛滥，请在发送验证码的时候，加上一个图形校验码验证，防止机器人读取狂发验证码！！！不明事宜请联系客服咨询。发送手机验证码请做好以下几点防范：

• 发送验证码1分钟只能点击发送1次；
• 相同IP手机号码1天最多提交20次；
• 验证码短信单个手机号码30分钟最多提交10次；
• 在提交页面加入图形校验码，防止机器人恶意发送；
• 在发送验证码接口程序中，判断图形校验码输入是否正确；
• 新用户用接口测试验证码时，请勿输入：测试等无关内容信息，请直接输入：验证码:xxxxxx，发送。
• 接口发送触发短信时，您可以把短信内容提供给客服绑定短信模板，绑定后24小时即时发送。未绑定模板的短信21点以后提交，隔天才能收到。

网建SMS短信通API接口地址

• GBK编码发送接口地址：
  http://gbk.api.smschinese.cn/?Uid=本站用户名&Key=接口短信密钥&smsMob=手机号码&smsText=验证码:8888
• UTF-8编码发送接口地址：
  http://utf8.api.smschinese.cn/?Uid=本站用户名&Key=接口短信密钥&smsMob=手机号码&smsText=验证码:8888
• https接口UTF-8编码发送地址：
  https://utf8api.smschinese.cn/?Uid=本站用户名&Key=接口短信密钥&smsMob=手机号码&smsText=验证码:8888
• 获取短信数量接口地址(UTF8)：
  http://www.smschinese.cn/web_api/SMS/?Action=SMS_Num&Uid=本站用户名&Key=接口短信密钥
• 获取短信数量接口地址(GBK)：
  http://www.smschinese.cn/web_api/SMS/GBK/?Action=SMS_Num&Uid=本站用户名&Key=接口短信密钥
• 推送方式：GET 或 POST

网建SMS短信通API变量说明

网建SMS短信通API变量说明