|
发表于 2011-2-16 02:58:57
|
显示全部楼层
广东省清远市
可以以下方法实现:- .版本 2
- .支持库 spec
- .程序集 窗口程序集1
- .子程序 __启动窗口_创建完毕
- 时间判断 ()
- 次数判断 ()
- .子程序 时间判断
- .局部变量 软件时间, 整数型
- .局部变量 现在时间, 整数型
- .局部变量 月份整理, 文本型
- .局部变量 日期整理, 文本型
- 软件时间 = 20110120
- .如果 (取月份 (取现行时间 ()) < 10)
- 月份整理 = “0” + 到文本 (取月份 (取现行时间 ()))
- .否则
- 月份整理 = 到文本 (取月份 (取现行时间 ()))
- .如果结束
- .如果 (取日 (取现行时间 ()) < 10)
- 日期整理 = “0” + 到文本 (取日 (取现行时间 ()))
- .否则
- 日期整理 = 到文本 (取日 (取现行时间 ()))
- .如果结束
- 现在时间 = 到数值 (到文本 (取年份 (取现行时间 ())) + 月份整理 + 日期整理)
- 调试输出 (现在时间)
- .如果 (现在时间 < 软件时间)
- _启动窗口.标题 = “软件正常使用中”
- .否则
- _启动窗口.标题 = “软件已过期”
- .如果结束
- .子程序 次数判断
- .如果 (注册项是否存在 (3, “Software\rjzc”) = 真)
- .如果 (取数值注册项 (3, “Software\rjzc”, ) > 0)
- 标签1.标题 = “软件还可以使用” + 到文本 (取数值注册项 (3, “Software\rjzc”, )) + “次”
- 写注册项 (3, “Software\rjzc”, 到数值 (取数值注册项 (3, “Software\rjzc”, ) - 1))
- .否则
- 标签1.标题 = “软件使用次数已到!”
- .如果结束
- .否则
- 写注册项 (3, “Software\rjzc”, 10)
- .如果结束
复制代码 |
|