>>>> 插件教程目录 <<<<相关命令:
| 命令名称： | 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
闽公网安备 35010002000112号