[技术小组] 求编译后软件加壳技术，加时间限制器

在易语言里写

我只想在软件外加壳

软件外也可以

我会 加Q 782830000

本地限制时间代码：


.版本 2

.程序集 窗口程序集1
.程序集变量 软件到期时间, 整数型
.程序集变量 现在时间, 整数型
.程序集变量 月份整理, 文本型
.程序集变量 日期整理, 文本型
.程序集变量 小时, 文本型
.程序集变量 分钟, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 到日期时间, 日期时间型

信息框 (“欢迎使用”, 0, “软件提示”)
到日期时间 ＝ [2011年9月4日]
标签2.标题 ＝ “还有” ＋ 数值到格式文本 (取时间间隔 (到日期时间, 取现行时间 (), #日), 0, 假) ＋ “天到期”


.子程序 _时钟1_周期事件

标签1.标题 ＝ “使用时间：” ＋ 到文本 (取现行时间 ())
软件到期时间 ＝ 201109032150
' 软件到期日期----要和标签2的标题(到期时间)保持一致.
' 而且标签2的标题要多一分钟.自己设置运行一下就知道原因了
.如果 (取月份 (取现行时间 ()) ＜ 10)
    月份整理 ＝ “0” ＋ 到文本 (取月份 (取现行时间 ()))
.否则
    月份整理 ＝ 到文本 (取月份 (取现行时间 ()))
.如果结束

.如果 (取日 (取现行时间 ()) ＜ 10)
    日期整理 ＝ “0” ＋ 到文本 (取日 (取现行时间 ()))
.否则
    日期整理 ＝ 到文本 (取日 (取现行时间 ()))
.如果结束

.如果 (取小时 (取现行时间 ()) ＜ 10)
    小时 ＝ “0” ＋ 到文本 (取小时 (取现行时间 ()))
.否则
    小时 ＝ 到文本 (取小时 (取现行时间 ()))
.如果结束

.如果 (取分钟 (取现行时间 ()) ＜ 10)
    分钟 ＝ “0” ＋ 到文本 (取分钟 (取现行时间 ()))
.否则
    分钟 ＝ 到文本 (取分钟 (取现行时间 ()))
.如果结束
现在时间 ＝ 到数值 (到文本 (取年份 (取现行时间 ())) ＋ 月份整理 ＋ 日期整理 ＋ 小时 ＋ 分钟)

.如果真 (现在时间 ＞ 软件到期时间)
    时钟1.时钟周期 ＝ 0
    _启动窗口.可视 ＝ 假
    信息框 (“    软件过期” ＋ #换行符 ＋ #换行符 ＋ “请联系作者续费使用”, 0, “友情提示”)
    _启动窗口.销毁 (真)
.如果真结束

加壳有很多种 吾爱论坛有