开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 4407|回复: 20
收起左侧

[易源码分享] 给软件增加试用时间

[复制链接]
结帖率:25% (1/4)
发表于 2020-2-25 17:08:21 | 显示全部楼层 |阅读模式   山东省济南市
分享源码
界面截图:
是否带模块: 调用了模块
备注说明: -
调动了精易模块,本人新手,只在业余时间学了几周而已,中间有漏洞,还不知道怎么改,高手勿喷,
  
子程序名返回值类型公开备 注
软件试用时间  
变量名类 型静态数组备 注
配置信息文本型 
到期时间文本型 
当前时间日期时间型 
剩余试用时长文本型 
文件号整数型 
延时时长整数型 
如果 (文件是否存在 (取运行目录 ()“\切勿删除.dat”))  ' 判断配置文件是否存在
配置信息 = 文本_解密c (读入文件 (取运行目录 ()“\切勿删除.dat”), “密码”)
编辑框2.内容 = 到文本 (配置信息)
到期时间 = 文本_取出中间文本 (配置信息, “[到期时间:”, “]”, , )
当前时间 = 时间_取北京时间 ()
如果真 (到期时间 ≠ “” 取时间间隔 (到时间 (到期时间), 当前时间, #秒 ) < 0)
时钟1.时钟周期 = 0
信息框 (“对不起,您的试用时间已结束,如果想继续使用本软件,请联系作者QQ:350508236”, 0, “试用结束”, )
销毁 ()

时钟1.时钟周期 = 0
信息框 (“对不起,您的试用时间已结束,如果想继续使用本软件,请联系作者QQ:350508236”, 0, “试用结束”, )
销毁 ()
' 文件号 = 打开文件 (取运行目录 () + “\切勿删除.dat”, #重写, )   该段代码用以检测“切勿删除”如果不存在的话,新建一个文档,并将到期时间赋值,漏洞是,如果每次到期后,将该文档删除,将再次获得试用时间。。。。
' 当前时间 = 时间_取北京时间 ()
' 到期时间 = 时间到文本 (增减时间 (当前时间, #分钟, 1), )
' 写到文件 (取运行目录 () + “\切勿删除.dat”, 文本_加密c (“[到期时间:” + 到期时间 + “]”, “peiqi”))
' 关闭文件 (文件号)

子程序名返回值类型公开备 注
检测剩余时间  
变量名类 型静态数组备 注
配置信息文本型 
到期时间文本型 
当前时间日期时间型 
剩余时间文本型 
如果真 (文件是否存在 (取运行目录 ()“\切勿删除.dat”))
配置信息 = 文本_解密c (读入文件 (取运行目录 ()“\切勿删除.dat”), “密码”)
到期时间 = 文本_取出中间文本 (配置信息, “[到期时间:”, “]”, , )
当前时间 = 时间_取北京时间 ()
如果真 (到期时间 = “”)  ' 判断到期时间
到期时间 = 时间到文本 (增减时间 (当前时间, #分钟, 1), )  ' 1可以改为任意数,即试用时长,单位为分钟
写到文件 (取运行目录 ()“\切勿删除.dat”, 文本_加密c (“[到期时间:” + 到期时间 + “]”, “密码”))
时钟检测到期时间.时钟周期 = 0
信息框 (“您的试用时间为5分钟,到期时间为” + 到期时间, 0, “提示”, )
时钟检测到期时间.时钟周期 = 1000
如果真 (取时间间隔 (到时间 (到期时间), 当前时间, #秒 ) > 0 取时间间隔 (到时间 (到期时间), 当前时间, #秒 ) ≤ 60)
剩余时间 = 到文本 (取时间间隔 (到时间 (到期时间), 当前时间, #秒 ))
时钟检测到期时间.时钟周期 = 0
信息框 (“您的试用到期时间为” + 到期时间 + #换行符“当前试用剩余时长” + 剩余时间 + “秒”, 0, , )


子程序名返回值类型公开备 注
_按钮1_被单击  
时钟1.时钟周期 = 1000
子程序名返回值类型公开备 注
_时钟检测到期时间_周期事件  
检测剩余时间 ()
子程序名返回值类型公开备 注
_时钟1_周期事件  
软件试用时间 ()
子程序名返回值类型公开备 注
_按钮2_被单击  
变量名类 型静态数组备 注
到期时间文本型 
到期时间 = 时间到文本 (增减时间 (取现行时间 (), #分钟, 到整数 (编辑框2.内容)), )  ' 编辑框2可以填写任意数,即试用时长,单位为分钟
写到文件 (取运行目录 ()“\切勿删除.dat”, 文本_加密c (“[到期时间:” + 到期时间 + “]”, “密码”))


结帖率:50% (1/2)
发表于 2022-10-12 02:20:32 | 显示全部楼层   山东省临沂市
6666666666666666666666666666
回复 支持 反对

使用道具 举报

签到天数: 6 天

发表于 2021-4-17 04:25:16 | 显示全部楼层   浙江省绍兴市
路过围观一下,顺便帮顶
回复 支持 反对

使用道具 举报

发表于 2021-4-16 09:51:34 | 显示全部楼层   广东省珠海市
不错,学习一下
回复 支持 反对

使用道具 举报

发表于 2020-3-10 00:27:21 | 显示全部楼层   广西壮族自治区柳州市
好源码,谢谢楼主开源,学习一下!
回复 支持 反对

使用道具 举报

结帖率:50% (1/2)
发表于 2020-3-3 18:33:08 | 显示全部楼层   河北省*
在哪下载啊
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)
发表于 2020-3-2 06:28:08 | 显示全部楼层   加拿大
谢谢分享,源码收了,
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)

签到天数: 21 天

发表于 2020-2-28 08:42:49 | 显示全部楼层   湖北省十堰市
感谢分享,有你同行.................
回复 支持 反对

使用道具 举报

签到天数: 1 天

发表于 2020-2-26 15:56:16 | 显示全部楼层   河南省濮阳市
感谢楼主分享
回复 支持 反对

使用道具 举报

结帖率:0% (0/3)
发表于 2020-2-26 14:34:42 高大上手机用户 | 显示全部楼层   江苏省苏州市
感谢楼主分享,不知道是否可以留个联系方式
回复 支持 反对

使用道具 举报

结帖率:57% (17/30)

签到天数: 1 天

发表于 2020-2-26 14:04:03 | 显示全部楼层   辽宁省沈阳市
6666666666
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表