Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim sjh As String = e.postvalues("sjh")
Dim yzm As String = Rand.Next(2001,9999) '生成200到300之间的随机整数
Dim product As String = "Dysmsapi" '无需更改,官方名称
Dim domain As String = "dysmsapi.aliyuncs.com" '无需更改,官方名称
Dim accessId As String = "*************" '更换为您的AccessKey
Dim accessSecret As String = "************" '更换为您的AccessSecret
Dim regionIdForPop As String = "cn-hangzhou" '无需更改,官方名称
Dim profile As Aliyun.Acs.Core.Profile.IClientProfile = Aliyun.Acs.Core.Profile.DefaultProfile.GetProfile(regionIdForPop, accessId, accessSecret)
Aliyun.Acs.Core.Profile.DefaultProfile.AddEndpoint(regionIdForPop, regionIdForPop, product, domain)
Dim acsClient As Aliyun.Acs.Core.IAcsClient = New Aliyun.Acs.Core.DefaultAcsClient (profile)
Dim request As Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest = New Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest()
Dim response As Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsResponse = Nothing
Try
request.PhoneNumbers = sjh
request.SignName = "逸飞书画学校" '更换为您备案的短信签名
request.TemplateCode = "******" '更换您备案的短信模板
request.TemplateParam = "{""code"":""" & yzm & """}" ' '如果您有可 替换的标签,可以设置设置json,也可以注释掉
response = acsClient.GetAcsResponse(request)
e.WriteString(yzm) '传递验证码参数?
Catch ex As Exception
e.WriteString("短信代码有问题,请联系技术员")
End Try
目的,就是把生成的验证码让客户端手机接收,以cookice方式存储。