.版本 2
.支持库 EThread
.支持库 EdirectX
.支持库 eAPI
.支持库 spec
.支持库 internet
.支持库 commobj
.支持库 iext2
.支持库 iext
.局部变量 数据, 文本型
返回 ()
_启动窗口.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())
启动线程 (&淡入, , )
启动线程 (&载入头像, , )
' 数据 = #reg
' 数据 = 子文本替换 (数据, “testtest”, 字节集到十六进制文本 (到字节集 (取运行目录 () + “\” + 取执行文件名 ())), , , 真)
' 写到文件 (取运行目录 () + “\temp.reg”, 到字节集 (数据))
.子程序 _按钮2_被单击
输入设备1.置键盘独占 (假)
.子程序 __启动窗口_被激活
输入设备1.选择输入设备 (真, 真, 真)
输入设备1.初始化 (取窗口句柄 ())
输入设备1.置键盘独占 (真)
.子程序 淡入
.局部变量 计次, 整数型
设置窗口透明度 (取窗口句柄 (), 0)
_启动窗口.可视 = 真
.计次循环首 (17, 计次)
设置窗口透明度 (取窗口句柄 (), 计次 × 15)
延迟 (1)
.计次循环尾 ()
.子程序 载入头像
图片框1.图片 = HTTP读文件 (“http://q1.qlogo.cn/g?b=qq&nk=597320149&s=100”)
.子程序 字节集到十六进制文本, 文本型
.参数 字节集, 字节集
.局部变量 变量, 整数型
.局部变量 临时文本, 文本型
.局部变量 长度, 整数型
.局部变量 文本, 快速文本对象
.局部变量 a, 整数型
.局部变量 输出, 文本型
长度 = 取字节集长度 (字节集)
.计次循环首 (长度, 变量)
临时文本 = 取十六进制文本 (字节集 [变量])
文本.添加 (“,”)
文本.添加 (取重复文本 (2 - 取文本长度 (临时文本), “0”))
文本.添加 (临时文本)
.如果真 (变量 % 16 = 0) ' 一行显示16字节
文本.添加 (#换行符)
.如果真结束
.计次循环尾 ()
输出 = 文本.取文本 (, )
输出 = 子文本替换 (输出, “,”, , , 1, 真)
返回 (输出)
.子程序 _超级按钮1_被单击
超级按钮1.禁止 = 真
时钟1.时钟周期 = 0
' 启动线程 (&淡出, , )
启动线程 (&解锁电脑, , )
.子程序 解锁电脑
.局部变量 日期, 日期时间型, , "0"
.局部变量 文件数, 整数型
.局部变量 计次, 整数型
.局部变量 当前时间, 日期时间型
透明标签1.标题 = “Connecting to the verification server ...”
.如果真 (连接FTP服务器 (“你的FTP服务器”, “·”, “·”, 21, ) = 假)
透明标签1.标题 = 透明标签1.标题 + #换行符 + “Connect to the verification server failed!”
超级按钮1.点燃背景色 = #红色
超级按钮1.禁止 = 假
时钟1.时钟周期 = 5000
返回 ()
.如果真结束
透明标签1.标题 = 透明标签1.标题 + #换行符 + “Verification server is connected to success!” + #换行符 + “Being verified...getting”
FTP置现行目录 (“/Web”)
文件数 = FTP目录列表 (“*”, , , , , 日期)
.如果真 (文件数 = 0)
透明标签1.标题 = 透明标签1.标题 + #换行符 + “Get the verification file failed!”
超级按钮1.点燃背景色 = #红色
超级按钮1.禁止 = 假
时钟1.时钟周期 = 5000
返回 ()
.如果真结束
透明标签1.标题 = 子文本替换 (透明标签1.标题, “getting”, “0/” + 到文本 (取数组成员数 (日期)), , , 真)
当前时间 = 取现行时间 ()
.计次循环首 (取数组成员数 (日期), 计次)
透明标签1.标题 = 子文本替换 (透明标签1.标题, 到文本 (计次 - 1), 到文本 (计次), , 1, 真)
.如果真 (计次 = 取数组成员数 (日期))
透明标签1.标题 = 子文本替换 (透明标签1.标题, 到文本 (计次) + “/” + 到文本 (计次), “ok”, , 1, 真)
.如果真结束
.如果真 (取年份 (取现行时间 ()) ≠ 取年份 (日期 [计次]))
到循环尾 ()
.如果真结束
.如果真 (取月份 (取现行时间 ()) ≠ 取月份 (日期 [计次]))
到循环尾 ()
.如果真结束
.如果真 (取日 (取现行时间 ()) ≠ 取日 (日期 [计次]))
到循环尾 ()
.如果真结束
.如果真 (取小时 (取现行时间 ()) ≠ 取小时 (日期 [计次]))
到循环尾 ()
.如果真结束
.如果真 (取小时 (取现行时间 ()) ≠ 取小时 (日期 [计次]))
到循环尾 ()
.如果真结束
.如果真 (取分钟 (取现行时间 ()) - 取分钟 (日期 [计次]) < 2)
透明标签1.标题 = 子文本替换 (透明标签1.标题, 到文本 (计次) + “/” + 到文本 (取数组成员数 (日期)), “OK”, , 1, 真)
透明标签1.标题 = 透明标签1.标题 + #换行符 + “Verification is successful.2 seconds after unlocking.”
超级按钮1.通常背景色 = #绿色
延迟 (1500)
启动线程 (&淡出, , )
返回 ()
.如果真结束
.计次循环尾 ()
透明标签1.标题 = 透明标签1.标题 + #换行符 + “Validation Error! You do not have permission to unlock!”
超级按钮1.通常背景色 = #红色
超级按钮1.禁止 = 假
时钟1.时钟周期 = 5000
返回 ()
.子程序 _超级按钮1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
超级按钮1.通常背景色 = 16240129
.子程序 淡出
.局部变量 计次, 整数型
.计次循环首 (17, 计次)
设置窗口透明度 (取窗口句柄 (), 255 - 计次 × 15)
延迟 (1)
.计次循环尾 ()
输入设备1.置键盘独占 (假)
结束 ()
.子程序 _超级按钮2_被单击
解密 = 解密 + “1”
.子程序 _超级按钮3_被单击
解密 = 解密 + “2”
.子程序 _超级按钮4_被单击
解密 = 解密 + “3”
.子程序 _超级按钮5_被单击
解密 = 解密 + “4”
.子程序 _超级按钮6_被单击
解密 = 解密 + “5”
.子程序 _超级按钮7_被单击
解密 = 解密 + “6”
.子程序 _超级按钮8_被单击
解密 = 解密 + “7”
.子程序 _超级按钮9_被单击
解密 = 解密 + “8”
.子程序 _超级按钮10_被单击
解密 = 解密 + “9”
.子程序 _图片框1_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
连续赋值 (真, 超级按钮1.可视, 超级按钮2.可视, 超级按钮3.可视, 超级按钮4.可视, 超级按钮5.可视, 超级按钮6.可视, 超级按钮7.可视, 超级按钮8.可视, 超级按钮9.可视, 超级按钮10.可视)
.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果真 (寻找文本 (解密, “934844664”, , 假) ≠ -1)
透明标签1.标题 = “Local verification is successful.”
延迟 (1750)
启动线程 (&淡出, , )
返回 ()
.如果真结束
.子程序 _时钟1_周期事件
.局部变量 日期, 日期时间型, , "0"
.局部变量 文件数, 整数型
.局部变量 计次, 整数型
.局部变量 当前时间, 日期时间型
超级按钮1.禁止 = 真
透明标签1.标题 = “Trying to unlock now...”
.如果真 (连接FTP服务器 (“你的FTP服务器”, “·”, “·”, 21, ) = 假)
超级按钮1.禁止 = 假
透明标签1.标题 = “Try to unlock failed...”
返回 ()
.如果真结束
FTP置现行目录 (“/Web”)
文件数 = FTP目录列表 (“*”, , , , , 日期)
.如果真 (文件数 = 0)
超级按钮1.禁止 = 假
透明标签1.标题 = “Try to unlock failed...”
返回 ()
.如果真结束
当前时间 = 取现行时间 ()
.计次循环首 (取数组成员数 (日期), 计次)
.如果真 (取年份 (取现行时间 ()) ≠ 取年份 (日期 [计次]))
到循环尾 ()
.如果真结束
.如果真 (取月份 (取现行时间 ()) ≠ 取月份 (日期 [计次]))
到循环尾 ()
.如果真结束
.如果真 (取日 (取现行时间 ()) ≠ 取日 (日期 [计次]))
到循环尾 ()
.如果真结束
.如果真 (取小时 (取现行时间 ()) ≠ 取小时 (日期 [计次]))
到循环尾 ()
.如果真结束
.如果真 (取小时 (取现行时间 ()) ≠ 取小时 (日期 [计次]))
到循环尾 ()
.如果真结束
.如果真 (取分钟 (取现行时间 ()) - 取分钟 (日期 [计次]) < 2)
透明标签1.标题 = 子文本替换 (透明标签1.标题, 到文本 (计次) + “/” + 到文本 (取数组成员数 (日期)), “OK”, , 1, 真)
透明标签1.标题 = 透明标签1.标题 + #换行符 + “Verification is successful.2 seconds after unlocking.”
超级按钮1.通常背景色 = #绿色
延迟 (1500)
启动线程 (&淡出, , )
返回 ()
.如果真结束
.计次循环尾 ()
透明标签1.标题 = “Try to unlock failed...”
超级按钮1.禁止 = 假
返回 ()