[山海教程]教你给免费小精灵做个日期限制

现在越来越多的人都偏向于开发安卓按键精灵的脚本，对于安卓按键的命令需求也越来越多，有一些命令是按键本身不具备或者是不够完善，所以特此推出最强LUA插件-山海插件，以供同学们可以更好的开发自己的脚本。...

插件的起源

      现在越来越多的人都偏向于开发安卓按键精灵的脚本，对于安卓按键的命令需求也越来越多，有一些命令是按键本身不具备或者是不够完善，所以特此推出最强LUA插件-山海插件，以供同学们可以更好的开发自己的脚本。

本节内容介绍

      在之前的教程中我们有提到过定时器的功能>>[山海教程]定时活动定时做。

这个定时器是针对短时间的。那如果想要判断长时间该怎么办？

本节相关命令：

命令名称CompareTime命令功能对比是否到期参数参数1【必要】：整数型，年

参数2【必要】：整数型，月

参数3【必要】：整数型，日

参数4【必要】：整数型，时

参数5【必要】：整数型，分

参数6【必要】：整数型，秒

返回值到期返回-1,获取网络时间失败返回null,未到期返回距离到期剩余的秒数命令名称LateTime命令功能计算几天后的日期参数参数1【必要】：整数型，天数

参数2【可选】：整数型，年

参数3【可选】：整数型，月

参数4【可选】：整数型，日

返回值返回日期，只填第一个参数则返回距离当前日期指定天数之后的日期这个功能我们可以用来做什么呢？很多同学在刚开发完脚本之后都会把脚本免费的发放出去让大家使用积累人气。等脚本稳定人气也高的时候就开始收费。

那我们这里就可以利用这个命令，让脚本在一定的时期内可以正常使用，超过了这个时期之后就不运行功能。

范例代码：

Import "shanhai.lua"

Function 限时免费(日期)

Dim datearr = split(日期, "-")

Dim ret = shanhai.CompareTime(datearr(0), datearr(1), datearr(2), 0, 0, 0)

If ret = -1 Then

ShowMessage "脚本已经到期"

Delay 2000

EndScript

ElseIf ret > 0 Then

ShowMessage "脚本未到期，可以继续使用"

Delay 2000

ElseIf ret = null Then

ShowMessage "联网失败，请检查网络"

Delay 2000

EndScript

End If

End Function

// 判断日期是否到达了2016年7月29号0点0分0秒

Call 限时免费("2016-08-27")

我们还可以利用LateTime 命令来实现限制指定天数的功能，范例代码：

Import "shanhai.lua"

Function 限制天数(天数)

Dim 路径 = "/sdcard/data.txt"

Dim 日期 = ShanHai.LateTime(天数)

// 这里把计算好的到期时间写入文件以便脚本启动时进行判断

If Dir.Exist(路径) = 1 Then

TracePrint "已有日期文件"

日期 = file.Read(路径)

Else

Call file.Write(路径, 限定日期)

End If

Dim datearr = split(日期, "-")

Dim ret = shanhai.CompareTime(datearr(0), datearr(1), datearr(2), 0, 0, 0)

If ret = -1 Then

ShowMessage "脚本已经到期"

Delay 2000

EndScript

ElseIf ret > 0 Then

ShowMessage "脚本未到期，可以继续使用"

Delay 2000

ElseIf ret = null Then

ShowMessage "联网失败，请检查网络"

Delay 2000

EndScript

End If

End Function点击下方“阅读原文”获取更多山海插件命令介绍及下载

↓↓↓

    关注 按键精灵