限制软件使用次数模块源码 程序显示剩余使用次数

.子程序 限制使用次数, 文本型, 公开, 返回剩余的使用次数
.参数 名称, 文本型, , 名称可随便取，但不要和其他重复
.参数 次数, 文本型, , 软件的试用次数
.局部变量 软件名称, 文本型
.局部变量 试用次数, 文本型
.局部变量 取试用数, 文本型

软件名称 ＝ 名称  ' 名称不要和其他重复
试用次数 ＝ 次数  ' 限制次数
.判断开始 (注册项是否存在 (#本地机器, “SOFTWARE\” ＋ 软件名称) ＝ 真)
    取试用数 ＝ 取文本注册项 (#本地机器, “SOFTWARE\” ＋ 软件名称, 软件名称)
    取试用数 ＝ 到文本 (到数值 (取试用数) － 到数值 (“1”))
    写注册项 (#本地机器, “SOFTWARE\” ＋ 软件名称, 取试用数)
.默认
    写注册项 (#本地机器, “SOFTWARE\” ＋ 软件名称, 试用次数)
.判断结束

.如果 (取试用数 ＝ “”)
    返回 (试用次数)
.否则
    返回 (取试用数)