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 網建 版權所有 |