打开自己设计登录窗口
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**%3A
12345%2C**minute**%3A5"
[此贴子已经被作者于2024/6/10 21:49:24编辑过]