[按键精灵] 脚本计时试用如何开发

这里我给大家一个通用的源码，大家可以放到自己的脚本最开头的地方，然后修改一下试用期限就可以使用。

Dim str=ReadUIConfig("输入框1") 
Dim path="/sdcard/code.txt" 
Dim time_key=300

If str = "abc123" Then '默认激活码是abc123
  ShowMessage ("激活码正确")
  TracePrint "激活码正确"
  If Dir.Exist(path) = 0 Then 
    TracePrint "计时文件不存在,是首次使用"
    Dim t=time()
    TracePrint t
    file.write(path,t)
    Else 
    TracePrint "计时文件存在"
    dim t1=file.read(path)
    Dim t2=time()
    If t2 - t1 > time_key Then 
      TracePrint "超过试用时间，请联系作者"
      EndScript
      Else 
      TracePrint "脚本试用剩余时间"&int((time_key-(t2-t1))/60)&"分"&(time_key-(t2-t1)) mod 60 &"秒"
      For i=0 to 3
        ShowMessage ("脚本试用剩余时间"&int((time_key-(t2-t1))/60)&"分"&(time_key-(t2-t1)) mod 60 &"秒")
        Delay 1000
      Next
    End If
  End If
  Else 
  ShowMessage ("激活码错误")
  TracePrint "激活码错误"
  EndScript
End If

这个在我的基础课也讲过代码的原理，就是通过在本地新建一个文本，用于存储脚本第一次使用时的时间，当脚本再次使用的时候，就会比对这个时间，如果超出你规定的时间，脚本就会自动停止。

当然这个脚本也是有漏洞的，就是当别人找到你的文本存放位置，可以手动删除掉，

[不过会找你做这类脚本软件，大部分也是小白无需太过于担心]尽量把文本存放的隐蔽些，并且名字起得有迷惑性。