限制软件使用时间(网络版)两行纯代码取北京时间,一行代码判断是否过期,只用核心支持库

科学奇迹

运行时，请联网

科学奇迹

算不算盗版.我不知道首先我不喜欢打字
还有我喜欢复制
再者我喜欢改进
献上源代码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
软件到期时间	日期时间型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

软件到期时间 ＝ 增减时间 (取现行时间 (), #秒, 5)
标签2.标题 ＝ “到期时间：” ＋ 到文本 (软件到期时间)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
现行时间	日期时间型
时间数据	文本型		0

时间数据 ＝ 分割文本 (到文本 (HTTP读文件 (“http://www.beijing-time.org/time.asp”)), “=”, )
现行时间 ＝ 指定时间 (到整数 (时间数据 [3]), 到整数 (时间数据 [4]), 到整数 (时间数据 [5]), 到整数 (时间数据 [7]), 到整数 (时间数据 [8]), 到整数 (时间数据 [9]))
标签1.标题 ＝ “现行时间：” ＋ 到文本 (现行时间)
如果真 (现行时间 ＞ 软件到期时间)
时钟1.时钟周期 ＝ 0
信息框 (“软件已过期,请联系作者以便继续使用”, 0, “友情提示”)
' 其它代码

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 软件到期时间, 日期时间型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 软件到期时间 ＝ 增减时间 (取现行时间 (), #秒, 5)<br /> 标签2.标题 ＝ “到期时间：” ＋ 到文本 (软件到期时间)<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 现行时间, 日期时间型<br /> .局部变量 时间数据, 文本型, , "0"<br /> <br /> 时间数据 ＝ 分割文本 (到文本 (HTTP读文件 (“http://www.beijing-time.org/time.asp”)), “=”, )<br /> 现行时间 ＝ 指定时间 (到整数 (时间数据 [3]), 到整数 (时间数据 [4]), 到整数 (时间数据 [5]), 到整数 (时间数据 [7]), 到整数 (时间数据 [8]), 到整数 (时间数据 [9]))<br /> <br /> 标签1.标题 ＝ “现行时间：” ＋ 到文本 (现行时间)<br /> .如果真 (现行时间 ＞ 软件到期时间)<br />     时钟1.时钟周期 ＝ 0<br />     信息框 (“软件已过期,请联系作者以便继续使用”, 0, “友情提示”)<br />     ' 其它代码

Death·hacker

你的名字 好好 笑

wksam

这个可以有

huazhen88

这个还收费.........

淡入淡出

断网了 还能限制么？
估计就破了把

科学奇迹

收费系统当然要收费

科学奇迹

完美俊 发表于 2013-3-14 14:26
断网了 还能限制么？
估计就破了把

不能，此代码只是展示原理和思想，以便整合到完整的程序中

aismy

思路不错，如果是网络软件，就提示他连接后使用。

jie348

你的名字 好好 笑

稚小炜

    看看。。。。求给力