Question

易语言如何实现一个程序使用期限

就是在一个电脑里，这个易程序只能有30天的源码
到了30天
信息框(“试用期结束”,0,)

Answer 1

你想安全度到什么级别的代码 。
本地取时间可以通过修改系统时间达到目的 。
网络取时间 可以通过host达到目的。
不过可以通过访问host文件也是有一定效果的。

方法1：本地验证法。
程序初次使用在注册表写入键值，键值内容最好是运行时间（系统当前时间 ），数据一定要加密
然后取系统当前时间对比，超过30天就提示。
漏洞：修改系统时间可以达到无限试用。
方法2：网络验证。
程序初次使用在注册表写入键值，键值内容最好是运行时间（系统当前时间 ）。数据一定要加密
然后访问外部网站，比如bjtime一类报时网站，过滤数据取得网络时间，然后对比。
漏洞：有可能通过host转向到定制页面。
处理手段：程序提权，读取host文件检查时候劫持域名，注册表中加入试用天数键值记录，注册表尽量分布诡异。
上面2种事常用的手段。
以上代码均可以在易语言历程中得到代码。
设计到的操作，关键字：注册表 ，文件读写

追问

读网络时间，到一定时间就无法使用

追答

楼主你的分太少了，写这种代码比较长。所以不值得，加分的话考虑。

追问

20了呜呜呜呜~~~~~求

追答

- -真没诚意啊。人家求作业都是200的。你这才20./这差距。不要你200/，100总有吧。

悬赏分：5
这个改成100立马上代码。

追问

没100......

Answer 2

每次打开软件第一件事是字节集替换，将网路的时间替换的软件里，然后下次运行就判断软件时间是否过期，没过期就判断这次写入的时间是否过期，过期就结束！

简单的很，去本地时间没有什么意思，CMD data就能修改

追问

把源码送上，不解释

追答

.版本 2
.支持库 RegEx
.支持库 internet
.支持库 iext

.程序集 窗口程序集1
.程序集变量 现在时间, 日期时间型
.程序集变量 ym, 文本型
.程序集变量 o
.程序集变量 t
.程序集变量 time, 文本型
.程序集变量 正, 正则表达式
.程序集变量 w, 日期时间型

.子程序 获取时间, 日期时间型
ym ＝ 到文本 (HTTP读文件 (“ttp://www.time.ac.cn/stime.asp”))
正.创建 (“{0-9}{4}年{0-9}{1,2}月{0-9}{1,2}日”, )
正.搜索 (ym, 1, )
处理事件 ()
time ＝ time ＋ 正.搜索 (ym, 1, ).取匹配文本 (ym, )
o ＝ 寻找文本 (ym, “var hrs=”, , 假) ＋ 10
t ＝ 寻找文本 (ym, “；”, 0, 假)
time ＝ time ＋ 取文本中间 (ym, o, t － o) ＋ “时”
o ＝ 寻找文本 (ym, “var min=”, , 假) ＋ 10
t ＝ 寻找文本 (ym, “；”, 0, 假)
time ＝ time ＋ 取文本中间 (ym, o, t － o) ＋ “分”
o ＝ 寻找文本 (ym, “var sec=”, , 假) ＋ 10
t ＝ 寻找文本 (ym, “；”, 0, 假)
time ＝ time ＋ 取文本中间 (ym, o, t － o) ＋ “分”
返回 (到时间 (time))

.子程序 __启动窗口_创建完毕
现在时间 ＝ 获取时间 ()
现在时间 ＝ 增减时间 (现在时间, 8, 1)时钟1.时钟周期 ＝ 1000
.子程序 _时钟1_周期事件
处理事件 ()
现在时间 ＝ 增减时间 (现在时间, 8, 1)
透明标签1.标记 ＝ “网络时间” ＋ 到文本 (现在时间)
透明标签2.标题 ＝ “系统时间” ＋ 到文本 (取现行时间 ())

取出了系统时间和网络时间，接下来你就会了吧？
a="20130101" ' 这个是你设定的到期时间是2013年01月01日
_启动窗口创建
判断（透明标签1.标题＞a
信息框（“时间到期”，0，）
结束（）

写了这么长 分总该给了吧 - -！

Answer 3

把第一次开启程序的时间写到注册项去，以后启动读当前日期与第一次的时间对比》30就退出程序。没有易语言程序，只能给你这个思路。

Answer 4

有个ocx控件可以实现