新用户注册之验证码短信 语音解决方案

新用户注册场景解决方案

在用户注册验证手机号环节，用户可能会遇到以下两个主要问题：

产生原因

因为新用户注册页面暴露在公开的网络环境中，任何人都可以调用该功能；部分违规软件会利用这一特点，会模拟人工大量获取短信验证码；

不利后果

因为软件可以高并发循环请求短信，所以会导致如下一些不利后果：

贵公司的的短信被大量恶意消耗；

因为短信是以贵公司名义发出的，所以会对贵公司的品牌造成一定的负面影响；

被骚扰的用户可能会进行投诉，会对贵公司的短信正常发送、短信通道安全稳定造成一定影响。

我们的方案

除了在新用户注册页面做好必要防护之外，互亿无线云通信平台也提供了如下一系列功能，帮助您降低短信验证码接口被刷的风险：

异常发送拦截：实时分析接口提交的每条短信的发送特征，如遇异常立即执行实时拦截，为您节约大量短信成本。

最大发送量设置：根据业务实际情况，设置账户每日最大短信发送量，达到设置的阈值后，系统暂停短信发送，并给管理员推送短信通知。

每号码每日最大发送量：可对单一手机号码的最大日发送量进行限制。

产生原因

因用户退订、投诉、运营商通道故障、通道拥堵、用户手机问题等因素，导致一部分客户无法收到验证码短信，从而影响贵公司的推广转化。

不利后果

新注册用户收不到验证码短信，会产生如下影响：

因用户收不到注册验证短信导致客户流失；

部分收不到短信的用户，会向公司客服反馈，增加售后工作压力；

对公司品牌的认可度降低。

我们的方案

为了最大限度的提升验证码短信的到达率，互亿无线验证码短信接口还提供如下增值服务：

失败自动补发：实时侦测短信送达状态，如遇失败，系统实时自动使用另一条短信通道进行补发；

异常自动补发：针对某些特殊情况，如遇客户未在10秒内（时间可设置）收到注册验证短信，系统会自动调用另外一条短信通道重发一条；

语音自动补呼：可设置用户在第三次点击获取验证码短信按钮时，系统以电话语音的方式给客户播报验证码数字。

代码示例：

VERSION 5.00账户注册地址：/?9vXc7Begin VB.Form Form1 Caption = "Form1"ClientHeight = 9285ClientLeft= 120ClientTop = 465ClientWidth= 18105LinkTopic = "Form1"MaxButton = 0 'FalseScaleHeight= 9285ScaleWidth= 18105StartUpPosition = 3 '窗口缺省Begin mandButton 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 mandButton Command3 Caption = "语音通知"Height= 495Left = 2160TabIndex = 2Top = 8520Width = 1335EndBegin mandButton 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 = 735EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim HttpClient As ObjectDim rndstrPrivate Declare Function timeGetTime Lib "winmm.dll" () As LongSub Send(TypeB As Boolean)Dim account$, password$, url$, postData$If TypeB Thenurl = "/webservice/sms.php?method=Submit" '这个是短信地址account = "test"password = "test"Elseurl = "http://api./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 TrueEnd SubPrivate Sub Command3_Click()Send FalseEnd 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_ClickEnd SubPrivate Sub Command2_Click()If Timer1.Enabled = False ThenTimer1.Enabled = TrueCommand2.Caption = "自动提交（关）"ElseIf Timer1.Enabled = True ThenTimer1.Enabled = FalseCommand2.Caption = "自动提交（开）"End IfEnd 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 = szRetEnd 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 = szRetEnd Function