限制软件使用时间例程

情劫-18 · 发表于 2010-7-3 15:48:22

并非原创者
[e]
.版本 2
.程序集窗口程序集1
.程序集变量时间值, 整数型
.程序集变量总时间, 整数型
.程序集变量剩余时间, 整数型
.子程序 __启动窗口_创建完毕
时间值＝取数值注册项 (#本地机器, “Software\3600gz”, )
.判断开始 (时间值＝ 0)
总时间＝ 10 ' 秒可以自己定义
时钟_软件计时.时钟周期＝ 1000 ' 以1秒进行软件使用计时
.默认
信息框 (“本软件使用时间已过如需继续使用请进行续费”, 0, “使用提示”)
时钟_软件计时.时钟周期＝ 0
销毁 ()
.判断结束

.子程序 _时钟_软件计时_周期事件
时间值＝时间值＋ 1
编辑框1.内容＝到文本 (总时间－时间值)
.判断开始 (时间值＝总时间)
时钟_软件计时.时钟周期＝ 0
信息框 (“本软件使用时间已过如需继续使用请进行续费”, 0, “使用提示”)
写注册项 (#本地机器, “Software\3600gz”, 1)
销毁 ()
.默认
.判断结束
输出调试文本 (时间值)

[/e]

源码地址
http://u.115.com/file/f0bcc7372f

qq764520536 · 发表于 2010-7-3 16:43:30

喔.很不错哦.

temp0123 · 发表于 2010-7-4 01:44:33

这个源码看下来不严谨，如果我每次使用9秒就关了程序，那就一直可以用。
注册表项应该直接写进去剩余时间，然后每次读出来，而不要用1和0表示能不能用。

shandianhym · 发表于 2010-7-27 16:01:34

ddddddddddddddddddddddddddddddddddddddddddddd

棒棒糖 · 发表于 2010-8-10 09:11:19

这个不错我喜欢

qw39537987 · 发表于 2010-8-20 15:35:48

我也来学习一下！！！

原叶 · 发表于 2010-8-24 13:58:48

回复 1# 情劫-18

{:3_228:}

原叶 · 发表于 2010-8-24 14:32:16

回复 1# 情劫-18

{:3_216:} 正须要呢，

qjt555 · 发表于 2010-9-14 03:10:33

好东西学习下！

c434952207 · 发表于 2010-9-17 17:06:18

不错谢谢分享

		自动登录	找回密码
密码			注册

[易源码分享] 限制软件使用时间例程

点评