.版本 2 .支持库 iext .程序集 窗口程序集1 .程序集变量 ajl, 逻辑型 .程序集变量 ajl2, 逻辑型 .程序集变量 gjl2, 逻辑型 .程序集变量 asl2, 逻辑型 .程序集变量 加了, 逻辑型 .程序集变量 窗口句柄, 整数型 .子程序 _窗口1_创建完毕 ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _加入_被单击 .局部变量 i, 整数型 .如果 (按键时间.内容 ≠ “” 且 按键时间.内容 ≠ “0”) .如果 (超级列表框1.取表项数 () ≠ 8) .计次循环首 (超级列表框1.取表项数 (), i) .如果 (超级列表框1.取标题 (i － 1, 0) ＝ 组合框9.取项目文本 (组合框9.现行选中项)) 超级列表框1.置标题 (i － 1, 1, 按键时间.内容) 加了 ＝ 真 跳出循环 () .否则 ' 本源码来自三叶资源网(www.sanye.cx) .如果结束 加了 ＝ 假 .计次循环尾 () .如果 (加了 ＝ 假) 超级列表框1.插入表项 (, 组合框9.取项目文本 (组合框9.现行选中项), , , , ) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 按键时间.内容) 加了 ＝ 假 .否则 加了 ＝ 假 .如果结束 .否则 .如果结束 .否则 .如果结束 .子程序 _去除_被单击 .如果 (超级列表框1.现行选中项 ≠ -1) 超级列表框1.删除表项 (超级列表框1.现行选中项) .否则 .如果结束 .子程序 按键了 .如果 (ajl2 ＝ 假) 自动按键.选中 ＝ 真 加入.禁止 ＝ 真 去除.禁止 ＝ 真 按键时间.禁止 ＝ 真 组合框9.禁止 ＝ 真 .如果真 (超级列表框1.取标题 (0, 0) ≠ “”) 按键模拟时钟1.时钟周期 ＝ 到数值 (超级列表框1.取标题 (0, 1)) × 1000 ' 本源码来自三叶资源网(www.sanye.cx) .如果真结束 .如果真 (超级列表框1.取标题 (1, 0) ≠ “”) 按键模拟时钟2.时钟周期 ＝ 到数值 (超级列表框1.取标题 (1, 1)) × 1000 .如果真结束 .如果真 (超级列表框1.取标题 (2, 0) ≠ “”) 按键模拟时钟3.时钟周期 ＝ 到数值 (超级列表框1.取标题 (2, 1)) × 1000 .如果真结束 .如果真 (超级列表框1.取标题 (3, 0) ≠ “”) 按键模拟时钟4.时钟周期 ＝ 到数值 (超级列表框1.取标题 (3, 1)) × 1000 .如果真结束 .如果真 (超级列表框1.取标题 (4, 0) ≠ “”) 按键模拟时钟5.时钟周期 ＝ 到数值 (超级列表框1.取标题 (4, 1)) × 1000 .如果真结束 .如果真 (超级列表框1.取标题 (5, 0) ≠ “”) 按键模拟时钟6.时钟周期 ＝ 到数值 (超级列表框1.取标题 (5, 1)) × 1000 .如果真结束 .如果真 (超级列表框1.取标题 (6, 0) ≠ “”) 按键模拟时钟7.时钟周期 ＝ 到数值 (超级列表框1.取标题 (6, 1)) × 1000 ' 本源码来自三叶资源网(www.sanye.cx) .如果真结束 .如果真 (超级列表框1.取标题 (7, 0) ≠ “”) 按键模拟时钟8.时钟周期 ＝ 到数值 (超级列表框1.取标题 (7, 1)) × 1000 .如果真结束 ajl2 ＝ 真 .否则 .如果 (ajl2 ＝ 真) 按键模拟时钟1.时钟周期 ＝ 0 按键模拟时钟2.时钟周期 ＝ 0 按键模拟时钟3.时钟周期 ＝ 0 按键模拟时钟4.时钟周期 ＝ 0 按键模拟时钟5.时钟周期 ＝ 0 按键模拟时钟6.时钟周期 ＝ 0 按键模拟时钟7.时钟周期 ＝ 0 按键模拟时钟8.时钟周期 ＝ 0 加入.禁止 ＝ 假 去除.禁止 ＝ 假 按键时间.禁止 ＝ 假 组合框9.禁止 ＝ 假 自动按键.选中 ＝ 假 ajl2 ＝ 假 .否则 .如果结束 .如果结束 .子程序 _自动按键_被单击 按键了 () .子程序 _按键模拟时钟1_周期事件, , , 开始按键模拟1 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (0, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (0, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (0, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (0, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (0, 0), 1), 真, 3) .子程序 _按键模拟时钟2_周期事件, , , 开始按键模拟2 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (1, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (1, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (1, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (1, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (1, 0), 1), 真, 3) ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _按键模拟时钟3_周期事件, , , 开始按键模拟3 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (2, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (2, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (2, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (2, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (2, 0), 1), 真, 3) .子程序 _按键模拟时钟4_周期事件, , , 开始按键模拟4 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (3, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (3, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (3, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (3, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (3, 0), 1), 真, 3) .子程序 _按键模拟时钟5_周期事件, , , 开始按键模拟5 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (4, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (4, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (4, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (4, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (4, 0), 1), 真, 3) .子程序 _按键模拟时钟6_周期事件, , , 开始按键模拟6 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (5, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (5, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (5, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (5, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (5, 0), 1), 真, 3) .子程序 _按键模拟时钟7_周期事件, , , 开始按键模拟7 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (6, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (6, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (6, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (6, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (6, 0), 1), 真, 3) .子程序 _按键模拟时钟8_周期事件, , , 开始按键模拟8 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (7, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (7, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (7, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (7, 0), 1), 真, 3) 初心者后台按键 (窗口句柄, 取代码 (超级列表框1.取标题 (7, 0), 1), 真, 3) .子程序 初心者后台按键, , 公开, 小豪独创冒险岛后台按键！ .参数 窗口句柄, 整数型 .参数 按键代码, 整数型 .参数 是否包括聊天框, 逻辑型, 可空, 可空！ 空为不包括 在聊天情况下，不会继续按键！ .参数 按键状态, 整数型, , 1 按下 2放开 3按下+放开 .如果 (是否为空 (是否包括聊天框) ＝ 真) .如果 (按键状态 ＝ 1) 发送系统消息 (窗口句柄, 256, 0, 加密转换键码 (按键代码, 1)) .否则 .如果 (按键状态 ＝ 2) 发送系统消息 (窗口句柄, 257, 0, 加密转换键码 (按键代码, 2)) .否则 .如果 (按键状态 ＝ 3) 发送系统消息 (窗口句柄, 256, 0, 加密转换键码 (按键代码, 1)) 发送系统消息 (窗口句柄, 257, 0, 加密转换键码 (按键代码, 2)) .否则 .如果结束 .如果结束 .如果结束 .否则 .如果 (是否包括聊天框 ＝ 假) .如果 (按键状态 ＝ 1) 发送系统消息 (窗口句柄, 256, 按键代码, 加密转换键码 (按键代码, 1)) .否则 .如果 (按键状态 ＝ 2) 发送系统消息 (窗口句柄, 257, 按键代码, 加密转换键码 (按键代码, 2)) .否则 .如果 (按键状态 ＝ 3) 发送系统消息 (窗口句柄, 256, 按键代码, 加密转换键码 (按键代码, 1)) 发送系统消息 (窗口句柄, 257, 按键代码, 加密转换键码 (按键代码, 2)) ' 本源码来自三叶资源网(www.sanye.cx) .否则 .如果结束 .如果结束 .如果结束 .否则 .如果 (按键状态 ＝ 1) 发送系统消息 (窗口句柄, 256, 按键代码, 加密转换键码 (按键代码, 1)) .否则 .如果 (按键状态 ＝ 2) 发送系统消息 (窗口句柄, 257, 按键代码, 加密转换键码 (按键代码, 2)) .否则 .如果 (按键状态 ＝ 3) 发送系统消息 (窗口句柄, 256, 按键代码, 加密转换键码 (按键代码, 1)) 发送系统消息 (窗口句柄, 257, 按键代码, 加密转换键码 (按键代码, 2)) .否则 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .子程序 加密转换键码, 整数型 .参数 键码, 整数型 .参数 标示, 整数型, , 1按下 2放开 .局部变量 A, 文本型 .局部变量 B, 文本型 .局部变量 C, 文本型 .如果 (标示 ＝ 1) A ＝ “00” .否则 A ＝ “C0” .如果结束 B ＝ 十到十六 (键码转换 (键码, 0)) C ＝ A ＋ B ＋ “0001” 返回 (十六到十 (C)) .子程序 十到十六, 文本型, 公开, 将十进制转换成十六进制 .参数 十进制数, 长整数型, , 待转换的十进制数 .参数 是否不去零, 逻辑型, 可空, 默认为假:去0 真:不去0 .局部变量 余数, 文本型, , "0" .局部变量 十六进制文本, 文本型 .局部变量 计次, 整数型 .局部变量 字母数组, 文本型, , "6" .局部变量 字节集, 字节集 .如果真 (是否不去零) 字节集 ＝ 到字节集 (十进制数) .计次循环首 ((取字节集长度 (字节集) ＋ 2) ＼ 3, 计次) 十六进制文本 ＝ 十六进制文本 ＋ MD5演示函数_取十六进制文本 (字节集 [计次]) .计次循环尾 () 返回 (十六进制文本) .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) 字母数组 ＝ { “A”, “B”, “C”, “D”, “E”, “F” } .循环判断首 () .判断开始 (十进制数 ％ 16 ＜ 10) 加入成员 (余数, 到文本 (十进制数 ％ 16)) .默认 加入成员 (余数, 字母数组 [十进制数 ％ 16 － 9]) .判断结束 十进制数 ＝ 十进制数 ÷ 16 .如果真 (十进制数 ＜ 16) .判断开始 (十进制数 ＜ 10) 加入成员 (余数, 到文本 (取整 (十进制数))) .默认 加入成员 (余数, 字母数组 [十进制数 － 9]) .判断结束 跳出循环 () .如果真结束 .循环判断尾 (真) .计次循环首 (取数组成员数 (余数), 计次) 十六进制文本 ＝ 十六进制文本 ＋ 到文本 (余数 [取数组成员数 (余数) － 计次 ＋ 1]) .计次循环尾 () .如果真 (取文本左边 (十六进制文本, 1) ＝ “0”) 十六进制文本 ＝ 去除首部零 (十六进制文本) .如果真结束 返回 (十六进制文本) .子程序 MD5演示函数_取十六进制文本, 文本型 .参数 数值, 整数型 返回 (多项选择 (右移 (数值, 4) ＋ 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”) ＋ 多项选择 (位与 (数值, 15) ＋ 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”)) .子程序 十六到十, 整数型, 公开, 将十六进制转换成十进制 .参数 十六进制文本, 文本型, , 待转换的十六进制文本 .局部变量 中间文本, 文本型 .局部变量 结果, 长整数型 .局部变量 容器1, 整数型 .变量循环首 (1, 取文本长度 (十六进制文本), 1, 容器1) 中间文本 ＝ 取文本中间 (十六进制文本, 容器1, 1) 结果 ＝ (寻找文本 (“0123456789ABCDEF”, 中间文本, , 真) － 1) × 求次方 (16, 取文本长度 (十六进制文本) － 容器1) ＋ 结果 .变量循环尾 () ' 本源码来自三叶资源网(www.sanye.cx) 返回 (结果) .子程序 去除首部零, 文本型 .参数 文本, 文本型 .局部变量 计次, 整数型 .计次循环首 (取文本长度 (文本), 计次) .如果真 (取文本中间 (文本, 计次, 1) ≠ “0”) 跳出循环 () .如果真结束 .计次循环尾 () 返回 (取文本右边 (文本, 取文本长度 (文本) － 计次 ＋ 1))