图片上传不上来，那就直接点来吧！[ post].版本 2
.程序集 窗口程序集1
.程序集变量 机器码, 整数型
.程序集变量 注册码, 整数型
.程序集变量 试用剩余次数, 整数型
.程序集变量 原始数值, 整数型
.子程序 __启动窗口_创建完毕
.如果 (注册项是否存在 (#本地机器, “software\TTA\test\reg”) ＝ 真)
.如果真 (到文本 (取字节集注册项 (#本地机器, “software\TTA\test\reg”, )) ＝ “真”) ' 检查是否已注册
载入 (主程序, , 真)
_启动窗口.销毁 ()
返回 ()
.如果真结束
.否则
写注册项 (#本地机器, “software\TTA\test\reg”, 到字节集 (“假”))
.如果结束
' trials英文意思为试用，注册表内保存着剩余试用次数
.如果 (注册项是否存在 (#本地机器, “software\TTA\test\trials”) ＝ 真) ' 直接保存到配置文件不安全，保存到注册表好一些
原始数值 ＝ 取数值注册项 (#本地机器, “software\TTA\test\trials”, )
试用剩余次数 ＝ 原始数值 ＋ 5 － 9 × 4 ＋ 50 ' 试用次数也通过算法简单加密了一下
.如果真 (试用剩余次数 ＝ 0)
按钮1.禁止 ＝ 真
.如果真结束
.否则
试用剩余次数 ＝ 10 ' 第一次运行将试用次数写入注册表 这里定义的可以试用10次
原始数值 ＝ 试用剩余次数 － 5 ＋ 9 × 4 － 50
写注册项 (#本地机器, “software\TTA\test\trials”, 原始数值)
.如果结束
机器码 ＝ 取硬盘特征字 ()
注册码 ＝ 机器码 ＋ 49 － 5 × 8 ＋ 求次方 (3, 5) － 8 ＋ 2 ＋ 760524551 ' 注册码算法可以自己修改
编辑框2.内容 ＝ 到文本 (机器码)
按钮1.标题 ＝ “试用(” ＋ 到文本 (试用剩余次数) ＋ “)”
处理事件 ()
.子程序 _按钮1_被单击
试用剩余次数 ＝ 试用剩余次数 － 1
原始数值 ＝ 试用剩余次数 － 5 ＋ 9 × 4 － 50
写注册项 (#本地机器, “software\TTA\test\trials”, 原始数值)
载入 (主程序, , 假)
销毁 ()
这是部分的。麻痹的.附件也上传不了[/post]
