怎么用VB对接三方验证码短信接口

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

VERSION 5.00
Begin VB.Form Form1
Caption = “Form1”
ClientHeight = 9285
ClientLeft = 120
ClientTop = 465
ClientWidth = 18105
LinkTopic = “Form1”
MaxButton = 0 'False
ScaleHeight = 9285
ScaleWidth = 18105
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = “自动提交”
Height = 495
Left = 3840
TabIndex = 7
Top = 8520
Width = 1575
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 2640
Top = 240
End
Begin VB.TextBox content
Height = 375
Left = 1080
TabIndex = 6
Top = 840
Width = 16575
End
Begin VB.TextBox mobile
Height = 375
Left = 1080
TabIndex = 4
Top = 240
Width = 1215
End
Begin VB.CommandButton Command3
Caption = “语音通知”
Height = 495
Left = 2160
TabIndex = 2
Top = 8520
Width = 1335
End
Begin VB.CommandButton Command1
Caption = “发送短信”
Height = 495
Left = 480
TabIndex = 1
Top = 8520
Width = 1455
End
Begin VB.TextBox Text2
BeginProperty Font
Name = “宋体”
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000001&
Height = 6615
Left = 480
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 0
Top = 1440
Width = 17295
End
Begin VB.Label Label2
Caption = “内容”
Height = 255
Left = 480
TabIndex = 5
Top = 960
Width = 855
End
Begin VB.Label Label1
Caption = “手机”
Height = 255
Left = 480
TabIndex = 3
Top = 360
Width = 735
End
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 Long

Sub Send(TypeB As Boolean)
Dim account,password, password,password, url,postData, postData,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, False
HttpClient.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
HttpClient.setRequestHeader "Content-Length", Len(postData)HttpClient.Send UTF8EncodeURI(postData)Do While HttpClient.readyState <> 4DoEvents
LoopText2.Text = Text2.Text & vbCrLf & Time$ & " " & Right(timeGetTime, 3) & " " & HttpClient.responseText

End Sub

Private Sub Command1_Click()
Send True
End Sub

Private Sub Command3_Click()
Send False
End Sub

Private Sub Form_Load()
rndstr = 1213412
content.Text = “您的验证码是：” & rndstr & “。请不要把验证码泄露给其他人。”
End Sub

Private Sub Timer1_Timer()
Dim rndstr2
rndstr2 = Int(Rnd * 9000)
content.Text = Replace(content.Text, rndstr, rndstr2)
rndstr = rndstr2
Text2.Text = Text2.Text & vbCrLf & Time$ & " " & Right(timeGetTime, 3)
Command1_Click
Command3_Click
End Sub

Private Sub Command2_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Command2.Caption = “自动提交（关）”
ElseIf Timer1.Enabled = True Then
Timer1.Enabled = False
Command2.Caption = “自动提交（开）”
End If
End Sub

Function UTF8EncodeURI(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
If szInput = “” Then
UTF8EncodeURI = szInput
Exit Function
End If
For x = 1 To Len(szInput)
wch = Mid(szInput, x, 1)
nAsc = AscW(wch)
If nAsc < 0 Then nAsc = nAsc + 65536
If (nAsc And &HFF80) = 0 Then
szRet = szRet & wch
Else
If (nAsc And &HF000) = 0 Then
uch = “%” & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
Else
uch = “%” & Hex((nAsc \ 2 ^ 12) Or &HE0) & “%” & _
Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & “%” & _
Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
End If
End If
Next
UTF8EncodeURI = szRet
End Function

Function GBKEncodeURI(szInput)
Dim i As Long
Dim x() As Byte
Dim szRet As String
szRet = “”
x = StrConv(szInput, vbFromUnicode)
For i = LBound(x) To UBound(x)
szRet = szRet & “%” & Hex(x(i))
Next
GBKEncodeURI = szRet
End Function

怎么用VB对接三方验证码短信接口相关推荐

VB语言如何对接三方验证码短信接口
VB对接验证码短信接口DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. // 账户注册:请通过该地址开通账户 http://user.ihuyi.com/?DKi ...
易语言对接第三方验证码短信接口demo
本文为您提供了易语言版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. //账户注册:请通过该地址开通账户 http://user.ihuy ...
如何用ASP语言对接第三方验证码短信接口？
ASP对接验证码短信接口DEMO示例 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '接口类型:互亿无 ...
VB语音对接验证码短信接口DEMO示例
本文为您提供了VB语言版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. //账户注册:请通过该地址开通账户 http://user.ihu ...
C++如何对接验证码短信接口
以下为您提供C++版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. // 账户注册:请通过该地址开通账户 http://user.ihuy ...
JAVA怎么给手机发短信对接验证码短信接口DEMO示例
发现一个超简单验证码短信接口对接DEMO示例步骤 1.注册互亿无线账号 2.查找APIID和APIKEY 3.代码的书写注册互亿无线账号网站: http://user.ihuyi.com ...
JAVA对接验证码短信接口DEMO示例
本文为您提供了JAVA语言版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. // 账户注册:请通过该地址开通账户 http://user. ...
JAVA验证码短信接口对接demo示例
JAVA语言版本的验证码短信接口对接DEMO示例说明 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. // 账户注册:请通过该地址开通账户 http://user.ihuyi ...
C++对接验证码短信接口DEMO示例
C++对接验证码短信接口DEMO示例本文为您提供了C++版本的验证码短信接口对接DEMO示例 //接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. // 账户注册:请通过该地址开 ...

怎么用VB对接三方验证码短信接口

怎么用VB对接三方验证码短信接口相关推荐

最新文章

热门文章