大家好，我是公众号3分钟学堂的郭立员~
前些天有朋友问怎么实现这个功能，如下图所示：
这个功能就是给自己的脚本加上一个可以领免费测试卡的功能，要想实现它需要注意的内容挺多的，下面我们逐个来说一下：
（1）功能上说要实现两个操作：点击按钮获取激活码（测试卡）+写入输入框
①点击按钮获取一个激活码
因为脚本要给别人使用，所以激活码不能是本地的，只能是来自服务器端，那么可以使用post/get方式获取。
激活码的来源，可以是预先生成好的一批激活码，也可以是每次点击按钮生成新的激活码，它们各有优缺点：
预生成的激活码：生成的激活码数量是固定的，用一个少一个，所以要定期补充。
新生成激活码：这种方式要求脚本具有生成激活码的权限，同时一旦被人破解可以无限制生成激活码，导致验证系统形同虚设了。
选用哪种方式，除了考虑它们优缺点以外，还要看你的验证系统有没有相关的功能，比如新生成激活码的方式，就要求验证系统支持用户端注册或者导入激活码。
这期文章中我会用到读取服务器文本的方式，预先把激活码存在服务器文本，读取一个删除一个。
②把激活码写入到输入框中
这边是需要静态页面修改元素的，使用UIP.SetAttribute命令，一行代码而已，稍后看源码就行。
（2）脚本中的逻辑注意事项：
这个注意事项是来自于脚本的限制说明：※每天可免费领取3张测试卡，测试时间为1小时
①限制每天3张测试卡，那么需要有领取记录，记录可以存在脚本运行的本地设备，也可以存在于服务器端，两者对比的话，存在本地容易些。
②存储的要点：时间和张数
因为是每天三张，所以过了半夜12点要重新更新可测试数量，记录好当天的日期，防止重复领取。
③限制1小时的测试时间，这个就是基本的网络验证，没啥可说的。
（3）本地存储的操作流程
选用的存储媒介是数据（.db），因为这种后缀的文件普通人不常用到，没有对应的工具不容易打开，这样就可以达到隐藏的效果。
存储的格式如下：
在数据库表中有两列数据，分别是time和num，代表日期和次数。
写这部分逻辑框架需要考虑全面，大家跟着我一块去想想这个逻辑：
第一步：判断数据库在手机/模拟器上是否存在
不存在：当前设备是首次使用脚本
存在：当前设备已经使用过
第二步：针对上面两种情况分别处理
首次使用：那么新建数据库，写入日期和次数1
非首次使用：要判断当前表格里面的time列中有没有今天的日期数据。
没有：今天还没有使用过
有：今天已经使用。
第三步：继续分情况处理
没有今天的日期数据：在数据库中写入今天日期和次数1
有今天的日期数据：读取数据库中当天日期对应的num列中的次数，判断次数是否小于3次
小于3次：今天还可以继续使用，把今天日期对应的次数+1
不小于3次：今天免费测试次数用完。
这部分写成代码是：
Import"sqlite3.lua"Dim dbpath="/sdcard/pictures/abc.db"Dim t=DateTime.Format("%Y%m%d") If Dir.Exist(dbpath) =0Then showmessage"首次使用"sqlite3.SQLCreate(dbpath,"code", {"time","num"}) sqlite3.SQLInsert DBpath,"code", {"time":t,"num":1} Else dim ret=sqlite3.SQLSelect(DBpath,"code","num","WHERE time="&t) If Len(ret) =0Then showmessage"今天首次使用"sqlite3.SQLInsert DBpath,"code", {"time":t,"num":1} Else showmessage encode.TableToJson(ret) If cint(ret[1]["num"]) <3Then sqlite3.SQLUpdate DBpath,"code", {"num":ret[1]["num"]+1},"WHERE time="& t showmessage"第"&ret[1]["num"]+1&"次领卡"Else showmessage"今天3次测试卡已经领过了，明天再来"End If End If End If
在以上的代码中，并没有获取测试卡的操作，仅仅是对测试卡需要获取的记录，我们写每次写入/修改数据库内容都是要配合获取测试的操作。
这其中包括建库、当天首次使用、次数小于3等这几种情况。
（4）读取服务器上的文本
这一步需要一个php文件，完成读取文本内容和删除文本内容的操作，把php文件和存有测试卡的文本放到服务器里面，运行下面代码就可以了。
需要这个文件可以加我微信xiaomu86119，备注【服务器文本】
Dim ip="http://192.168.1.3/file"//我建了一个file的文件夹，不是一定有这个目录的Dim 文件名="code"//文本名字TracePrint url.get(ip&"/File.php?uid=6&txtid="&文件名&"&hid=1")
（5）写入输入框
Function函数名1() Dim 测试卡="abc0001"uip.SetAttribute("输入框1",{"初始文本":测试卡})EndFunction
=正文完=
