为了防止跑单，我给大家做了一个脚本计时试用的通用代码
cac55 2025-01-16 18:12 10 浏览 0 评论
看我公众号的读者，很多都是编写脚本的作者，在脚本接单的时候，为了交易安全，可以给脚本加一个试用期限的功能，这样就不担心买主拿到脚本跑单的情况了。
这里我给大家一个通用的源码，大家可以放到自己的脚本最开头的地方，然后修改一下试用期限就可以使用。
代码如下：
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这个在我的基础课也讲过代码的原理，就是通过在本地新建一个文本，用于存储脚本第一次使用时的时间，当脚本再次使用的时候，就会比对这个时间，如果超出你规定的时间，脚本就会自动停止。
当然这个脚本也是有漏洞的，就是当别人找到你的文本存放位置，可以手动删除掉，这样就可以再次使用了。所以尽量把文本存放的隐蔽些，并且名字起得有迷惑性。
当然这个漏洞也有解决方法，就是买个服务器，然后把文本存在服务器上面，这样就不担心用户删除了。这方法虽好，但是要花钱买服务器，对于很多作者来说又是要增加成本。所以我这种方法虽然有弊端，但考虑到性价比，还是可以用的。
相关推荐
- 爷青回 | QQ经典老头像（爷青回这个梗出自哪里）
-
点个关注不迷路记得点击上方关注我呦点击表情包长按可保存至手机表情包素材来源于网络，仅供分享哦拿完图记得吱一声点击下方分享、在看让更多人看到...
- 史上最全QQ官方经典头像全面翻新，不光高清还会动
-
每当看到上面这些头像，总能想起那些年的"轻舞飞扬"，"缘分天空"，"追风少年"，这些已经模糊的头像给我们留下了太深的印象。这次为了纪念QQ20周年，腾讯官方整合了早期的105个经典头像，进行了全面翻...
- QQ最全表情含义图解意思（qq表情含义图解最新 新版 文字）
-
QQ都不陌生吧！对QQ的表情符号含义你了解多少呢？在本文中最全图解233个表情所表达的含义，供有需人享用。用过QQ的人都晓得它的创始人是马化腾。QQ于1999年2月10日正式推出。QQ是腾讯公司开发的...
- 海联真人版QQ经典表情（海联真人版qq经典表情在哪）
-
海联版傲娇的说声“耶”狂拽炫酷就是我淑女应该轻言细语萌萌哒的娇羞哎哟喂小丫头片子机智如我吓死宝宝了欧巴卡几嘛~今天天气好晴朗怎么样？是不是很有趣呢拿起手机给自己拍几张萌萌哒的美照吧...
- QQ音乐·音乐灵感独家对话金曲奖「最佳单曲制作人奖」得主JADE
-
JADE-AllRightJADE-差-点JADE-Goodbye，GoodbyeJADE-IAmLovefeat.乔瑟夫Chillseph下面请听本期灵感电台节目：本期博客...
- 亿万富豪爱泼斯坦狱中“自杀”，他背后的神秘女人出现在洛杉矶快餐店
-
爱泼斯坦在狱中离奇“自杀”，但他身负同谋指控的前女友、英国社交名媛希莱恩·麦克斯维尔（GhislaineMaxwell），却意外地出现在了洛杉矶街头平民快餐店，边啃着汉堡，咽着薯条，嘬着奶昔，边埋头...
- 扛起星战大旗的你们 觉得星战女需要换一身衣裳吗?
-
马上进入2016年，除了各种总结盘点以外，2016年的新看点也是需要科普一下了。目前最令人期待的应该就是《星球大战》回归了！《StarWars：原力觉醒》1月10日上映，博主不是电影评论员，所以不会...
- 和人对话的时候，我，最怕的就是，看到了自己内心的惶恐和脆弱
-
IWannaBeYourSlave(LiveFromGlobalCitizenLive2021),Maneskin很多时候，哪怕最甘于寂寞的人，也需要和人发生关联，需要和这个世界沟...
- 2024年度串烧完整版(搞笑失败尴尬丢人版)来了
-
一首APT的时间带你回顾你的2024年年度歌单。·1.《免我蹉跎苦》黄龄。·2.《红昭愿》音阙诗听。·3.《苹果香》狼戈。·4.《免我蹉跎苦》黄龄。·5.《红昭愿》音阙诗听。·6.《苹果香》狼戈。·7...
- 一课译词:打工人（打工人的翻译）
-
下午好，各位打工人!近日，“打工人”爆红网络，受到各行各业年轻人的追捧，但这词到底说的是个啥？“打工人”是那些依靠体力或技术的劳动者的统称。除了赚钱这个最大的目标，别的啥也不想；他们意志坚定，也不会迟...
- 初级词汇题(一)柏拉图指出不是每个孩子都适合上学，你赞成吗?
-
初级词汇题（一）柏拉图在《理想国》中指出不是每个孩子都适合上学，你赞成吗？今天分享的题目是我基于英文原著改编的初级词汇题A开头的第81道题。背景知识拓展：什么是nativist（先天论者）？什么是哲学...
- 治愈系英文:每个说不想恋爱的人，心里都装着一个无法拥有的人
-
Therearesomanypeopleouttherewhowilltellyouthatyoucan't.Whatyou'vegottodoisturna...
- 首首经典!意大利流行乐队Maneskin作品I WANNA BE YOUR SLAVE
-
手机点击试听（上边）Maneskin是一支来自罗马的意大利流行摇滚乐队，由主唱DamianoDavid、贝斯手VictoriaDeAngelis、吉他手ThomasRaggi和鼓手...
- 国家电网新一代电子商务平台投标文件双层PDF制作最全教程
-
投标知识在招投标过程中，我们经常碰见有些文件要求制成双层PDF格式，那么双层PDF是什么呢？怎么制作呢？今天就给大家普及下。定义双层PDF双层PDF格式文件是一种具有多层结构的PDF格式文件，是PD...
欢迎 你 发表评论:
- 一周热门
- 最近发表
- 标签列表
-
- 如何绘制折线图 (52)
- javaabstract (48)
- 新浪微博头像 (53)
- grub4dos (66)
- s扫描器 (51)
- httpfile dll (48)
- ps实例教程 (55)
- taskmgr (51)
- s spline (61)
- vnc远程控制 (47)
- 数据丢失 (47)
- wbem (57)
- flac文件 (72)
- 网页制作基础教程 (53)
- 镜像文件刻录 (61)
- ug5 0软件免费下载 (78)
- debian下载 (53)
- ubuntu10 04 (60)
- web qq登录 (59)
- 笔记本变成无线路由 (52)
- flash player 11 4 (50)
- 右键菜单清理 (78)
- cuteftp 注册码 (57)
- ospf协议 (53)
- ms17 010 下载 (60)