callkit功能怎么开启安卓(怎么让脚本可以领取免费测试卡)

大家好,我是公众号3分钟学堂的郭立员~

前些天有朋友问怎么实现这个功能,如下图所示:

callkit功能怎么开启安卓(怎么让脚本可以领取免费测试卡)(1)

这个功能就是给自己的脚本加上一个可以领免费测试卡的功能,要想实现它需要注意的内容挺多的,下面我们逐个来说一下:

(1)功能上说要实现两个操作:点击按钮获取激活码(测试卡) 写入输入框

①点击按钮获取一个激活码

因为脚本要给别人使用,所以激活码不能是本地的,只能是来自服务器端,那么可以使用post/get方式获取。

激活码的来源,可以是预先生成好的一批激活码,也可以是每次点击按钮生成新的激活码,它们各有优缺点:

预生成的激活码:生成的激活码数量是固定的,用一个少一个,所以要定期补充。

新生成激活码:这种方式要求脚本具有生成激活码的权限,同时一旦被人破解可以无限制生成激活码,导致验证系统形同虚设了。

选用哪种方式,除了考虑它们优缺点以外,还要看你的验证系统有没有相关的功能,比如新生成激活码的方式,就要求验证系统支持用户端注册或者导入激活码。

这期文章中我会用到读取服务器文本的方式,预先把激活码存在服务器文本,读取一个删除一个。

②把激活码写入到输入框中

这边是需要静态页面修改元素的,使用UIP.SetAttribute命令,一行代码而已,稍后看源码就行。

(2)脚本中的逻辑注意事项:

这个注意事项是来自于脚本的限制说明:※每天可免费领取3张测试卡,测试时间为1小时

①限制每天3张测试卡,那么需要有领取记录,记录可以存在脚本运行的本地设备,也可以存在于服务器端,两者对比的话,存在本地容易些。

②存储的要点:时间和张数

因为是每天三张,所以过了半夜12点要重新更新可测试数量,记录好当天的日期,防止重复领取。

③限制1小时的测试时间,这个就是基本的网络验证,没啥可说的。

(3)本地存储的操作流程

选用的存储媒介是数据(.db),因为这种后缀的文件普通人不常用到,没有对应的工具不容易打开,这样就可以达到隐藏的效果。

存储的格式如下:

callkit功能怎么开启安卓(怎么让脚本可以领取免费测试卡)(2)

在数据库表中有两列数据,分别是time和num,代表日期和次数。

写这部分逻辑框架需要考虑全面,大家跟着我一块去想想这个逻辑:

第一步:判断数据库在手机/模拟器上是否存在

不存在:当前设备是首次使用脚本

存在:当前设备已经使用过

第二步:针对上面两种情况分别处理

首次使用:那么新建数据库,写入日期和次数1

callkit功能怎么开启安卓(怎么让脚本可以领取免费测试卡)(3)

非首次使用:要判断当前表格里面的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) = 0 Then 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) = 0 Then showmessage "今天首次使用" sqlite3.SQLInsert DBpath, "code", {"time":t, "num":1} Else showmessage encode.TableToJson(ret) If cint(ret[1]["num"]) < 3 Then 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",{"初始文本":测试卡}) End Function

=正文完=

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页