本地限制时间代码：
.版本 2
.程序集 窗口程序集1
.程序集变量 软件到期时间, 整数型
.程序集变量 现在时间, 整数型
.程序集变量 月份整理, 文本型
.程序集变量 日期整理, 文本型
.程序集变量 小时, 文本型
.程序集变量 分钟, 文本型
.子程序 __启动窗口_创建完毕
.局部变量 到日期时间, 日期时间型
信息框 (“欢迎使用”, 0, “软件提示”)
到日期时间 ＝ [2011年9月4日]
标签2.标题 ＝ “还有” ＋ 数值到格式文本 (取时间间隔 (到日期时间, 取现行时间 (), #日), 0, 假) ＋ “天到期”
.子程序 _时钟1_周期事件
标签1.标题 ＝ “使用时间：” ＋ 到文本 (取现行时间 ())
软件到期时间 ＝ 201109032150
' 软件到期日期----要和标签2的标题(到期时间)保持一致.
' 而且标签2的标题要多一分钟.自己设置运行一下就知道原因了
.如果 (取月份 (取现行时间 ()) ＜ 10)
月份整理 ＝ “0” ＋ 到文本 (取月份 (取现行时间 ()))
.否则
月份整理 ＝ 到文本 (取月份 (取现行时间 ()))
.如果结束
.如果 (取日 (取现行时间 ()) ＜ 10)
日期整理 ＝ “0” ＋ 到文本 (取日 (取现行时间 ()))
.否则
日期整理 ＝ 到文本 (取日 (取现行时间 ()))
.如果结束
.如果 (取小时 (取现行时间 ()) ＜ 10)
小时 ＝ “0” ＋ 到文本 (取小时 (取现行时间 ()))
.否则
小时 ＝ 到文本 (取小时 (取现行时间 ()))
.如果结束
.如果 (取分钟 (取现行时间 ()) ＜ 10)
分钟 ＝ “0” ＋ 到文本 (取分钟 (取现行时间 ()))
.否则
分钟 ＝ 到文本 (取分钟 (取现行时间 ()))
.如果结束
现在时间 ＝ 到数值 (到文本 (取年份 (取现行时间 ())) ＋ 月份整理 ＋ 日期整理 ＋ 小时 ＋ 分钟)
.如果真 (现在时间 ＞ 软件到期时间)
时钟1.时钟周期 ＝ 0
_启动窗口.可视 ＝ 假
信息框 (“ 软件过期” ＋ #换行符 ＋ #换行符 ＋ “请联系作者续费使用”, 0, “友情提示”)
_启动窗口.销毁 (真)
.如果真结束
加壳有很多种 吾爱论坛有
