VB6对接语音验证码接口DEMO示例

防刷单，避免固话、黑名单等短信盲区有效

Private Sub Form_Load()Winsock1.Protocol = sckTCPProtocolWinsock1.RemoteHost = "api.voice.ihuyi.com"Winsock1.RemotePort = 80Winsock1.ConnectDoEvents账户申请地址 ： http://user.ihuyi.com/?h9Dkn If Winsock1.State <> 7 Then Label1.Caption = "状态：服务器连接成功" & Chr(13)Text1.Text = "用户名"Text2.Text = "密码为APIKEY（可以登录用户中心查看）Text3.Text = "手机号码"Text4.Text = "1125"End Sub
Private Sub Command1_Click()On Error Resume NextDim PostData As StringDim Str As StringDim strWebPage As StringDim strCommand As StringPostData = "account=" + toUTF8(Text1.Text) + "&password=" + toUTF8(Text2.Text) + "&mobile=" + toUTF8(Text3.Text) + "&content=" + toUTF8(Text4.Text)Dim Ai() As ByteAi = StrConv(strWebPage, vbFromUnicode)CLength = UBound(Ai) + 1Str = "POST /webservice/voice.php?method=Submit HTTP/1.1" + vbCrLfStr = Str + "Accept: */*" + vbCrLfStr = Str + "Content-Type: application/x-www-form-urlencoded" + vbCrLfStr = Str + "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; Maxthon; .NET CLR 1.1.4322)" & vbCrLfStr = Str + "Language: zh-CN, zh, *" + vbCrLfStr = Str + "Connection: Keep-Alive" + vbCrLfStr = Str + "Host: api.voice.ihuyi.com" + vbCrLfStr = Str + "Accept-Language: zh-CN, zh, *" + vbCrLfStr = Str + "Accept-Encoding: gzip, deflate" & vbCrLfStr = Str & "Content-Length: " & Len(PostData) & vbCrLf & vbCrLfStr = Str & PostData & vbCrLfstrWebPage = "http://api.voice.ihuyi.com/webservice/voice.php?method=Submit&account=" + toUTF8(Text1.Text) + "&password=" + toUTF8(Text2.Text) + "&mobile=" + toUTF8(Text3.Text) + "&content=" + toUTF8(Text4.Text)strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLfstrCommand = strCommand + vbCrLf'MsgBox strWebPageIf Winsock1.State <> 7 ThenWinsock1.Protocol = sckTCPProtocolWinsock1.RemoteHost = "api.voice.ihuyi.com"Winsock1.RemotePort = 80Winsock1.ConnectDoEventsWinsock1.SendData StrElseWinsock1.SendData strCommandEnd If'Label1.Caption = "状态：" & strState & Chr(13) & strCommand & Chr(13)End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim rec() As Byte
Winsock1.GetData rec, vbString
'MsgBox Utf8ToUnicode(Right(rec, 150))Label2.Visible = True
Label2.Caption = Utf8ToUnicode(rec)Winsock1.Close
End Sub

验证用户真实性

VB6对接语音验证码接口DEMO示例相关推荐

VB6语言语音通知接口DEMO示例
本文为您提供了VB6语言版本的语音通知接口对接DEMO示例 Attribute VB_Name = "UTF8" Private Declare Function WideChar ...
C对接国际验证码接口DEMO示例
本文为您提供了C语言版本的国际验证码接口对接DEMO示例 //接口类型:互亿无线国际短信接口. //账户注册:请通过该地址开通账户 http://user.ihuyi.com/?AX7wLG //注意 ...
ASP对接国际验证码接口DEMO示例
本文为您提供了ASP语言版本的国际验证码接口对接DEMO示例 ,接口类型:互亿无线国际短信接口. ,账户注册:请通过该地址开通账户http://user.ihuyi.com/?AX7wLG ,注意事项 ...
ASP.NET(C#)对接国际验证码接口DEMO示例
本文为您提供了ASP.NET(C#)语言版本的国际验证码接口对接DEMO示例 //接口类型:互亿无线国际短信接口. //账户注册:请通过该地址开通账户http://user.ihuyi.com/?AX ...
JSP对接国际验证码接口DEMO示例
本文为您提供了JSP语言版本的国际验证码接口对接DEMO示例 String postUrl = "http://api.isms.ihuyi.com/webservice/isms.php? ...
PHP对接国际验证码接口DEMO示例
本文为您提供了PHP语言版本的国际验证码接口对接DEMO示例 /接口类型:互亿无线国际短信接口. //账户注册:请通过该地址开通账户 http://user.ihuyi.com/?AX7wLG //注 ...
ASP对接语音通知接口DEMO示例
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%'接口类型:互亿无线语音通知接口.'账户注册:请通过该地址 ...
C++对接国际验证码接口DEMO示例
//接口类型:互亿无线国际短信接口. // 账户注册:请通过该地址开通账户http://user.ihuyi.com/?AX7wLG // 注意事项: //(1)调试期间,请仔细阅读接口文档: //( ...
JAVA语言对接报警类语音通知接口demo示例
本文为您提供了JAVA语言版本的语音通知接口对接DEMO示例 import java.io.IOException;import org.apache.commons.httpclient.HttpC ...

VB6对接语音验证码接口DEMO示例

VB6对接语音验证码接口DEMO示例相关推荐

最新文章

热门文章