aideniyou1314的博客

概念网络价值500的游戏发布站源码，网站美丽漂亮

.版本 2 .支持库 eAPI .支持库 encrypt .支持库 spec .子程序 生成注册信息, 文本型, 公开 .局部变量 yp, 硬盘信息 .局部变量 cpu, CPU信息 .局部变量 a, 文本型 取硬盘信息 (yp, 0) 取CPU信息 (cpu) a ＝ cpu.序列号 ＋ “-” ＋ yp.版本号 ＋ “-” ＋ 取文本右边 (yp.序列号, 8) 返回 (a) .子程序 注册判断, 逻辑型, 公开 .参数 注册码, 文本型 .参数 机器码, 文本型 .参数 是否提示注册消息, 逻辑型, 可空 .局部变量 密码, 文本型 .局部变量 返回变量, 逻辑型 .局部变量 s, 文本型 .局部变量 L, 文本型 .局部变量 x, 整数型 .局部变量 天数, 整数型 .局部变量 试用次数, 整数型 密码 ＝ 取文本中间 (机器码, 1, 28) L ＝ 到文本 (数据解密 (注册码, 密码, 5)) x ＝ 寻找文本 (L, “&”, , 假) 试用次数 ＝ 到整数 (取文本左边 (L, x － 1)) x ＝ 倒找文本 (L, “&”, , 假) 天数 ＝ 到整数 (取文本右边 (L, 取文本长度 (L) － x)) s ＝ 到文本 (试用次数) ＋ “&” ＋ 取文本右边 (机器码, 10) ＋ 取文本中间 (机器码, 6, 10) ＋ 密码 ＋ “&” ＋ 到文本 (天数) 调试输出 (“注册值”, s, “注册码”, L, 注册码, 试用次数, 天数, ) .判断开始 (s ＝ L) .如果真 (是否提示注册消息 ＝ 真) 系统_出错信息 (“感谢您成功注册本软件”, 假, “感谢您成功注册本软件”, 64) .如果真结束 返回变量 ＝ 真 .默认 .如果真 (是否提示注册消息 ＝ 真) 系统_出错信息 (“注册码错误”, 假, ) .如果真结束 返回变量 ＝ 假 .判断结束 返回 (返回变量)

.版本 2 .支持库 iext .子程序 _退出_被选择 销毁 () .子程序 _删除被选注册码_被选择 .如果真 (注册码列表框.现行选中项 ＝ -1) 信息框 (“===== 您没有选中需要删除的注册码 =====”, 0, “提示”) 返回 () .如果真结束 .如果真 (信息框 (“===== 您确定要删除被选的注册码 吗 =====”, #是否钮, “提示”) ＝ #是钮) 注册码列表框.删除表项 (注册码列表框.现行选中项) .如果真结束 .子程序 _清空所有注册码_被选择 .如果真 (信息框 (“===== 您确定要清空所有的注册码 吗 =====”, #是否钮, “提示”) ＝ #是钮) 注册码列表框.全部删除 () .如果真结束 .子程序 _置用户在线_被选择 .局部变量 n1, 整数型 用户列表框.置标题 (用户列表框.现行选中项, 3, “在线”) .计次循环首 (用户列表框.取表项数 (), n1) .如果真 (用户列表框.取标题 (n1 － 1, 2) ＝ “”) 用户列表框.删除表项 (n1 － 1) .如果真结束 .计次循环尾 () .子程序 _置用户离线_被选择 .局部变量 n1, 整数型 用户列表框.置标题 (用户列表框.现行选中项, 3, “离线”) .计次循环首 (用户列表框.取表项数 (), n1) .如果真 (用户列表框.取标题 (n1 － 1, 2) ＝ “”) 用户列表框.删除表项 (n1 － 1) .如果真结束 .计次循环尾 () .子程序 _置所有用户在线_被选择 .局部变量 n1, 整数型 .如果真 (信息框 (“===== 您确定将所有用户状态 设置为 在线吗 =====”, #是否钮, “提示”) ＝ #否钮) 返回 () .如果真结束 .计次循环首 (用户列表框.取表项数 (), n1) .如果真 (用户列表框.取标题 (n1 － 1, 3) ＝ “离线”) 用户列表框.置标题 (n1 － 1, 3, “在线”) .如果真结束 处理事件 () .如果真 (用户列表框.取标题 (n1 － 1, 2) ＝ “”) 用户列表框.删除表项 (n1 － 1) .如果真结束 .计次循环尾 () .子程序 _置所有用户离线_被选择 .局部变量 n1, 整数型 .如果真 (信息框 (“===== 您确定将所有用户状态 设置为 离线吗 =====”, #是否钮, “提示”) ＝ #否钮) 返回 () .如果真结束 .计次循环首 (用户列表框.取表项数 (), n1) .如果真 (用户列表框.取标题 (n1 － 1, 3) ＝ “在线”) 用户列表框.置标题 (n1 － 1, 3, “离线”) .如果真结束 处理事件 () .如果真 (用户列表框.取标题 (n1 － 1, 2) ＝ “”) 用户列表框.删除表项 (n1 － 1) .如果真结束 .计次循环尾 ()

使用方法在压缩包内.可以永久使用该工具，汉化可以找我要汉化方法