登录短信验证怎样实现 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

登录短信验证怎样实现

客户端程序？还是web网页？

打开自己设计登录窗口

1、输入手机号，查询用户表是否已经关联了手机号

2、生成一个随机值（验证码），保存到全局变量或者一个内部表中

3、调用接口发送这个验证码给上面手机号：http://www.foxtable.com/webhelp/topics/3390.htm

4、用户输入验证码

5、核对用户录入的验证码和全局变量保存的验证码

6、验证码一致则成功登录，否则提示验证码错误

怎样做那种到时1分钟效果，一般短信验证码发出后，1分钟后重新获取的

开启窗口计时器，到计时事件做个倒计时即可，必如

发送按钮点击事件

e.sender.enabled = false ‘禁止按钮使用

....发送短信的代码....

vars("计时") = 60

e.Form.TimerEnabled = True

计时事件

if vars("计时") > 0 then

e.Form.Controls("发送按钮").text = vars("计时") & "秒"

vars("计时") = vars("计时") - 1

else

e.Form.Controls("发送按钮").text = "再次发送"

e.Form.Controls("发送按钮").enabled = true

e.Form.TimerEnabled = false

end if

以下内容为程序代码:

1 Dim s As String = "mobile=13800138000&templateId=908e94ccf08b4476ba6c876d13f084ad&smsSignId=2e65b1bb3d054466b82f0c9d125465e2?m=**code**%3A12345%2C**minute**%3A5"
2
3 Dim hc As New HttpClient("http://gyytz.market.alicloudapi.com/sms/smsSend?" & s)
4
5 hc.Headers.Add("Authorization","APPCODE 7858a126750949e4a36371580f420413")
6
7 hc.Method = "POST"
8
9 Dim ret As String = hc.GetData
10
11 Output.Show(ret)
12

这一段也没说明这个验证码需要插在哪里呀？

蓝大大

[此贴子已经被作者于2024/6/10 19:39:37编辑过]

红字就是

Dim s As String = "mobile=13800138000&templateId=908e94ccf08b4476ba6c876d13f084ad&smsSignId=2e65b1bb3d054466b82f0c9d125465e2?m=**code**%3A12345%2C**minute**%3A5"

[此贴子已经被作者于2024/6/10 21:49:24编辑过]

主题：登录短信验证怎样实现