- UID
- 26439
注册时间2007-1-1
阅读权限40
最后登录1970-1-1
独步武林
该用户从未签到
|
楼主 |
发表于 2007-8-16 21:37:38
|
显示全部楼层
恩,是程序上有些问题哈,我把源码贴出来,高手看一下!
.版本 2
.程序集 窗口程序集1
.子程序 _按钮3_被单击
结束 ()
.子程序 _按钮2_被单击
.子程序 _按钮1_被单击
.局部变量 name, 文本型
.局部变量 sn, 文本型
.局部变量 ljbl, 逻辑型
.如果 (编辑框1.内容 = “”)
信息框 (“请输入用户名”, 0, “提示”)
.否则
.如果 (编辑框2.内容 = “”)
信息框 (“请输入注册码”, 0, “提示”)
.否则
name = 编辑框1.内容
sn = 编辑框2.内容
ljbl = 写注册项 (3, “Software\Microsoft\Notepad\name”, name)
ljbl = 写注册项 (3, “Software\Microsoft\Notepad\sn”, sn)
信息框 (“请重启软件已验证注册码是否正确”, 0, “提示”)
.如果结束
.如果结束
.子程序 _标签3_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 name, 文本型
.局部变量 sn, 文本型
.局部变量 len, 整数型
.局部变量 i, 整数型
.局部变量 c, 整数型
.局部变量 gdzh, 整数型
.局部变量 sum, 整数型
.局部变量 real, 逻辑型
name = 取文本注册项 (3, “Software\Microsoft\Notepad\name”, )
sn = 取文本注册项 (3, “Software\Microsoft\Notepad\sn”, )
.如果真 (name = “”)
.如果真 (sn = “”)
len = 取文本长度 (name)
gdzh = 1383838438
.计次循环首 (len, i)
c = 位异或 (取代码 (name, i), gdzh)
sum = c × 96 + 459478830
sum = sum × len
.计次循环尾 ()
.如果 (sn = 到文本 (sum))
标签4.标题 = “未注册”
.否则
标签4.标题 = “已注册”
.如果结束
.如果真结束
.如果真结束
标签4.标题 = “未注册” |
|