怎么在自己软件上设置时间。会的发下源码给我，求助。

baisheng001

.版本 2
.支持库 spec

软件时间 ＝ 201110201838  ' 软件使用到期日期
.如果 (取月份 (取北京时间 ()) ＜ 10)
    月份整理 ＝ “0” ＋ 到文本 (取月份 (取北京时间 ()))
.否则
    月份整理 ＝ 到文本 (取月份 (取北京时间 ()))
.如果结束

.如果 (取日 (取北京时间 ()) ＜ 10)
    日期整理 ＝ “0” ＋ 到文本 (取日 (取北京时间 ()))
.否则
    日期整理 ＝ 到文本 (取日 (取北京时间 ()))
.如果结束

.如果 (取小时 (取北京时间 ()) ＜ 10)
    小时 ＝ “0” ＋ 到文本 (取小时 (取北京时间 ()))
.否则
    小时 ＝ 到文本 (取小时 (取北京时间 ()))
.如果结束

.如果 (取分钟 (取北京时间 ()) ＜ 10)
    分钟 ＝ “0” ＋ 到文本 (取分钟 (取北京时间 ()))
.否则
    分钟 ＝ 到文本 (取分钟 (取北京时间 ()))
.如果结束
现在时间 ＝ 到数值 (到文本 (取年份 (取北京时间 ())) ＋ 月份整理 ＋ 日期整理 ＋ 小时 ＋ 分钟)
调试输出 (现在时间)
.如果 (现在时间 ＜ 软件时间)
    _启动窗口.标题 ＝ “软件正常使用中”


.否则
    信息框 (“软件已过期，请联系作者续期”, 0, “提示”)

    销毁 ()

边缘浪子

最简单的是就是加判断流程

a906447629

我有  时间到了是不是软件就不能用？   如果是的话联系QQ：431231353

louscwlh

永不永不说后悔 发表于 2011-12-15 10:21
设置时间限制，或者次数限制，用完了指定的次数之后，窗口自动销毁，

exe文件加密器  或者vprotect

叁苏传媒

你可以看下，或许对你有用。

.版本 2
.支持库 internet
.子程序 _主窗口_创建完毕
加载皮肤 (28)
软件到期时间 ＝ 增减时间 (取现行时间 (), #分钟, 1)
标签5.标题 ＝ “到期时间：” ＋ 到文本 (软件到期时间)
.子程序 _时钟4_周期事件
.局部变量 现行时间, 日期时间型
.局部变量 时间数据, 文本型, , "0"
时间数据 ＝ 分割文本 (到文本 (HTTP读文件 (“http://www.beijing-time.org/time.asp”)), “=”, )
现行时间 ＝ 指定时间 (到整数 (时间数据 [3]), 到整数 (时间数据 [4]), 到整数 (时间数据 [5]), 到整数 (时间数据 [7]), 到整数 (时间数据 [8]), 到整数 (时间数据 [9]))
标签6.标题 ＝ “现行时间：” ＋ 到文本 (现行时间)
.如果真 (现行时间 ＞ 软件到期时间)
    时钟4.时钟周期 ＝ 0
    信息框 (“试用时间到期，请联系作者购买，以便我们为您提供更好的服务”, 0, )
    销毁 ()
    ' 其它代码