VB语音对接验证码短信接口DEMO示例

本文为您提供了VB语言版本的验证码短信接口对接DEMO示例
//接口类型：互亿无线触发短信接口，支持发送验证码短信、订单通知短信等。
//账户注册：请通过该地址开通账户 http://user.ihuyi.com/?DKimmu
//注意事项：
//（1）调试期间，请使用用系统默认的短信内容：您的验证码是：【变量】。请不要把验证码泄露给其他人。
//（2）请使用用户名及 APIkey来调用接口，APIkey在会员中心可以获取；
//（3）该代码仅供接入互亿无线短信接口参考使用，客户可根据实际需要自行编写；

VERSION 5.00
Begin VB.Form Form1 Caption         =   "Form1"ClientHeight    =   9285ClientLeft      =   120ClientTop       =   465ClientWidth     =   18105LinkTopic       =   "Form1"MaxButton       =   0   'FalseScaleHeight     =   9285ScaleWidth      =   18105StartUpPosition =   3  '窗口缺省Begin VB.CommandButton Command2 Caption         =   "自动提交"Height          =   495Left            =   3840TabIndex        =   7Top             =   8520Width           =   1575EndBegin VB.Timer Timer1 Enabled         =   0   'FalseInterval        =   1000Left            =   2640Top             =   240EndBegin VB.TextBox content Height          =   375Left            =   1080TabIndex        =   6Top             =   840Width           =   16575EndBegin VB.TextBox mobile Height          =   375Left            =   1080TabIndex        =   4Top             =   240Width           =   1215EndBegin VB.CommandButton Command3 Caption         =   "语音通知"Height          =   495Left            =   2160TabIndex        =   2Top             =   8520Width           =   1335EndBegin VB.CommandButton Command1 Caption         =   "发送短信"Height          =   495Left            =   480TabIndex        =   1Top             =   8520Width           =   1455EndBegin VB.TextBox Text2 BeginProperty Font Name            =   "宋体"Size            =   9.75Charset         =   0Weight          =   400Underline       =   0   'FalseItalic          =   0   'FalseStrikethrough   =   0   'FalseEndPropertyForeColor       =   &H80000001&Height          =   6615Left            =   480Locked          =   -1  'TrueMultiLine       =   -1  'TrueScrollBars      =   3  'BothTabIndex        =   0Top             =   1440Width           =   17295EndBegin VB.Label Label2 Caption         =   "内容"Height          =   255Left            =   480TabIndex        =   5Top             =   960Width           =   855EndBegin VB.Label Label1 Caption         =   "手机"Height          =   255Left            =   480TabIndex        =   3Top             =   360Width           =   735End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim HttpClient As Object
Dim rndstr
Private Declare Function timeGetTime Lib "winmm.dll" () As LongSub Send(TypeB As Boolean)Dim account$, password$, url$, postData$If TypeB Thenurl = "http://106.ihuyi.com/webservice/sms.php?method=Submit"           '这个是短信地址account = "test"password = "test"Elseurl = "http://api.vm.ihuyi.com/webservice/voice.php?method=Submit"      '这个是电话的地址account = "test"password = "test"End IfpostData = "account=" & account & "&password=" & password & "&mobile=" & mobile & "&content=" & contentSet HttpClient = CreateObject("Microsoft.XMLHTTP")HttpClient.open "POST", url, FalseHttpClient.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"HttpClient.setRequestHeader "Content-Length", Len(postData)HttpClient.Send UTF8EncodeURI(postData)Do While HttpClient.readyState <> 4DoEventsLoopText2.Text = Text2.Text & vbCrLf & Time$ & " " & Right(timeGetTime, 3) & " " & HttpClient.responseTextEnd SubPrivate Sub Command1_Click()Send True
End SubPrivate Sub Command3_Click()Send False
End SubPrivate Sub Form_Load()rndstr = 1213412content.Text = "您的验证码是：" & rndstr & "。请不要把验证码泄露给其他人。"
End SubPrivate Sub Timer1_Timer()Dim rndstr2rndstr2 = Int(Rnd * 9000)content.Text = Replace(content.Text, rndstr, rndstr2)rndstr = rndstr2Text2.Text = Text2.Text & vbCrLf & Time$ & " " & Right(timeGetTime, 3)Command1_ClickCommand3_Click
End SubPrivate Sub Command2_Click()If Timer1.Enabled = False ThenTimer1.Enabled = TrueCommand2.Caption = "自动提交（关）"ElseIf Timer1.Enabled = True ThenTimer1.Enabled = FalseCommand2.Caption = "自动提交（开）"End If
End SubFunction UTF8EncodeURI(szInput)Dim wch, uch, szRetDim xDim nAsc, nAsc2, nAsc3If szInput = "" ThenUTF8EncodeURI = szInputExit FunctionEnd IfFor x = 1 To Len(szInput)wch = Mid(szInput, x, 1)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 & uchElseuch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _Hex(nAsc And &H3F Or &H80)szRet = szRet & uchEnd IfEnd IfNextUTF8EncodeURI = szRet
End FunctionFunction GBKEncodeURI(szInput)Dim i As LongDim x() As ByteDim szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRet
End Function

VB语音对接验证码短信接口DEMO示例相关推荐

C++对接验证码短信接口DEMO示例
C++对接验证码短信接口DEMO示例本文为您提供了C++版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. // 账户注册:请通过该地址开 ...
DELPHI对接验证码短信接口DEMO示例
DELPHI短信插件 DELPHI对接验证码短信接口DEMO示例本文为您提供了DELPHI语言版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短 ...
JAVA怎么给手机发短信对接验证码短信接口DEMO示例
发现一个超简单验证码短信接口对接DEMO示例步骤 1.注册互亿无线账号 2.查找APIID和APIKEY 3.代码的书写注册互亿无线账号网站: http://user.ihuyi.com ...
JAVA对接验证码短信接口DEMO示例
本文为您提供了JAVA语言版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. // 账户注册:请通过该地址开通账户 http://user. ...
NODE.JS怎么给手机发短信对接验证码短信接口DEMO示例
发现一个超简单验证码短信接口对接DEMO示例步骤 1.注册互亿无线账号 2.查找APIID和APIKEY 3.代码的书写注册互亿无线账号网站: http://user.ihuyi.com ...
JSP怎么给手机发短信对接验证码短信接口DEMO示例
发现一个超简单验证码短信接口对接DEMO示例步骤 1.注册互亿无线账号 2.查找APIID和APIKEY 3.代码的书写注册互亿无线账号网站: http://user.ihuyi.com ...
ASP对接验证码短信接口DEMO示例说明
简单实用的ASP短信接口demo <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '接口类型:互亿无线触 ...
PHP对接验证码短信接口DEMO示例
PHP 互亿无线发送消息我们做登录注册的时候难免要给用户发送验证码,今天来给大家介绍互亿无线的消息发送,大部分代码是参考官方demo的,废话不多说,直接上代码 //接口类型:互亿无线触发短信接口,支 ...
GO对接验证码短信接口DEMO示例
//接口类型:触发短信接口,支持发送验证码短信.订单通知短信等. // 账户注册:请通过该地址开通账户http://user.ihuyi.com/?jmzFP2 // 注意事项: //(1)调试期间, ...

VB语音对接验证码短信接口DEMO示例

VB语音对接验证码短信接口DEMO示例相关推荐

最新文章

热门文章