就是在一个电脑里,这个易程序只能有30天的源码
到了30天
信息框(“试用期结束”,0,)
本地取时间可以通过修改系统时间达到目的 。
网络取时间 可以通过host达到目的。
不过可以通过访问host文件也是有一定效果的。
方法1:本地验证法。
程序初次使用在注册表写入键值,键值内容最好是运行时间(系统当前时间 ),数据一定要加密
然后取系统当前时间对比,超过30天就提示。
漏洞:修改系统时间可以达到无限试用。
方法2:网络验证。
程序初次使用在注册表写入键值,键值内容最好是运行时间(系统当前时间 )。数据一定要加密
然后访问外部网站,比如bjtime一类报时网站,过滤数据取得网络时间,然后对比。
漏洞:有可能通过host转向到定制页面。
处理手段:程序提权,读取host文件检查时候劫持域名,注册表中加入试用天数键值记录,注册表尽量分布诡异。
上面2种事常用的手段。
以上代码均可以在易语言历程中得到代码。
设计到的操作,关键字:注册表 ,文件读写追问
读网络时间,到一定时间就无法使用
追答楼主你的分太少了,写这种代码比较长。所以不值得,加分的话考虑。
追问20了呜呜呜呜~~~~~求
追答- -真没诚意啊。人家求作业都是200的。你这才20./这差距。不要你200/,100总有吧。
悬赏分:5
这个改成100立马上代码。
没100......
简单的很,去本地时间没有什么意思,CMD data就能修改追问
把源码送上,不解释
追答.版本 2
.支持库 RegEx
.支持库 internet
.支持库 iext
.程序集 窗口程序集1
.程序集变量 现在时间, 日期时间型
.程序集变量 ym, 文本型
.程序集变量 o
.程序集变量 t
.程序集变量 time, 文本型
.程序集变量 正, 正则表达式
.程序集变量 w, 日期时间型
.子程序 获取时间, 日期时间型
ym = 到文本 (HTTP读文件 (“ttp://”))
正.创建 (“{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,)
结束()
写了这么长 分总该给了吧 - -!