拒绝跑单-脚本计时试用的通用代码

在脚本接单的时候,为了交易安全,可以给脚本加一个试用期限的功能,这样就不担心买主拿到脚本跑单的情况了。

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

代码如下:

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

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

当然这个脚本也是有漏洞的,就是当别人找到你的文本存放位置,可以手动删除掉,这样就可以再次使用了。所以尽量把文本存放的隐蔽些,并且名字起得有迷惑性。

当然这个漏洞也有解决方法,就是买个服务器,然后把文本存在服务器上面,这样就不担心用户删除了。这方法虽好,但是要花钱买服务器,对于很多作者来说又是要增加成本。所以我这种方法虽然有弊端,但考虑到性价比,还是可以用的。


本站内容来源于网络,转载请注明出处和链接!
本文链接地址: https://pumpkinit.com/1131.html
南瓜  [https://pumpkinit.com]  感谢

发表评论

电子邮件地址不会被公开。 必填项已用*标注