如何为易语言软件设置试用期限？

狂云梵语

如题，求大神详解！

天中小和尚

[e]
.版本 2
.支持库 internet

.子程序 获取网络时间, 日期时间型, 公开, 网络获取百度时间 返回此时此刻时间精确到秒
.局部变量 取出的时间, 文本型
.局部变量 时间, 日期时间型
.局部变量 返回文本, 文本型
.局部变量 位置1, 整数型

返回文本 ＝ 到文本 (HTTP读文件 (“http://open.baidu.com/special/time/”))
位置1 ＝ 寻找文本 (返回文本, “window.baidu_time(”, , 假)
取出的时间 ＝ 取文本中间 (返回文本, 位置1 ＋ 18, 13)
时间 ＝ 增减时间 ([1970年1月1日8时], #秒, 到数值 (取出的时间) ÷ 1000)
返回 (时间)
[/e]

补充内容 (2014-1-17 11:56):
获取网络时间   程序检测下  时间   就可以了   自己设置个时间  一旦超过这个时间   程序就直接关闭

MY寂寞的夜

这是最简单的 ！！   不要忘记 隐藏 配置文件

[e]
.版本 2
.支持库 spec

.子程序 _按钮1_被单击

读配置项 (取运行目录 () ＋ “\时间.ini”, “设置”, “首先时间”, )
调试输出 (取时间间隔 (到时间 (读配置项 (取运行目录 () ＋ “\时间.ini”, “设置”, “首先时间”, )), 取现行时间 (), #秒))
.判断开始 (取现行时间 () ＞ 到时间 (读配置项 (取运行目录 () ＋ “\时间.ini”, “设置”, “首先时间”, )))
    信息框 (“时间到”, 0, )

.默认

.判断结束


.子程序 __启动窗口_创建完毕

.判断开始 (读配置项 (取运行目录 () ＋ “\时间.ini”, “设置”, “首先时间”, ) ＝ “”)
    写配置项 (取运行目录 () ＋ “\时间.ini”, “设置”, “首先时间”, 时间到文本 (取现行时间 (), ))

.默认

.判断结束

返回 ()
[/e]

狂云梵语

MY寂寞的夜 发表于 2014-1-17 11:56
这是最简单的 ！！   不要忘记 隐藏 配置文件

[e]

把配置文件等也写出来，试用10钟

laneagle007

小和尚说的对。。。

hsy49hsy123

[e]
.版本 2

.子程序 取北京时间, 日期时间型, 公开, 返回 日期时间型 北京时间 ，需要连接网络，断网返回 9999年9月9日9时
.局部变量 返回数据, 文本型
.局部变量 Star, 整数型
.局部变量 End, 整数型
.局部变量 取到数据, 小数型

返回数据 ＝ 彗星HTTP读文本 (“http://open.baidu.com/special/time/”)
Star ＝ 寻找文本 (返回数据, “window.baidu_time(”, , 假) ＋ 取文本长度 (“window.baidu_time(”)
End ＝ 寻找文本 (返回数据, “)”, Star, 假)
取到数据 ＝ 到数值 (取文本中间 (返回数据, Star, End － Star))
.如果真 (取到数据 ＞ 1363688160000)
    返回 (增减时间 ([1970年1月1日8时], #秒, 取到数据 ÷ 1000))
.如果真结束
返回 ([9999年9月9日9时])
[/e]

MY寂寞的夜

是这样的吧   给最佳吧   最好放到C盘里  让 别人 不好找到

MY寂寞的夜

[e]
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

读配置项 (取运行目录 () ＋ “\时间.ini”, “设置”, “首先时间”, )

.判断开始 (取时间间隔 (取现行时间 (), 到时间 (读配置项 (取运行目录 () ＋ “\时间.ini”, “设置”, “首先时间”, )), #分钟) ＞ 10)  ' 10为10分钟    在取时间间隔里设置是分钟还是 小时 等
    信息框 (“时间到”, 0, )

.默认

.判断结束


.子程序 __启动窗口_创建完毕

.判断开始 (读配置项 (取运行目录 () ＋ “\时间.ini”, “设置”, “首先时间”, ) ＝ “”)
    写配置项 (取运行目录 () ＋ “\时间.ini”, “设置”, “首先时间”, 时间到文本 (取现行时间 (), ))

.默认

.判断结束

返回 ()

[/e]

梦寻简单

直接用服务器吧。锁定IP的。电脑特征的。          就可以达到试用效果了

小冰—

可以写到注册表