大家好，我是公众号3分钟学堂的郭立员~
这期我们来做个邮箱验证功能，就是脚本激活的时候会往指定邮箱发送验证码，用户通过邮箱得到验证码，填入到脚本界面激活脚本。
先来看看效果展示，如下图所示：
这个脚本主要用到以下几个功能：
①界面内容的修改
②文本的读写
③发送邮件功能
基本上就是这些命令，做脚本的时候发现它的难点不在于命令的使用，而是整个脚本逻辑规划。
这个脚本有2个按钮，分别实现发送邮件功能和判断验证码是否正确的功能。
验证码是6位随机数字，发送给用户邮箱的同时写入到手机（模拟器）中，激活脚本时验证用户填写的验证码是否和本地存储的一致。
这里面要判断很多“意外”情况：
①用户是否激活过脚本，防止二次激活
通过本地是否有存储验证码的文本来判断有没有发过邮件；
通过本地是否有存储激活时间的文本来判断有没有激活脚本；
②用户是否填写了正确的邮箱
查找输入框内是否有@字符，通过@前面字符数量稍微判断一下是否为正常邮箱。
③用户是否填写正确的验证码
判断验证码的输入框填写内容是不是6位数字。
④邮件格式，通过\n进行换行。
下面是我写的源码：
- Function 获取验证()
- Dim path="/sdcard/pictures/code.txt"
- If Dir.Exist(path) = 0 Then
- Dim inmail=uip.GetAttribute("输入框1")
- If Len(inmail["初始文本"]) = 0 or instr(1,inmail["初始文本"],"@")<5 Then
- ShowMessage "请填写正确的邮箱！"
- Else
- Dim code=RndCode()
- Dim mail=inmail["初始文本"]
- file.write (path, code)
- If sentmsg(mail, code) Then
- ShowMessage "激活码已经发送，请尽快登录邮箱查看！"
- End If
- End If
- Else
- showmessage "已经激活过脚本"
- End If
- End Function
- Function 激活脚本()
- Dim path="/sdcard/pictures/code.txt"
- Dim path_time="/sdcard/pictures/time.txt"
- Dim incode=uip.GetAttribute("输入框2")
- If Dir.Exist(path_time) = 1 Then
- showmessage "该设备已经激活过脚本"
- Exit Function
- End If
- If Dir.Exist(path) = 0 Then
- ShowMessage "先完成邮箱激活"
- Else
- If Len(incode["初始文本"]) <> 6 Then
- ShowMessage "请填写正确验证码"
- Else
- Dim code=file.read(path)
- If incode["初始文本"] = code Then
- ShowMessage "激活成功！"
- UIP.SetAttribute "按钮2", {"显示内容":"已激活！"}
- file.write(path_time,time())
- Else
- showmessage "验证码错误！"
- End If
- End If
- End If
-
- End Function
- Function RndCode()
- Dim str=""
- For 6
- str=str&int(10*rnd())
- Next
- RndCode=str
- End Function
- Function sentmsg(mail,code)
- Dim 服务器="smtp.qq.com"
- Dim 发件人邮箱="xxxxxx@qq.com"
- Dim 密码="xxxxxxxxxx"
- Dim 主题="XX脚本验证!"
- Dim 内容="您好！\n欢使用册XX脚本，请将验证码填写到脚本激活页面，\n验证码："&code
- Dim 收件地址=mail
- dim 返回值 = SendSimpleEmail(服务器,发件人邮箱,密码,主题,内容,收件地址)
- sentmsg= 返回值
- End Function
这个脚本可以用在测试版，给用户免费试用，同时限制用户反复激活，需要注意一点就是本地存储验证的文本，尽量藏得隐蔽点，以防用户手动删除，然后可以反复多次试用脚本。
好了内容就这些，觉得还行帮忙给文章点个赞。
=正文完=
闽公网安备 35010002000112号