软件使用次数与注册实例

软件名称 ＝ “测试” ' 名称不要和其他重复
试用次数 ＝ “5” ' 限制次数
.判断开始 (注册项是否存在 (#本地机器, “SOFTWARE\” ＋ 软件名称) ＝ 真)
取试用数 ＝ 取文本注册项 (#本地机器, “SOFTWARE\” ＋ 软件名称, 软件名称)
取试用数 ＝ 到文本 (到数值 (取试用数) － 到数值 (“1”))
.如果真 (取试用数 ＜ “0”)
.如果 (信息框 (“删除限制”, 0 ＋ 4, “提示”) ＝ #是钮)
删除注册项 (#本地机器, “SOFTWARE\” ＋ 软件名称)
.否则
结束 ()
.如果结束
返回 ()
.如果真结束
写注册项 (#本地机器, “SOFTWARE\” ＋ 软件名称, 取试用数)
_启动窗口.标题 ＝ “软件使用次数” ＋ “ [” ＋ 取试用数 ＋ “]”
调试输出 (取试用数)
.默认
写注册项 (#本地机器, “SOFTWARE\” ＋ 软件名称, 试用次数)