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")
重要提示:用接口发送验证码的程序员注意,近期短信验证码轰炸软件泛滥,请在发送验证码的时候,加上一个图形校验码验证,防止机器人读取狂发验证码!!!不明事宜请联系客服咨询。发送手机验证码请做好以下几点防范:
参数变量 | 是否必填 | 说明 |
---|---|---|
Gbk编码Url | 是 | http://gbk.api.smschinese.cn/ |
Utf-8编码Url | 是 | http://utf8.api.smschinese.cn/ |
Https接口Url | 是 | https://utf8api.smschinese.cn/ |
Uid | 是 | 本站用户名(无本站用户名请先注册,不是手机号)[免费注册] |
Key | 是 | 接口短信密钥(可到平台修改接口秘钥)[立刻修改] 如需要加密参数,请把Key变量名改成KeyMD5, KeyMD5=接口秘钥32位MD5加密,大写。 |
smsMob | 是 | 目的手机号码(多个手机号请用半角逗号隔开) 如:13888888886,13888888887,1388888888 最多100个手机 |
smsText | 是 | 短信内容,最多支持500个字,普通短信70个字/条,长短信64个字/条计费 提示:HTTP调用URL接口时, 变量请先转URL编码后再提交 |
短信发送后返回值 | 说 明 |
---|---|
大于0 | 提交成功 短信发送数量 |
-1 | 没有该用户账户 |
-2 | 接口密钥不正确 [查看密钥] 不是账户登陆密码 |
-21 | MD5接口密钥加密不正确 |
-3 | 短信数量不足 |
-11 | 该用户被禁用 |
-14 | 短信内容出现非法字符 |
-4 | 手机号格式不正确 |
-41 | 手机号码为空 |
-42 | 短信内容为空 |
-51 | 短信签名格式不正确 接口签名格式为:【签名内容】 |
-52 | 短信签名太长 建议签名10个字符以内 |
-6 | IP限制 |
沪ICP备2021011364号-1 Copyright © 2006-2024 webchinese.cn Inc. All Rights Reserved 网建 版权所有 |