看我公众号的读者，很多都是编写脚本的作者，在脚本接单的时候，为了交易安全，可以给脚本加一个试用期限的功能，这样就不担心买主拿到脚本跑单的情况了。
这里我给大家一个通用的源码，大家可以放到自己的脚本最开头的地方，然后修改一下试用期限就可以使用。
代码如下：
Dim str=ReadUIConfig("输入框1")
Dim path="/sdcard/pictures/code.txt"
Dim time_key=300 '默认单位是秒，5分钟是300秒
If str = "abc123" Then
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
这个在我的基础课也讲过代码的原理，就是通过在本地新建一个文本，用于存储脚本第一次使用时的时间，当脚本再次使用的时候，就会比对这个时间，如果超出你规定的时间，脚本就会自动停止。
当然这个脚本也是有漏洞的，就是当别人找到你的文本存放位置，可以手动删除掉，这样就可以再次使用了。所以尽量把文本存放的隐蔽些，并且名字起得有迷惑性。
当然这个漏洞也有解决方法，就是买个服务器，然后把文本存在服务器上面，这样就不担心用户删除了。这方法虽好，但是要花钱买服务器，对于很多作者来说又是要增加成本。所以我这种方法虽然有弊端，但考虑到性价比，还是可以用的。
