VB6语言语音通知接口DEMO示例

本文为您提供了VB6语言版本的语音通知接口对接DEMO示例

Attribute VB_Name = "UTF8"
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Const CP_UTF8 = 65001
Private Const CP_ACP As Long = 0'接口类型：互亿无线语音通知接口。
'账户注册：请通过该地址开通账户 http://user.ihuyi.com/?AX7wLG
'注意事项：
'（1）调试期间，请仔细阅读接口文档；
'（2）请使用APIID（查看APIID请登录用户中心->语音通知->帐户及签名设置->APIID）及 APIkey来调用接口
'（3）该代码仅供接入互亿无线语音通知接口参考使用，客户可根据实际需要自行编写；Public Function toUTF8(szInput)Dim wch, uch, szRetDim xDim nAsc, nAsc2, nAsc3'如果输入参数为空，则退出函数If szInput = "" ThentoUTF8 = szInputExit FunctionEnd If'开始转换For x = 1 To Len(szInput)'利用mid函数分拆GB编码文字wch = Mid(szInput, x, 1)'利用ascW函数返回每一个GB编码文字的Unicode字符代码'注：asc函数返回的是ANSI 字符代码，注意区别nAsc = AscW(wch)If nAsc < 0 Then nAsc = nAsc + 65536If (nAsc And &HFF80) = 0 ThenszRet = szRet & wchElseIf (nAsc And &HF000) = 0 Thenuch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)szRet = szRet & uchElse'GB编码文字的Unicode字符代码在0800 - FFFF之间采用三字节模版uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _Hex(nAsc And &H3F Or &H80)szRet = szRet & uchEnd IfEnd IfNexttoUTF8 = szRettoUTF8 = Replace(toUTF8, Chr(13) + Chr(10), "%0D%0A")toUTF8 = Replace(toUTF8, " ", "%20")toUTF8 = Replace(toUTF8, "+", "%2B")End FunctionPublic Function Utf8ToUnicode(ByRef Utf() As Byte) As StringDim lRet As LongDim lLength As LongDim lBufferSize As LonglLength = UBound(Utf) - LBound(Utf) + 1If lLength <= 0 Then Exit FunctionlBufferSize = lLength * 2Utf8ToUnicode = String$(lBufferSize, Chr(0))lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf(0)), lLength, StrPtr(Utf8ToUnicode), lBufferSize)If lRet <> 0 ThenUtf8ToUnicode = Left(Utf8ToUnicode, lRet)End If
End FunctionPublic Function URLEncode(vstrIn)strReturn = ""Dim iFor i = 1 To Len(vstrIn)ThisChr = Mid(vstrIn, i, 1)If Abs(Asc(ThisChr)) < &HFF ThenstrReturn = strReturn & ThisChrElseinnerCode = Asc(ThisChr)If innerCode < 0 TheninnerCode = innerCode + &H10000End IfHight8 = (innerCode And &HFF00) \ &HFFLow8 = innerCode And &HFFstrReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)End IfNextstrReturn = Replace(strReturn, Chr(32), "%20")strReturn = Replace(strReturn, "+", "%2B")strReturn = Replace(strReturn, " ", "+")strReturn = Replace(strReturn, vbCrLf, "%0D%0A")strReturn = Replace(strReturn, "#", "%23")URLEncode = strReturn
End Function

VB6语言语音通知接口DEMO示例相关推荐

JAVA语言对接报警类语音通知接口demo示例
本文为您提供了JAVA语言版本的语音通知接口对接DEMO示例 import java.io.IOException;import org.apache.commons.httpclient.HttpC ...
ASP对接语音通知接口DEMO示例
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%'接口类型:互亿无线语音通知接口.'账户注册:请通过该地址 ...
VB6对接语音验证码接口DEMO示例
防刷单,避免固话.黑名单等短信盲区有效 Private Sub Form_Load()Winsock1.Protocol = sckTCPProtocolWinsock1.RemoteHost = ...
ASP语音通知接口对接demo
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '接口类型:互亿无线语音通知接口. '账户注册:请通过该 ...
DELPHI对接验证码短信接口DEMO示例
DELPHI短信插件 DELPHI对接验证码短信接口DEMO示例本文为您提供了DELPHI语言版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短 ...
C++对接验证码短信接口DEMO示例
C++对接验证码短信接口DEMO示例本文为您提供了C++版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. // 账户注册:请通过该地址开 ...
VB语音对接验证码短信接口DEMO示例
本文为您提供了VB语言版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. //账户注册:请通过该地址开通账户 http://user.ihu ...
易语言webservice接口_易语言语音通知webservice接口
JAVA代码示例 import java.io.IOException; import org.apache.commons.httpclient.HttpClient; import org.apa ...
JAVA对接验证码短信接口DEMO示例
本文为您提供了JAVA语言版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. // 账户注册:请通过该地址开通账户 http://user. ...

VB6语言语音通知接口DEMO示例

VB6语言语音通知接口DEMO示例相关推荐

最新文章

热门文章