学 习 怎 么用 按 键 精 灵 制 作 游 戏 辅 助 ——脚本源代码干货分享 一 、 用 按 键 精 灵 确 定 人 物 朝 向 （ 以 剑 灵 自 动 寻 路 为 例 ） 的 代 码 在 剑 灵 右 上 角 的 小 地 图 里 找 色 /找 图 ， 箭 头 坐 标 存 储 在 (x1,y1)， 箭 尾 坐 标 存 储 在 (x2,y2) FindColor1200,0,1920,300,"箭 头 颜 色 ",x1,y1 If x1 > 0 And y1> 0 Then End If FindColor1200,0,1920,300,"箭 尾 颜 色 ",x2,y2 If x1 > 0 And y1> 0 Then End If '计 算 斜 率 /正 切 值 斜 率 = (y1 - y2) / (x1 -x2) '计 算 角 度 角 度 = Atn(斜 率 ) 二 、 用 按 键 精 灵 解 决 用 户 密 码 泄 露 问 题 的 代 码 Function 加 解 密 (源 文 件 , 秘 钥 ) Dim Z, i Dim A, B, C 加 解 密 = "" If Len(源 文 件 ) = 0 Then’如果密 码 为 空， 则初始化为 空 加 解 密 = "" Exit Function End If '调 用 Rnd 函 数 使 以 后 Rnd 函 数 所 产 生 的 Rnd 为 相 同 的 伪 随 机 数 列 Z = Rnd(-秘 钥 ) For i = 1 To Len(源 文 件 )’将密码字符串一个一个字符通过加密，转换成另一个字符 C = Mid(源 文 件 , i, 1) A = Asc(C) B = Int(126 * Rnd) And&H7F’这里的 &H7F，是指生 成的 伪 随 机 代码，只取 7 位，以 免数 据溢出 A = A Xor B’Xor 是可逆的 ，第一次运行时是得到加密后 的 数 据，再运行一次是得到解密后 的 数 据 C = Chr(A) 加解密 = 加解密 + C Next End Function 举 个例子吧~ Function 加解密(源 文 件 , 秘 钥 ) Dim Z, i Dim A, B, C 加解密 = "" If Len(源 文 件 ) = 0 Then 加解密 = "" Exit Function End If '调 用 Rnd 函 数 使 以 后 Rnd 函 数 所 产 生 的 Rnd 为 相 同 的 伪 随 机 数 列 Z = Rnd(-密 钥 ) For i = 1 To Len(源 文 件 ) C = Mid(源 文 件 , i, 1) A = Asc(C) B = Int(126 * Rnd) And&H7F A = A Xor B C = Chr(A) 加 解 密 = 加 解 密 + C Next End Function Event Form1.Load //获 取 小...
