|
分享源码
界面截图: |
- |
是否带模块: |
- |
备注说明: |
- |
本帖最后由 sv110123 于 2010-10-17 16:51 编辑
第一次发帖,希望大家能喜欢,
先来看看图 片
完整代码如下:
[e].版本 2
.支持库 xplib
.程序集 窗口程序集1
.子程序 _启动窗口_创建完毕
XP风格 (1)
编辑框1.内容 = 到文本 (取硬盘特征字 ())
.子程序 _按钮1_被单击
.如果 (编辑框3.内容 = 到文本 (取硬盘特征字 () × 6489 + 77173))
信息框 (“注册成功”, 0, )
载入 (窗口2, , 真)
结束 ()
.否则
信息框 (“注册失败”, 0, )
.如果结束
.子程序 _按钮2_被单击
.局部变量 机器码, 整数型
.局部变量 注册码, 文本型
机器码 = 到整数 (编辑框5.内容)
注册码 = 到文本 (机器码 × 6489 + 77173)
编辑框4.内容 = 注册码
.子程序 _透明标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
结束 ()[/e]
成品图
代码很精简,具体使用大家自由发挥
PS:
右边是根据机器码来生成注册码
左边是验证机器码和注册码来进行下一步 |
|