个人的写的本地验证软件过期源码，大神请路过

追忆帝

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
验证的时间	日期时间型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
H	整数型

启动线程 (&时间, , H)
关闭线程句柄 (H)

子程序名	返回值类型	公开	备 注
时间

变量名	类 型	静态	数组	备 注
增加的时间	日期时间型
到期的时间	日期时间型
a	整数型
x	整数型

判断循环首 (a ≠ -1)
计次循环首 (99999999999, x)
延时 (5000)
如果真 (读配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “BB”, ) ＝ “”)
增加的时间 ＝ 增减时间 (到时间 (取现行时间 ()), 7, 5)  ' 这里说设置多久到期的时间，测试是5分钟
写配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “BB”, 到文本 (增加的时间))  ' 写出到期时间记录
写配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “CC”, 到文本 (到时间 (取现行时间 ())))  ' 写出验证时间，避免修改电脑时间跳过
到期的时间 ＝ 到时间 (读配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “BB”, ))  ' 读入到期的时间
验证的时间 ＝ 到时间 (读配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “CC”, ))  ' 读入验证时间
如果真 (验证的时间 ＞ 取现行时间 ())  ' 如果验证的时间给现在的时间大，那么肯定是改过时间了
增加的时间 ＝ 增减时间 (到时间 (取现行时间 ()), 7, 1)
写配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “CC”, 到文本 (增加的时间))  ' 既然是改时间了，那么我们就给他一个惩罚
信息框 (“检测有改时间行为，惩罚到期时间-1分钟”, 0, , )
结束 ()
如果真 (取现行时间 () ＞ 到期的时间)
信息框 (“过期了”, 0, , )
结束 ()
调试输出 (取现行时间 ())
计次循环尾 ()
判断循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

判断 (验证的时间 ＞ 取现行时间 ())  ' 如果验证的时间给现在的时间大，那么肯定是改过时间了
增加的时间 ＝ 增减时间 (到时间 (取现行时间 ()), 7, 1)
写配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “CC”, 到文本 (增加的时间))  ' 既然是改时间了，那么我们就给他一个惩罚
信息框 (“检测有改时间行为，惩罚到期时间-1分钟”, 0, , )
写配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “CC”, 到文本 (到时间 (取现行时间 ())))

i支持库列表	支持库注释
EThread	多线程支持库
shell	操作系统界面功能支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 shell<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 验证的时间, 日期时间型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 H, 整数型<br /> <br /> 启动线程 (&时间, , H)<br /> 关闭线程句柄 (H)<br /> <br /> .子程序 时间<br /> .局部变量 增加的时间, 日期时间型<br /> .局部变量 到期的时间, 日期时间型<br /> .局部变量 a, 整数型<br /> .局部变量 x, 整数型<br /> <br /> .判断循环首 (a ≠ -1)<br />     .计次循环首 (99999999999, x)<br />         延时 (5000)<br />         .如果真 (读配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “BB”, ) ＝ “”)<br />             增加的时间 ＝ 增减时间 (到时间 (取现行时间 ()), 7, 5)  ' 这里说设置多久到期的时间，测试是5分钟<br />             写配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “BB”, 到文本 (增加的时间))  ' 写出到期时间记录<br />             写配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “CC”, 到文本 (到时间 (取现行时间 ())))  ' 写出验证时间，避免修改电脑时间跳过<br />         .如果真结束<br />         到期的时间 ＝ 到时间 (读配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “BB”, ))  ' 读入到期的时间<br />         验证的时间 ＝ 到时间 (读配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “CC”, ))  ' 读入验证时间<br /> <br />         .如果真 (验证的时间 ＞ 取现行时间 ())  ' 如果验证的时间给现在的时间大，那么肯定是改过时间了<br />             增加的时间 ＝ 增减时间 (到时间 (取现行时间 ()), 7, 1)<br />             写配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “CC”, 到文本 (增加的时间))  ' 既然是改时间了，那么我们就给他一个惩罚<br />             信息框 (“检测有改时间行为，惩罚到期时间-1分钟”, 0, , )<br />             结束 ()<br />         .如果真结束<br />         .如果真 (取现行时间 () ＞ 到期的时间)<br />             信息框 (“过期了”, 0, , )<br />             结束 ()<br />         .如果真结束<br />         调试输出 (取现行时间 ())<br />     .计次循环尾 ()<br /> .判断循环尾 ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> .判断开始 (验证的时间 ＞ 取现行时间 ())  ' 如果验证的时间给现在的时间大，那么肯定是改过时间了<br />     增加的时间 ＝ 增减时间 (到时间 (取现行时间 ()), 7, 1)<br />     写配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “CC”, 到文本 (增加的时间))  ' 既然是改时间了，那么我们就给他一个惩罚<br />     信息框 (“检测有改时间行为，惩罚到期时间-1分钟”, 0, , )<br /> .默认<br />     写配置项 (取特定目录 (3) ＋ “\a.ini”, “AA”, “CC”, 到文本 (到时间 (取现行时间 ())))<br /> .判断结束

本人在论坛上，搜索了N久，都没找到一个符合自己要求的 软件到期例子，
我知道本地验证很多问题，但是如果能用网络验证的我也不会用到本地验证了是吧
就是因为有需求，需要用到才写的，


本人小菜鸟一枚，账号虽然zc得早，但是真正开始学易语言是2018年的4月份左右
如果那里有什么不足，请指教，嘴强王者请出门左转谢谢...


刚才再补充了一下，现在应该清晰多了~~

万古一念间

哈哈 支持，有想法就好 都是从慢慢来的

追忆帝

万古一念间 发表于 2018-9-10 18:14
哈哈 支持，有想法就好 都是从慢慢来的

哈哈 感谢支持~~！！

517027168

支持！！！！！！！！！！！

对白

但是这个不是很好OD跟踪几下就能看到你写的配置文件 网络验证的话不是有很多的吗服务器你都不要出zc一个账号就行

追忆帝

她说我死老头子 发表于 2018-9-10 21:34
但是这个不是很好OD跟踪几下就能看到你写的配置文件 网络验证的话不是有很多的吗服务器你都不要出zc一个账 ...

能联网的情况下，用网络验证是没毛病，完全断网的情况呢？

追忆帝

她说我死老头子 发表于 2018-9-10 21:34
但是这个不是很好OD跟踪几下就能看到你写的配置文件 网络验证的话不是有很多的吗服务器你都不要出zc一个账 ...

完全断网的情况下，你有什么好的办法写一个验证？

帝皇

我也是新手一枚，共同努力啊！

sxlldaj

谢谢分享，学习了

lisa1824

子程序名        返回值类型        公开        备 注
_按钮1_被单击                         
变量名        类 型        静态        数组        备 注
H        整数型                         
启动线程 (&时间, , H)
关闭线程句柄 (H)


请教楼主，这个意思是  每点击一次  运行一次 的意思吗？  用线程 这样做的好处是？？？ 请教，谢谢！！