QQ三国

吸蓝

超级模块的识图5类，怎么没法识别出来数字和字符？？而这个源码可以

.版本 2
.支持库 eCalc
.支持库 BmpOperate

.程序集 程序集1
.程序集变量 字库点阵的图片, 字库点阵集, , "0"

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


_临时子程序 ()  
返回 (0)  

.子程序 _临时子程序

'


.子程序 进制转换, 文本型, , 进行转换的子程序
.参数 被转换文本, 文本型
.参数 被转换进制, 整数型
.参数 转换的进制, 整数型
.局部变量 欲转换文本, 文本型, , , 输入的文本串
.局部变量 临时文本, 文本型, , , 存放从输入的文本串中取出的一个文本
.局部变量 临时数值, 长整数型
.局部变量 计次变量1, 整数型
.局部变量 计次变量2, 整数型
.局部变量 次方数, 大数, , , 每一位数字对应的10的次方数
.局部变量 转换的进制大数1, 大数, , , 要转换的进制-1
.局部变量 转换的进制大数, 大数, , , 要转换的进制
.局部变量 被转换进制大数, 大数, , , 被转换的进制
.局部变量 临时大数, 大数, , , 将被转换数字转换成的大数
.局部变量 余数大数, 大数, , , 存放求出的余数大数
.局部变量 数值1大数, 大数, , , 只存放1
.局部变量 临时大数1, 大数, , , 将被转换数字的每一位转换成的大数

.如果真 (被转换进制 ＜ 2 或 转换的进制 ＜ 2 或 被转换进制 ＞ 36 或 转换的进制 ＞ 36)  ' 判断两个“进制系数”是否正确
    返回 (“参数错误-进制只能在2-36之间”)
.如果真结束
被转换文本 ＝ 到大写 (到半角 (被转换文本))  ' 规范参数
.变量循环首 (1, 取文本长度 (被转换文本), 1, 计次变量1)  ' 判断输入的数字文本是否有效
    临时文本 ＝ 取文本中间 (被转换文本, 计次变量1, 1)
    .如果真 (寻找文本 (取文本左边 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 被转换进制), 临时文本, , 假) ＝ -1)
        临时文本 ＝ “参数错误-” ＋ 被转换文本 ＋ “不是一个有效的” ＋ 取文本左边 (数值到金额 (被转换进制, 真), 取文本长度 (数值到金额 (被转换进制, 真)) － 4) ＋ “进制数！”
        跳出循环 ()
    .如果真结束
    ' 全部查找完毕
    .如果真 (计次变量1 ＝ 取文本长度 (被转换文本))
        临时文本 ＝ “”
    .如果真结束

.变量循环尾 ()

' 如果临时文本不为空，说明此数字文本无效！
.如果真 (临时文本 ≠ “”)
    返回 (临时文本)
.如果真结束
' 以上为数据正确性校验处理代码

.如果真 (被转换进制 ＝ 转换的进制)  ' 相同时，不用进行转换
    返回 (被转换文本)
.如果真结束

.变量循环首 (1, 取文本长度 (被转换文本), 1, 计次变量1)  ' 先将要转换的数字放入大数中
    次方数.导入数字 (1)  ' 数值1不能直接和大数类型计算，所以先放入一个大数中
    被转换进制大数.导入数字 (被转换进制)
    .计次循环首 (取文本长度 (被转换文本) － 计次变量1, 计次变量2)  ' 求次方
        次方数 ＝ 次方数.乘 (被转换进制大数)
    .计次循环尾 ()

    临时大数1.导入数字 (寻找文本 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 取文本中间 (被转换文本, 计次变量1, 1), , 真) － 1)
    临时大数1 ＝ 临时大数1.乘 (次方数)
    临时大数 ＝ 临时大数1.加 (临时大数)  ' 临时大数即为最后转换成的大数
.变量循环尾 ()
转换的进制大数1.导入数字 (转换的进制 － 1)
转换的进制大数.导入数字 (转换的进制)
数值1大数.导入数字 (1)  ' 数值1不能直接和大数类型计算，所以先放入一个大数中
.判断循环首 (临时大数.大于 (转换的进制大数1) ＝ 真)  ' 开始进制转换,除进制数取余数
    余数大数 ＝ 临时大数.求余 (转换的进制大数)  ' 求出的余数
    临时大数1 ＝ 余数大数.加 (数值1大数)  ' 求出的余数＋1
    临时数值 ＝ 到数值 (临时大数1.导出文本 ())  ' 最后的余数
    欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 临时数值, 1) ＋ 欲转换文本  ' 找出每一个余数对应的数字
    临时大数 ＝ 临时大数.除 (转换的进制大数, 10)  ' 取出剩余的数字
    临时大数 ＝ 临时大数.取整数 ()
.判断循环尾 ()
临时数值 ＝ 临时大数.导出整数 ()  ' 最后剩下的余数
欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 临时数值 ＋ 1, 1) ＋ 欲转换文本  ' 整数转换结束
返回 (欲转换文本)

.子程序 设置字库绝对路径, 整数型, 公开, 本源码为初级学习源码，功能和速度方面可能有一些限制，如果想要超级版本无限制源码请联系扣扣--363850095
.参数 取字库绝对路径, 文本型
.局部变量 文件号, 整数型
.局部变量 字库总文本, 文本型
.局部变量 字库点阵分割, 文本型, , "0"
.局部变量 第几个点阵, 整数型
.局部变量 单个点阵文本, 文本型
.局部变量 单个点阵信息, 文本型, , "0"
.局部变量 判断点阵是否需要进行补码, 文本型
.局部变量 位数判断, 文本型
.局部变量 需要补多少个码, 整数型
.局部变量 提取真实点阵第一步, 文本型
.局部变量 解码第一步, 整数型
.局部变量 提取真实点阵第二步, 文本型
.局部变量 真实点阵文本, 文本型
.局部变量 补码数据文本, 文本型
.局部变量 填位, 整数型
.局部变量 补码后的点阵信息文本, 文本型
.局部变量 从新排列点阵, 文本型, , "0"
.局部变量 起始位置, 整数型
.局部变量 X, 整数型
.局部变量 点阵生成图片, 位图
.局部变量 图片X, 整数型
.局部变量 图片Y, 整数型
.局部变量 横数, 整数型
.局部变量 中间提取, 整数型
.局部变量 真实位置, 整数型
.局部变量 新的位图, 位图

文件号 ＝ 打开文件 (取字库绝对路径, , )
.如果 (文件号 ≠ 0)
    字库总文本 ＝ 读入文本 (文件号, )
    关闭文件 (文件号)
    字库点阵分割 ＝ 分割文本 (字库总文本, #换行符, )
    重定义数组 (字库点阵的图片, 假, 取数组成员数 (字库点阵分割))
    .计次循环首 (取数组成员数 (字库点阵分割), 第几个点阵)
        单个点阵文本 ＝ 字库点阵分割 [第几个点阵]
        单个点阵信息 ＝ 分割文本 (单个点阵文本, “$”, )
        判断点阵是否需要进行补码 ＝ 取文本左边 (单个点阵信息 [1], 4)

        位数判断 ＝ 进制转换 (判断点阵是否需要进行补码, 16, 2)
        .如果 (位数判断 ＝ “0”)
            需要补多少个码 ＝ 16
        .否则
            需要补多少个码 ＝ 16 － 取文本长度 (位数判断)
        .如果结束

        .如果 (需要补多少个码 ＝ 0)
            提取真实点阵第一步 ＝ 进制转换 (单个点阵信息 [1], 16, 2)
            解码第一步 ＝ 取文本长度 (提取真实点阵第一步) ％ 11
            提取真实点阵第二步 ＝ 取文本左边 (提取真实点阵第一步, 取文本长度 (提取真实点阵第一步) － 解码第一步)
            真实点阵文本 ＝ 提取真实点阵第二步
        .否则

            补码数据文本 ＝ “”
            .计次循环首 (需要补多少个码, 填位)
                补码数据文本 ＝ 补码数据文本 ＋ “0”
            .计次循环尾 ()
            补码后的点阵信息文本 ＝ 补码数据文本 ＋ 进制转换 (单个点阵信息 [1], 16, 2)
            解码第一步 ＝ 取文本长度 (补码后的点阵信息文本) ％ 11
            提取真实点阵第二步 ＝ 取文本左边 (补码后的点阵信息文本, 取文本长度 (补码后的点阵信息文本) － 解码第一步)
            真实点阵文本 ＝ 提取真实点阵第二步
        .如果结束
        横数 ＝ 取文本长度 (真实点阵文本) ÷ 11
        .如果 (到整数 (单个点阵信息 [4]) ≥ 11)
            点阵生成图片.载入数据 (创建纯色位图 (横数, 11, #黑色, 24))
        .否则
            .如果 (到整数 (单个点阵信息 [4]) ＜ 11)
                点阵生成图片.载入数据 (创建纯色位图 (横数, 到整数 (单个点阵信息 [4]), #黑色, 24))
            .否则

            .如果结束

        .如果结束

        图片X ＝ 0
        图片Y ＝ 0
        中间提取 ＝ 取文本长度 (提取真实点阵第二步)
        .计次循环首 (中间提取, 真实位置)
            .如果 (取文本中间 (真实点阵文本, 真实位置, 1) ＝ “1”)
                点阵生成图片.置某点颜色 (图片X, 图片Y, #白色)
            .否则

            .如果结束

            .如果 (图片Y ＋ 1 ＝ 11)
                图片Y ＝ 0
                图片X ＝ 图片X ＋ 1
            .否则
                图片Y ＝ 图片Y ＋ 1
            .如果结束

        .计次循环尾 ()
        字库点阵的图片 [第几个点阵].图片 ＝ 点阵生成图片.取位图数据 ()
        字库点阵的图片 [第几个点阵].名称 ＝ 单个点阵信息 [2]
    .计次循环尾 ()
    返回 (1)
.否则
    返回 (0)
.如果结束


.子程序 创建纯色位图, 字节集
.参数 宽, 整数型
.参数 高, 整数型
.参数 color, 整数型
.参数 位深, 整数型, 可空
.局部变量 总大小, 整数型
.局部变量 颜色数据长度, 整数型
.局部变量 单行长度, 整数型
.局部变量 颜色, 字节集
.局部变量 bin, 字节集
.局部变量 单行数据, 字节集
.局部变量 补位数, 整数型

.如果真 (位深 ≠ 32 且 位深 ≠ 24)
    位深 ＝ 32
.如果真结束


.判断开始 (位深 ＝ 24)
    补位数 ＝ 宽 ％ 4
.判断 (位深 ＝ 32)
    补位数 ＝ 0
.默认

    ' 输出调试文本 (“不支持的位图深度”)
.判断结束

单行长度 ＝ 宽 × 位深 ÷ 8 ＋ 补位数
颜色数据长度 ＝ 单行长度 × 高
总大小 ＝ 54 ＋ 颜色数据长度

颜色 ＝ 取空白字节集 (位深 ÷ 8)
bin ＝ 到字节集 (color)
颜色 [1] ＝ bin [3]
颜色 [2] ＝ bin [2]
颜色 [3] ＝ bin [1]
单行数据 ＝ 取重复字节集 (宽, 颜色) ＋ 取空白字节集 (补位数)

返回 ({ 66, 77 } ＋ 到字节集 (总大小) ＋ { 0, 0, 0, 0 } ＋ { 54, 0, 0, 0 } ＋ { 40, 0, 0, 0 } ＋ 到字节集 (宽) ＋ 到字节集 (高) ＋ { 1, 0 } ＋ 到字节集 (到字节 (位深)) ＋ { 0 } ＋ { 0, 0, 0, 0 } ＋ 到字节集 (颜色数据长度) ＋ { 196, 14, 0, 0, 196, 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 取重复字节集 (高, 单行数据))


.子程序 图片_找字, 整数型, 公开, 本源码为初级学习源码，功能和速度方面可能有一些限制，如果想要超级版本无限制源码请联系扣扣--363850095
.参数 A图像, 字节集
.参数 X1, 整数型
.参数 Y1, 整数型
.参数 X2, 整数型
.参数 Y2, 整数型
.参数 欲找字, 文本型, , "长安|洛阳"
.参数 色彩描述, 文本型, , "9f2e3f-000000|9f2e3f-000000"
.参数 相似度, 整数型
.参数 Xin, 整数型, 参考
.参数 Yin, 整数型, 参考
.局部变量 源图像宽度, 整数型
.局部变量 源图像高度, 整数型
.局部变量 数据大小, 整数型
.局部变量 实际数宽, 整数型
.局部变量 当前行, 整数型
.局部变量 行首点, 整数型
.局部变量 当前列, 整数型
.局部变量 合成, 字节集
.局部变量 坐标Y, 整数型
.局部变量 坐标X, 整数型
.局部变量 R值, 整数型
.局部变量 G值, 整数型
.局部变量 B值, 整数型
.局部变量 色彩描述分割, 文本型, , "0"
.局部变量 加入色彩描述值, 整数型
.局部变量 将颜色描述分割, 文本型, , "0"
.局部变量 色彩存放数组, 色彩描述集, , "0"
.局部变量 多少个原偏色值, 整数型
.局部变量 绝对值R, 整数型
.局部变量 绝对值G, 整数型
.局部变量 绝对值B, 整数型
.局部变量 相似值, 双精度小数型
.局部变量 相似度简化, 双精度小数型
.局部变量 字体图, 文本型, , "0"
.局部变量 第几个字, 整数型
.局部变量 字库位置, 整数型
.局部变量 正确位置, 整数型
.局部变量 找到字, 整数型
.局部变量 EDFS, 字节集

源图像宽度 ＝ 取字节集数据 (取字节集中间 (A图像, 19, 4), #整数型, )
源图像高度 ＝ 取字节集数据 (取字节集中间 (A图像, 23, 4), #整数型, )
数据大小 ＝ 取字节集数据 (取字节集中间 (A图像, 35, 4), #整数型, )
实际数宽 ＝ 数据大小 ÷ 源图像高度
坐标X ＝ 0
坐标Y ＝ 0
行首点 ＝ 0
当前列 ＝ 0
R值 ＝ 0
G值 ＝ 0
B值 ＝ 0
色彩描述分割 ＝ 分割文本 (色彩描述, “|”, )
多少个原偏色值 ＝ 取数组成员数 (色彩描述分割)
重定义数组 (色彩存放数组, 假, 多少个原偏色值)
绝对值R ＝ 0
绝对值G ＝ 0
绝对值B ＝ 0
相似度简化 ＝ 相似度 ÷ 100
.计次循环首 (多少个原偏色值, 加入色彩描述值)
    将颜色描述分割 ＝ 分割文本 (色彩描述分割 [加入色彩描述值], “-”, )
    色彩存放数组 [加入色彩描述值].原色值R ＝ 到整数 (进制转换 (取文本左边 (将颜色描述分割 [1], 2), 16, 10))
    色彩存放数组 [加入色彩描述值].原色值G ＝ 到整数 (进制转换 (取文本中间 (将颜色描述分割 [1], 3, 2), 16, 10))
    色彩存放数组 [加入色彩描述值].原色值B ＝ 到整数 (进制转换 (取文本右边 (将颜色描述分割 [1], 2), 16, 10))
    色彩存放数组 [加入色彩描述值].偏色值R ＝ 到整数 (进制转换 (取文本左边 (将颜色描述分割 [2], 2), 16, 10))
    色彩存放数组 [加入色彩描述值].偏色值G ＝ 到整数 (进制转换 (取文本中间 (将颜色描述分割 [2], 3, 2), 16, 10))
    色彩存放数组 [加入色彩描述值].偏色值B ＝ 到整数 (进制转换 (取文本右边 (将颜色描述分割 [2], 2), 16, 10))
.计次循环尾 ()
.变量循环首 (Y1, 源图像高度 － 1, 1, 坐标Y)
    .变量循环首 (X1, 源图像宽度 － 1, 1, 坐标X)
        置入代码 ({ 139, 69, 248, 43, 69, 232, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 228, 139, 69, 236, 187, 3, 0, 0, 0, 247, 227, 3, 69, 228, 137, 69, 224, 51, 192, 139, 93, 8, 139, 27, 139, 77, 224, 138, 68, 25, 7, 137, 69, 212, 138, 68, 25, 8, 137, 69, 216, 138, 68, 25, 9, 137, 69, 220 })
        .计次循环首 (多少个原偏色值, 加入色彩描述值)
            .如果 (_相加 (色彩存放数组 [加入色彩描述值].偏色值R, 色彩存放数组 [加入色彩描述值].偏色值G, 色彩存放数组 [加入色彩描述值].偏色值B) ＝ 0)
                绝对值R ＝ 两数相减 (R值, 色彩存放数组 [加入色彩描述值].原色值R)
                绝对值G ＝ 两数相减 (G值, 色彩存放数组 [加入色彩描述值].原色值G)
                绝对值B ＝ 两数相减 (B值, 色彩存放数组 [加入色彩描述值].原色值B)
                相似值 ＝ 1 － _相加 (绝对值R, 绝对值G, 绝对值B) ÷ 255
                .如果 (相似值 ≥ 相似度简化 且 相似值 ≤ 1)
                    A图像 [当前列] ＝ 255
                    A图像 [当前列 ＋ 1] ＝ 255
                    A图像 [当前列 ＋ 2] ＝ 255
                    跳出循环 ()
                .否则
                    A图像 [当前列] ＝ 0
                    A图像 [当前列 ＋ 1] ＝ 0
                    A图像 [当前列 ＋ 2] ＝ 0
                .如果结束
                ' --========  易语言资源网  (该链接无法确定安全)  ======--
                ' 努力创建完善、持续更新的易语言学习例程源码资源站
                ' --================   该链接无法确定安全  ===========--
                ' --==================   易语言资源网注意事项  ================--
                ' * 易语言资源网为易语言官方站、易语言官方论坛提供 资源站；
                ' 本易语言资源网( 该链接无法确定安全)所有软件和资料均为软件作者提
                ' 供和网友推荐发布而来，其版权归该软件和程序源码的合法拥有者所
                ' 有，本站易语言资源网整理收集仅供易语言用户学习和易语言技术研
                ' 究探讨使用，不得用于任何商业用途。如果由于以上原因造成的版权
                ' 纠纷本站概不负责！
                ' * 本站资源未经许可，任何网站不得非法盗链及抄袭本站资源；如引用
                ' 页面，请注明来自易语言资源网，谢谢合作！
                ' --=====================   该链接无法确定安全  ================--

            .否则
                绝对值R ＝ 两数相减 (R值, 色彩存放数组 [加入色彩描述值].原色值R)
                绝对值G ＝ 两数相减 (G值, 色彩存放数组 [加入色彩描述值].原色值G)
                绝对值B ＝ 两数相减 (B值, 色彩存放数组 [加入色彩描述值].原色值B)
                .如果 (绝对值R ≤ 色彩存放数组 [加入色彩描述值].偏色值R 且 绝对值G ≤ 色彩存放数组 [加入色彩描述值].偏色值G 且 绝对值B ≤ 色彩存放数组 [加入色彩描述值].偏色值B)
                    A图像 [当前列] ＝ 255
                    A图像 [当前列 ＋ 1] ＝ 255
                    A图像 [当前列 ＋ 2] ＝ 255
                    跳出循环 ()
                .否则
                    A图像 [当前列] ＝ 0
                    A图像 [当前列 ＋ 1] ＝ 0
                    A图像 [当前列 ＋ 2] ＝ 0
                .如果结束

            .如果结束

        .计次循环尾 ()
        .如果 (坐标X ＝ X2)
            跳出循环 ()
        .否则

        .如果结束

    .变量循环尾 ()
    .如果 (坐标Y ＝ Y2)
        跳出循环 ()
    .否则

    .如果结束

.变量循环尾 ()
EDFS ＝ A图像
Xin ＝ -1
Yin ＝ -1
字体图 ＝ 分割文本 (欲找字, “|”, )
字库位置 ＝ 取数组成员数 (字库点阵的图片)
.计次循环首 (取数组成员数 (字体图), 第几个字)
    .计次循环首 (字库位置, 正确位置)
        .如果 (字库点阵的图片 [正确位置].名称 ＝ 字体图 [第几个字])
            找到字 ＝ 找图 (EDFS, 字库点阵的图片 [正确位置].图片, X1, Y1, X2, Y2, 相似度, Xin, Yin)
            绝对查找图返回所有坐标 (EDFS, 字库点阵的图片 [正确位置].图片, X1, Y1, X2, Y2)
            .如果 (找到字 ＝ 1)
                跳出循环 ()
            .否则

            .如果结束

        .否则

        .如果结束

    .计次循环尾 ()
.计次循环尾 ()
.如果 (Xin ＝ -1 且 Yin ＝ -1)
    返回 (-1)
.否则
    返回 (第几个字 － 1)
.如果结束


.子程序 找图, 整数型
.参数 原图片, 字节集
.参数 欲找图, 字节集
.参数 X1, 整数型
.参数 Y1, 整数型
.参数 X2, 整数型
.参数 Y2, 整数型
.参数 相似度, 整数型
.参数 Xin, 整数型, 参考
.参数 Yin, 整数型, 参考
.局部变量 FDVVCV, 整数型
.局部变量 FDFEF, 整数型
.局部变量 NBMBGF, 整数型
.局部变量 GFDGR, 整数型
.局部变量 FGFDGFDGR, 整数型
.局部变量 GFDBVCBVC, 整数型
.局部变量 GREYRTUTR, 整数型
.局部变量 HHHDHFD, 整数型
.局部变量 BVDGFDGFD, 整数型
.局部变量 NBVDFGDGFD, 整数型
.局部变量 REYYEYR, 整数型
.局部变量 YEFHGFH, 整数型
.局部变量 NBVMGFHGFH, 整数型
.局部变量 REYREYHGFHGF, 整数型
.局部变量 GFDGEYYU, 整数型
.局部变量 FDSFDSFE, 整数型
.局部变量 JKGHJKG, 整数型
.局部变量 MNBMVGFH, 整数型
.局部变量 HDFGHFDH, 整数型
.局部变量 PIPOIUY, 整数型
.局部变量 EWREWREW, 整数型
.局部变量 HGFHGFH, 整数型
.局部变量 NBVNGJHGJHG, 整数型
.局部变量 YTRYTJHGJHG, 整数型
.局部变量 BVCBVCBVCBVC, 整数型
.局部变量 FDGTRYTRYTR, 整数型
.局部变量 MJKHGHFH, 整数型
.局部变量 FDSFDSEWRWR, 整数型
.局部变量 MNBMVNBV, 整数型
.局部变量 ASADSDAF, 整数型
.局部变量 JHJHGJH, 整数型
.局部变量 TTIYIUI, 整数型
.局部变量 NBVNGFHFH, 整数型
.局部变量 RYTRUYTIUYT, 整数型
.局部变量 NBVNVMGJHG, 整数型
.局部变量 TERTERGFDGFD, 整数型
.局部变量 MNHJHTYUT, 整数型
.局部变量 GFDGFDGFDGFDGF, 整数型
.局部变量 GFDGYRERT, 整数型
.局部变量 HGFHGNBVNBV, 整数型
.局部变量 GFDGDFRETRE, 整数型
.局部变量 BGFHGHTY, 整数型
.局部变量 OHLGKFD, 整数型
.局部变量 GFDGBVCBVC, 整数型
.局部变量 GFDGFDGRETE, 整数型
.局部变量 MNBMNBFGHFHGF, 整数型
.局部变量 TRETEROIUOIU, 整数型
.局部变量 GFDHDFHFGHF, 整数型
.局部变量 TRETRETEGFDGDF, 整数型

FDVVCV ＝ 0
FDFEF ＝ 0
NBMBGF ＝ 0
GFDGR ＝ 0
FGFDGFDGR ＝ 0
GFDBVCBVC ＝ 0
GREYRTUTR ＝ 0
HHHDHFD ＝ 0
BVDGFDGFD ＝ 0
REYYEYR ＝ 0
NBVDFGDGFD ＝ 0
FDSFDSFE ＝ X1
MNBMVGFH ＝ Y1
JKGHJKG ＝ X2
HDFGHFDH ＝ Y2
YEFHGFH ＝ 0
NBVMGFHGFH ＝ 0
REYREYHGFHGF ＝ 0
GFDGEYYU ＝ 0
PIPOIUY ＝ 0
EWREWREW ＝ 0
HGFHGFH ＝ 0
NBVNGJHGJHG ＝ 0
YTRYTJHGJHG ＝ 0
BVCBVCBVCBVC ＝ 0
FDGTRYTRYTR ＝ 0
MJKHGHFH ＝ 0
FDSFDSEWRWR ＝ 0
MNBMVNBV ＝ 0
ASADSDAF ＝ 0
JHJHGJH ＝ 0
TTIYIUI ＝ 0
NBVNGFHFH ＝ 0
RYTRUYTIUYT ＝ 0
NBVNVMGJHG ＝ 0
TERTERGFDGFD ＝ 0
MNHJHTYUT ＝ 0
GFDGFDGFDGFDGF ＝ 0
GFDGYRERT ＝ 0
HGFHGNBVNBV ＝ 0
GFDGDFRETRE ＝ 0
OHLGKFD ＝ 0
BGFHGHTY ＝ 0
GFDGBVCBVC ＝ 0
GFDGFDGRETE ＝ 0
MNBMNBFGHFHGF ＝ 0
TRETEROIUOIU ＝ 0
GFDHDFHFGHF ＝ 0
TRETRETEGFDGDF ＝ 0
置入代码 ({ 139, 69, 32, 187, 10, 0, 0, 0, 247, 227, 137, 133, 84, 255, 255, 255, 184, 232, 3, 0, 0, 43, 133, 84, 255, 255, 255, 137, 133, 84, 255, 255, 255 })
置入代码 ({ 51, 192, 139, 93, 8, 139, 27, 138, 67, 26, 137, 69, 252, 51, 192, 139, 93, 8, 139, 27, 138, 67, 27, 139, 200, 139, 193, 187, 0, 1, 0, 0, 247, 227, 3, 69, 252, 137, 69, 252, 51, 192, 139, 93, 8, 139, 27, 138, 67, 30, 137, 69, 248, 51, 192, 139, 93, 8, 139, 27, 138, 67, 31, 139, 200, 139, 193, 187, 0, 1, 0, 0, 247, 227, 3, 69, 248, 137, 69, 248, 51, 192, 139, 93, 8, 139, 27, 138, 67, 42, 137, 69, 244, 51, 192, 139, 93, 8, 139, 27, 138, 67, 43, 139, 192, 187, 0, 1, 0, 0, 247, 227, 3, 69, 244, 137, 69, 244, 51, 192, 139, 93, 8, 139, 27, 138, 67, 44, 139, 192, 187, 0, 0, 1, 0, 247, 227, 3, 69, 244, 137, 69, 244, 51, 192, 139, 93, 8, 139, 27, 138, 67, 45, 139, 192, 187, 0, 0, 0, 1, 247, 227, 3, 69, 244, 137, 69, 244, 139, 69, 244, 139, 93, 248, 247, 243, 137, 69, 240, 51, 192, 139, 93, 12, 139, 27, 138, 67, 26, 137, 69, 236, 51, 192, 139, 93, 12, 139, 27, 138, 67, 27, 139, 200, 139, 193, 187, 0, 1, 0, 0, 247, 227, 3, 69, 236, 137, 69, 236, 51, 192, 139, 93, 12, 139, 27, 138, 67, 30, 137, 69, 232, 51, 192, 139, 93, 12, 139, 27, 138, 67, 31, 139, 200, 139, 193, 187, 0, 1, 0, 0, 247, 227, 3, 69, 232, 137, 69, 232, 51, 192, 139, 93, 12, 139, 27, 138, 67, 42, 137, 69, 228, 51, 192, 139, 93, 12, 139, 27, 138, 67, 43, 139, 192, 187, 0, 1, 0, 0, 247, 227, 3, 69, 228, 137, 69, 228, 51, 192, 139, 93, 12, 139, 27, 138, 67, 44, 139, 192, 187, 0, 0, 1, 0, 247, 227, 3, 69, 228, 137, 69, 228, 51, 192, 139, 93, 12, 139, 27, 138, 67, 45, 139, 192, 187, 0, 0, 0, 1, 247, 227, 3, 69, 228, 137, 69, 228, 139, 69, 228, 139, 93, 232, 247, 243, 137, 69, 224 })
置入代码 ({ 139, 69, 232, 139, 93, 224, 247, 227, 43, 69, 224, 131, 192, 55, 137, 69, 172, 51, 192, 139, 93, 12, 139, 27, 139, 77, 172, 138, 68, 25, 7, 137, 69, 220, 138, 68, 25, 8, 137, 69, 216, 138, 68, 25, 9, 137, 69, 212 })
置入代码 ({ 184, 55, 0, 0, 0, 137, 69, 172, 51, 192, 139, 93, 12, 139, 27, 139, 77, 172, 138, 68, 25, 7, 57, 69, 220, 116, 2, 235, 30, 138, 68, 25, 8, 57, 69, 216, 116, 2, 235, 19, 138, 68, 25, 9, 57, 69, 212, 116, 2, 235, 8, 184, 1, 0, 0, 0, 137, 69, 168 })
置入代码 ({ 139, 69, 168, 131, 248, 1, 116, 2, 235, 111, 139, 69, 232, 139, 93, 224, 247, 227, 43, 69, 224, 131, 192, 55, 137, 69, 172, 139, 69, 236, 131, 232, 1, 187, 3, 0, 0, 0, 247, 227, 3, 69, 172, 137, 69, 172, 51, 192, 139, 93, 12, 139, 27, 139, 77, 172, 138, 68, 25, 7, 57, 69, 220, 116, 10, 184, 0, 0, 0, 0, 137, 69, 168, 235, 46, 138, 68, 25, 8, 57, 69, 216, 116, 10, 184, 0, 0, 0, 0, 137, 69, 168, 235, 27, 138, 68, 25, 9, 57, 69, 212, 116, 10, 184, 0, 0, 0, 0, 137, 69, 168, 235, 8, 184, 1, 0, 0, 0, 137, 69, 168 })
置入代码 ({ 139, 69, 168, 131, 248, 1, 116, 2, 235, 102, 184, 55, 0, 0, 0, 137, 69, 172, 139, 69, 236, 131, 232, 1, 187, 3, 0, 0, 0, 247, 227, 3, 69, 172, 137, 69, 172, 51, 192, 139, 93, 12, 139, 27, 139, 77, 172, 138, 68, 25, 7, 57, 69, 220, 116, 10, 184, 0, 0, 0, 0, 137, 69, 168, 235, 46, 138, 68, 25, 8, 57, 69, 216, 116, 10, 184, 0, 0, 0, 0, 137, 69, 168, 235, 27, 138, 68, 25, 9, 57, 69, 212, 116, 10, 184, 0, 0, 0, 0, 137, 69, 168, 235, 8, 184, 1, 0, 0, 0, 137, 69, 168 })
置入代码 ({ 102, 139, 69, 168, 102, 187, 1, 0, 102, 59, 195, 116, 5, 233, 195, 0, 0, 0, 184, 0, 0, 0, 0, 137, 69, 160, 102, 139, 69, 160, 102, 139, 93, 232, 102, 59, 195, 15, 132, 170, 0, 0, 0, 235, 11, 139, 69, 160, 131, 192, 1, 137, 69, 160, 235, 226, 184, 0, 0, 0, 0, 137, 69, 164, 102, 139, 69, 164, 102, 139, 93, 236, 102, 59, 195, 116, 224, 235, 11, 139, 69, 164, 131, 192, 1, 137, 69, 164, 235, 230, 139, 69, 232, 43, 69, 160, 139, 93, 224, 247, 227, 43, 69, 224, 131, 192, 55, 137, 69, 172, 139, 69, 164, 187, 3, 0, 0, 0, 247, 227, 3, 69, 172, 137, 69, 172, 51, 192, 139, 93, 12, 139, 27, 139, 77, 172, 138, 68, 25, 7, 137, 69, 140, 139, 77, 172, 138, 68, 25, 8, 137, 69, 136, 139, 77, 172, 138, 68, 25, 9, 137, 69, 132, 102, 139, 69, 220, 102, 139, 93, 140, 102, 59, 195, 116, 2, 235, 35, 102, 139, 69, 216, 102, 139, 93, 136, 102, 59, 195, 116, 2, 235, 20, 102, 139, 69, 212, 102, 139, 93, 132, 102, 59, 195, 116, 2, 235, 5, 233, 122, 255, 255, 255 })
置入代码 ({ 139, 69, 168, 131, 248, 1, 116, 2, 235, 29, 102, 139, 69, 164, 102, 139, 93, 236, 102, 59, 195, 116, 8, 139, 69, 164, 137, 69, 148, 235, 8, 102, 131, 232, 1, 102, 137, 69, 148 })
置入代码 ({ 139, 69, 168, 131, 248, 1, 116, 2, 235, 29, 102, 139, 69, 160, 102, 139, 93, 232, 102, 59, 195, 116, 8, 139, 69, 160, 137, 69, 144, 235, 8, 102, 131, 232, 1, 102, 137, 69, 144 })
置入代码 ({ 139, 69, 168, 131, 248, 0, 116, 2, 235, 18, 139, 69, 220, 137, 69, 140, 139, 69, 216, 137, 69, 136, 139, 69, 212, 137, 69, 132 })

置入代码 ({ 139, 69, 204, 137, 133, 124, 255, 255, 255, 102, 139, 133, 124, 255, 255, 255, 102, 139, 93, 196, 102, 59, 195, 15, 132, 138, 3, 0, 0, 139, 133, 124, 255, 255, 255, 3, 69, 144, 137, 133, 116, 255, 255, 255, 235, 35, 139, 133, 124, 255, 255, 255, 131, 192, 1, 137, 133, 124, 255, 255, 255, 139, 69, 248, 43, 69, 232, 59, 133, 124, 255, 255, 255, 15, 132, 88, 3, 0, 0, 235, 184, 139, 69, 208, 137, 69, 128, 102, 139, 69, 128, 102, 139, 93, 200, 102, 59, 195, 116, 202, 139, 69, 128, 3, 69, 148, 137, 133, 120, 255, 255, 255, 235, 22, 139, 69, 128, 131, 192, 1, 137, 69, 128, 139, 69, 252, 43, 69, 236, 59, 69, 128, 116, 168, 235, 207, 139, 69, 248, 43, 133, 116, 255, 255, 255, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 176, 139, 133, 120, 255, 255, 255, 187, 3, 0, 0, 0, 247, 227, 3, 69, 176, 137, 69, 176, 51, 192, 139, 93, 8, 139, 27, 139, 77, 176, 138, 68, 25, 7, 137, 133, 112, 255, 255, 255, 138, 68, 25, 8, 137, 133, 108, 255, 255, 255, 138, 68, 25, 9, 137, 133, 104, 255, 255, 255, 139, 133, 112, 255, 255, 255, 43, 69, 140, 137, 133, 100, 255, 255, 255, 131, 248, 0, 127, 19, 153, 51, 133, 100, 255, 255, 255, 43, 133, 100, 255, 255, 255, 137, 133, 100, 255, 255, 255, 139, 133, 108, 255, 255, 255, 43, 69, 136, 137, 133, 96, 255, 255, 255, 131, 248, 0, 127, 19, 153, 51, 133, 96, 255, 255, 255, 43, 133, 96, 255, 255, 255, 137, 133, 96, 255, 255, 255, 139, 133, 104, 255, 255, 255, 43, 69, 132, 137, 133, 92, 255, 255, 255, 131, 248, 0, 127, 19, 153, 51, 133, 92, 255, 255, 255, 43, 133, 92, 255, 255, 255, 137, 133, 92, 255, 255, 255, 139, 133, 100, 255, 255, 255, 3, 133, 96, 255, 255, 255, 3, 133, 92, 255, 255, 255, 187, 4, 0, 0, 0, 247, 227, 137, 133, 88, 255, 255, 255, 102, 139, 133, 88, 255, 255, 255, 102, 139, 157, 84, 255, 255, 255, 102, 59, 195, 126, 5, 233, 236, 254, 255, 255, 184, 1, 0, 0, 0, 137, 133, 60, 255, 255, 255, 184, 0, 0, 0, 0, 137, 69, 160, 102, 139, 69, 160, 102, 139, 93, 232, 102, 59, 195, 15, 132, 232, 1, 0, 0, 235, 11, 139, 69, 160, 131, 192, 1, 137, 69, 160, 235, 226, 184, 0, 0, 0, 0, 137, 69, 164, 102, 139, 69, 164, 102, 139, 93, 236, 102, 59, 195, 116, 224, 235, 11, 139, 69, 164, 131, 192, 1, 137, 69, 164, 235, 230, 139, 69, 232, 43, 69, 160, 139, 93, 224, 247, 227, 43, 69, 224, 131, 192, 55, 137, 69, 172, 139, 69, 164, 187, 3, 0, 0, 0, 247, 227, 3, 69, 172, 137, 69, 172, 51, 192, 139, 93, 12, 139, 27, 139, 77, 172, 138, 68, 25, 7, 137, 133, 80, 255, 255, 255, 138, 68, 25, 8, 137, 133, 76, 255, 255, 255, 138, 68, 25, 9, 137, 133, 72, 255, 255, 255, 139, 69, 164, 3, 69, 128, 137, 133, 68, 255, 255, 255, 139, 69, 160, 3, 133, 124, 255, 255, 255, 137, 133, 64, 255, 255, 255, 139, 69, 248, 43, 133, 64, 255, 255, 255, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 176, 139, 133, 68, 255, 255, 255, 187, 3, 0, 0, 0, 247, 227, 3, 69, 176, 137, 69, 176, 51, 192, 139, 93, 8, 139, 27, 139, 77, 176, 138, 68, 25, 7, 137, 133, 112, 255, 255, 255, 138, 68, 25, 8, 137, 133, 108, 255, 255, 255, 138, 68, 25, 9, 137, 133, 104, 255, 255, 255, 139, 69, 168, 131, 248, 1, 116, 2, 235, 41, 139, 133, 80, 255, 255, 255, 59, 69, 220, 116, 2, 235, 28, 139, 133, 76, 255, 255, 255, 59, 69, 216, 116, 2, 235, 15, 139, 133, 72, 255, 255, 255, 59, 69, 212, 15, 132, 189, 0, 0, 0, 139, 133, 80, 255, 255, 255, 43, 133, 112, 255, 255, 255, 137, 133, 100, 255, 255, 255, 131, 248, 0, 127, 19, 153, 51, 133, 100, 255, 255, 255, 43, 133, 100, 255, 255, 255, 137, 133, 100, 255, 255, 255, 139, 133, 76, 255, 255, 255, 43, 133, 108, 255, 255, 255, 137, 133, 96, 255, 255, 255, 131, 248, 0, 127, 19, 153, 51, 133, 96, 255, 255, 255, 43, 133, 96, 255, 255, 255, 137, 133, 96, 255, 255, 255, 139, 133, 72, 255, 255, 255, 43, 133, 104, 255, 255, 255, 137, 133, 92, 255, 255, 255, 131, 248, 0, 127, 19, 153, 51, 133, 92, 255, 255, 255, 43, 133, 92, 255, 255, 255, 137, 133, 92, 255, 255, 255, 139, 133, 100, 255, 255, 255, 3, 133, 96, 255, 255, 255, 3, 133, 92, 255, 255, 255, 187, 4, 0, 0, 0, 247, 227, 137, 133, 88, 255, 255, 255, 102, 139, 133, 88, 255, 255, 255, 102, 139, 157, 84, 255, 255, 255, 102, 59, 195, 126, 13, 184, 0, 0, 0, 0, 137, 133, 60, 255, 255, 255, 235, 16, 184, 1, 0, 0, 0, 137, 133, 60, 255, 255, 255, 233, 60, 254, 255, 255, 102, 139, 133, 60, 255, 255, 255, 102, 187, 1, 0, 102, 59, 195, 116, 5, 233, 203, 252, 255, 255 })

.如果 (TRETRETEGFDGDF ＝ 1)
    Xin ＝ TTIYIUI
    Yin ＝ NBVNGFHFH
    返回 (1)  ' 找到图返回 1
.否则
    Xin ＝ -1
    Yin ＝ -1
    返回 (0)  ' 没有找到图返回 0
.如果结束


.子程序 两数相减, 整数型
.参数 A, 整数型
.参数 B, 整数型
.局部变量 C, 整数型

置入代码 ({ 139, 69, 8, 43, 69, 12, 137, 69, 252 })
返回 (C)

.子程序 _相加, 整数型
.参数 A, 整数型
.参数 B, 整数型
.参数 C, 整数型
.局部变量 D, 整数型

置入代码 ({ 139, 69, 8, 3, 69, 12, 3, 69, 16, 137, 69, 252 })
返回 (D)

.子程序 取绝对值_汇编, 整数型
.参数 输入数值, 整数型
.局部变量 返回值, 整数型

返回值 ＝ 输入数值
置入代码 ({ 153, 51, 69, 8, 43, 69, 8, 137, 69, 252 })
返回 (返回值)

.子程序 获取点阵
.参数 原图, 字节集
.参数 X1, 整数型, 可空
.参数 Y1, 整数型, 可空
.参数 X2, 整数型, 可空
.参数 Y2, 整数型, 可空
.局部变量 源图像宽度, 整数型
.局部变量 源图像高度, 整数型
.局部变量 数据大小, 整数型
.局部变量 实际数宽, 整数型
.局部变量 坐标X, 整数型
.局部变量 坐标Y, 整数型
.局部变量 行首点, 整数型
.局部变量 当前列, 整数型
.局部变量 R值, 整数型
.局部变量 G值, 整数型
.局部变量 B值, 整数型
.局部变量 原始坐标X, 整数型
.局部变量 原始坐标Y, 整数型
.局部变量 坐标保存数组, 坐标保存法, , "0"
.局部变量 坐标共几个, 整数型
.局部变量 进入收集点阵, 整数型
.局部变量 超级连锁, 整数型
.局部变量 超级保存数组, 坐标保存法, , "0"
.局部变量 开锁数, 整数型
.局部变量 左X, 整数型
.局部变量 右X, 整数型
.局部变量 中X, 整数型
.局部变量 上Y, 整数型
.局部变量 中Y, 整数型
.局部变量 下Y, 整数型
.局部变量 新数, 整数型

源图像宽度 ＝ 取字节集数据 (取字节集中间 (原图, 19, 4), #整数型, )
源图像高度 ＝ 取字节集数据 (取字节集中间 (原图, 23, 4), #整数型, )
数据大小 ＝ 取字节集数据 (取字节集中间 (原图, 35, 4), #整数型, )
实际数宽 ＝ 数据大小 ÷ 源图像高度
坐标X ＝ 0
坐标Y ＝ 0
行首点 ＝ 0
当前列 ＝ 0
R值 ＝ 0
G值 ＝ 0  ' 本源码来自易语言资源网(该链接无法确定安全)
B值 ＝ 0
.变量循环首 (Y1, Y2, 1, 原始坐标Y)
    .变量循环首 (X1, X2, 1, 原始坐标X)
        坐标X ＝ 原始坐标X
        坐标Y ＝ 原始坐标Y
        置入代码 ({ 139, 69, 248, 43, 69, 232, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 228, 139, 69, 236, 187, 3, 0, 0, 0, 247, 227, 3, 69, 228, 137, 69, 224, 51, 192, 139, 93, 8, 139, 27, 139, 77, 224, 138, 68, 25, 7, 137, 69, 212, 138, 68, 25, 8, 137, 69, 216, 138, 68, 25, 9, 137, 69, 220 })
        ' 信息框 (到文本 (R值) ＋ “,” ＋ 到文本 (G值) ＋ “,” ＋ 到文本 (B值), 0, )
        .如果 (B值 ＝ 255)
            原图 [当前列] ＝ 100
            原图 [整数相加 (当前列, 1)] ＝ 100
            原图 [整数相加 (当前列, 2)] ＝ 100
            坐标共几个 ＝ 1
            重定义数组 (坐标保存数组, 假, 1)
            坐标保存数组 [1].X ＝ 原始坐标X
            坐标保存数组 [1].Y ＝ 原始坐标Y
            进入收集点阵 ＝ 0
            .判断循环首 (进入收集点阵 ＝ 0)
                超级连锁 ＝ 取数组成员数 (坐标保存数组)
                新数 ＝ 0
                重定义数组 (超级保存数组, 假, 0)
                .计次循环首 (超级连锁, 开锁数)
                    左X ＝ 两数相减 (坐标保存数组 [开锁数].X, 1)
                    中X ＝ 坐标保存数组 [开锁数].X
                    右X ＝ 整数相加 (坐标保存数组 [开锁数].X, 1)
                    ' 本源码来自易语言资源网(该链接无法确定安全)
                    上Y ＝ 两数相减 (坐标保存数组 [开锁数].Y, 1)
                    中Y ＝ 坐标保存数组 [开锁数].Y
                    下Y ＝ 整数相加 (坐标保存数组 [开锁数].Y, 1)
                    .如果 (左X ≥ X1 且 上Y ≥ Y1)
                        坐标X ＝ 左X
                        坐标Y ＝ 上Y
                        置入代码 ({ 139, 69, 248, 43, 69, 232, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 228, 139, 69, 236, 187, 3, 0, 0, 0, 247, 227, 3, 69, 228, 137, 69, 224, 51, 192, 139, 93, 8, 139, 27, 139, 77, 224, 138, 68, 25, 7, 137, 69, 212, 138, 68, 25, 8, 137, 69, 216, 138, 68, 25, 9, 137, 69, 220 })
                        .如果 (B值 ＝ 255)
                            原图 [当前列] ＝ 100
                            原图 [整数相加 (当前列, 1)] ＝ 100
                            原图 [整数相加 (当前列, 2)] ＝ 100
                            新数 ＝ 新数 ＋ 1
                            重定义数组 (超级保存数组, 真, 新数)
                            超级保存数组 [新数].X ＝ 坐标X
                            超级保存数组 [新数].Y ＝ 坐标Y

                        .否则

                        .如果结束

                    .否则

                    .如果结束
                    .如果 (左X ≥ X1 且 中Y ≥ Y1)

                        坐标X ＝ 左X
                        坐标Y ＝ 中Y
                        置入代码 ({ 139, 69, 248, 43, 69, 232, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 228, 139, 69, 236, 187, 3, 0, 0, 0, 247, 227, 3, 69, 228, 137, 69, 224, 51, 192, 139, 93, 8, 139, 27, 139, 77, 224, 138, 68, 25, 7, 137, 69, 212, 138, 68, 25, 8, 137, 69, 216, 138, 68, 25, 9, 137, 69, 220 })
                        .如果 (B值 ＝ 255)
                            原图 [当前列] ＝ 100
                            原图 [整数相加 (当前列, 1)] ＝ 100
                            原图 [整数相加 (当前列, 2)] ＝ 100
                            新数 ＝ 新数 ＋ 1
                            重定义数组 (超级保存数组, 真, 新数)
                            超级保存数组 [新数].X ＝ 坐标X
                            超级保存数组 [新数].Y ＝ 坐标Y

                        .否则

                        .如果结束

                    .否则

                    .如果结束
                    .如果 (左X ≥ X1 且 下Y ≤ Y2)

                        坐标X ＝ 左X
                        坐标Y ＝ 下Y
                        置入代码 ({ 139, 69, 248, 43, 69, 232, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 228, 139, 69, 236, 187, 3, 0, 0, 0, 247, 227, 3, 69, 228, 137, 69, 224, 51, 192, 139, 93, 8, 139, 27, 139, 77, 224, 138, 68, 25, 7, 137, 69, 212, 138, 68, 25, 8, 137, 69, 216, 138, 68, 25, 9, 137, 69, 220 })
                        .如果 (B值 ＝ 255)
                            原图 [当前列] ＝ 100
                            原图 [整数相加 (当前列, 1)] ＝ 100
                            原图 [整数相加 (当前列, 2)] ＝ 100
                            新数 ＝ 新数 ＋ 1
                            重定义数组 (超级保存数组, 真, 新数)
                            超级保存数组 [新数].X ＝ 坐标X
                            超级保存数组 [新数].Y ＝ 坐标Y

                        .否则

                        .如果结束

                    .否则

                    .如果结束
                    .如果 (中X ≥ X1 且 上Y ≥ Y1)

                        坐标X ＝ 中X
                        坐标Y ＝ 上Y
                        置入代码 ({ 139, 69, 248, 43, 69, 232, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 228, 139, 69, 236, 187, 3, 0, 0, 0, 247, 227, 3, 69, 228, 137, 69, 224, 51, 192, 139, 93, 8, 139, 27, 139, 77, 224, 138, 68, 25, 7, 137, 69, 212, 138, 68, 25, 8, 137, 69, 216, 138, 68, 25, 9, 137, 69, 220 })
                        .如果 (B值 ＝ 255)
                            原图 [当前列] ＝ 100
                            原图 [整数相加 (当前列, 1)] ＝ 100
                            原图 [整数相加 (当前列, 2)] ＝ 100
                            新数 ＝ 新数 ＋ 1
                            重定义数组 (超级保存数组, 真, 新数)
                            超级保存数组 [新数].X ＝ 坐标X
                            超级保存数组 [新数].Y ＝ 坐标Y

                        .否则

                        .如果结束

                    .否则

                    .如果结束
                    .如果 (中X ≥ X1 且 下Y ≤ Y2)

                        坐标X ＝ 中X
                        坐标Y ＝ 下Y
                        置入代码 ({ 139, 69, 248, 43, 69, 232, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 228, 139, 69, 236, 187, 3, 0, 0, 0, 247, 227, 3, 69, 228, 137, 69, 224, 51, 192, 139, 93, 8, 139, 27, 139, 77, 224, 138, 68, 25, 7, 137, 69, 212, 138, 68, 25, 8, 137, 69, 216, 138, 68, 25, 9, 137, 69, 220 })
                        .如果 (B值 ＝ 255)
                            原图 [当前列] ＝ 100
                            原图 [整数相加 (当前列, 1)] ＝ 100
                            原图 [整数相加 (当前列, 2)] ＝ 100
                            新数 ＝ 新数 ＋ 1
                            重定义数组 (超级保存数组, 真, 新数)
                            超级保存数组 [新数].X ＝ 坐标X
                            超级保存数组 [新数].Y ＝ 坐标Y

                        .否则

                        .如果结束

                    .否则

                    .如果结束
                    .如果 (右X ≤ X2 且 上Y ≤ Y2)

                        坐标X ＝ 右X
                        坐标Y ＝ 上Y
                        置入代码 ({ 139, 69, 248, 43, 69, 232, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 228, 139, 69, 236, 187, 3, 0, 0, 0, 247, 227, 3, 69, 228, 137, 69, 224, 51, 192, 139, 93, 8, 139, 27, 139, 77, 224, 138, 68, 25, 7, 137, 69, 212, 138, 68, 25, 8, 137, 69, 216, 138, 68, 25, 9, 137, 69, 220 })
                        .如果 (B值 ＝ 255)
                            原图 [当前列] ＝ 100
                            原图 [整数相加 (当前列, 1)] ＝ 100
                            原图 [整数相加 (当前列, 2)] ＝ 100
                            新数 ＝ 新数 ＋ 1
                            重定义数组 (超级保存数组, 真, 新数)
                            超级保存数组 [新数].X ＝ 坐标X
                            超级保存数组 [新数].Y ＝ 坐标Y

                        .否则

                        .如果结束

                    .否则

                    .如果结束
                    .如果 (右X ≤ X2 且 中Y ≤ Y2)

                        坐标X ＝ 右X
                        坐标Y ＝ 中Y
                        置入代码 ({ 139, 69, 248, 43, 69, 232, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 228, 139, 69, 236, 187, 3, 0, 0, 0, 247, 227, 3, 69, 228, 137, 69, 224, 51, 192, 139, 93, 8, 139, 27, 139, 77, 224, 138, 68, 25, 7, 137, 69, 212, 138, 68, 25, 8, 137, 69, 216, 138, 68, 25, 9, 137, 69, 220 })
                        .如果 (B值 ＝ 255)
                            原图 [当前列] ＝ 100
                            原图 [整数相加 (当前列, 1)] ＝ 100
                            原图 [整数相加 (当前列, 2)] ＝ 100
                            新数 ＝ 新数 ＋ 1
                            重定义数组 (超级保存数组, 真, 新数)
                            超级保存数组 [新数].X ＝ 坐标X
                            超级保存数组 [新数].Y ＝ 坐标Y

                        .否则

                        .如果结束

                    .否则

                    .如果结束
                    .如果 (右X ≤ X2 且 下Y ≤ Y2)


                        坐标X ＝ 右X
                        坐标Y ＝ 下Y
                        置入代码 ({ 139, 69, 248, 43, 69, 232, 139, 93, 240, 247, 227, 43, 69, 240, 131, 192, 55, 137, 69, 228, 139, 69, 236, 187, 3, 0, 0, 0, 247, 227, 3, 69, 228, 137, 69, 224, 51, 192, 139, 93, 8, 139, 27, 139, 77, 224, 138, 68, 25, 7, 137, 69, 212, 138, 68, 25, 8, 137, 69, 216, 138, 68, 25, 9, 137, 69, 220 })
                        .如果 (B值 ＝ 255)
                            原图 [当前列] ＝ 100
                            原图 [整数相加 (当前列, 1)] ＝ 100
                            原图 [整数相加 (当前列, 2)] ＝ 100
                            新数 ＝ 新数 ＋ 1
                            重定义数组 (超级保存数组, 真, 新数)
                            超级保存数组 [新数].X ＝ 坐标X
                            超级保存数组 [新数].Y ＝ 坐标Y

                        .否则

                        .如果结束
                        ' 本源码来自易语言资源网(该链接无法确定安全)
                    .否则

                    .如果结束

                .计次循环尾 ()
                重定义数组 (坐标保存数组, 假, 0)
                复制数组 (坐标保存数组, 超级保存数组)
                .如果 (取数组成员数 (坐标保存数组) ＝ 0)
                    ' 图片框1.图片 ＝ 原图
                    ' 信息框 (“”, 0, )
                    跳出循环 ()
                .否则

                .如果结束

            .判断循环尾 ()
        .否则

        .如果结束
        坐标X ＝ 原始坐标X
        坐标Y ＝ 原始坐标Y
        .如果 (坐标X ＝ X2)
            跳出循环 ()
        .否则

        .如果结束

    .变量循环尾 ()
    .如果 (坐标Y ＝ Y2)
        跳出循环 ()
    .否则

    .如果结束

.变量循环尾 ()
' 图片框1.图片 ＝ 原图

.子程序 整数相加, 整数型
.参数 A, 整数型
.参数 B, 整数型
.局部变量 C, 整数型

置入代码 ({ 139, 69, 8, 3, 69, 12, 137, 69, 252 })
返回 (C)

.子程序 绝对查找图返回所有坐标
.参数 原图, 字节集
.参数 字库图, 字节集
.参数 X1, 整数型
.参数 Y1, 整数型
.参数 X2, 整数型
.参数 Y2, 整数型
.局部变量 源图像宽度, 整数型
.局部变量 源图像高度, 整数型
.局部变量 源图像数据大小, 整数型
.局部变量 源图像实际数宽, 整数型
.局部变量 源图像坐标X, 整数型
.局部变量 源图像坐标Y, 整数型
.局部变量 源图像行首点, 整数型
.局部变量 源图像当前列, 整数型
.局部变量 源图像R值, 整数型
.局部变量 源图像G值, 整数型
.局部变量 源图像B值, 整数型
.局部变量 原始坐标Y, 整数型
.局部变量 原始坐标X, 整数型
.局部变量 字库图宽度, 整数型
.局部变量 字库图高度, 整数型
.局部变量 字库图数据大小, 整数型
.局部变量 字库图实际数宽, 整数型
.局部变量 字库图坐标X, 整数型
.局部变量 字库图坐标Y, 整数型
.局部变量 字库图行首点, 整数型
.局部变量 字库图当前列, 整数型
.局部变量 字库图R值, 整数型
.局部变量 字库图G值, 整数型
.局部变量 字库图B值, 整数型
.局部变量 字库图终点坐标X, 整数型
.局部变量 字库图终点坐标Y, 整数型
.局部变量 字库图起点误差X, 整数型
.局部变量 字库图起点误差Y, 整数型
.局部变量 颜色差, 整数型

源图像宽度 ＝ 取字节集数据 (取字节集中间 (原图, 19, 4), #整数型, )  ' 4
源图像高度 ＝ 取字节集数据 (取字节集中间 (原图, 23, 4), #整数型, )  ' 8
源图像数据大小 ＝ 取字节集数据 (取字节集中间 (原图, 35, 4), #整数型, )  ' 12
源图像实际数宽 ＝ 源图像数据大小 ÷ 源图像高度  ' 16
源图像坐标X ＝ 0  ' 20
源图像坐标Y ＝ 0  ' 24
源图像行首点 ＝ 0  ' 28
源图像当前列 ＝ 0  ' 32
源图像R值 ＝ 0  ' 36
源图像G值 ＝ 0  ' 40
源图像B值 ＝ 0  ' 44


字库图宽度 ＝ 取字节集数据 (取字节集中间 (字库图, 19, 4), #整数型, )  ' 48
字库图高度 ＝ 取字节集数据 (取字节集中间 (字库图, 23, 4), #整数型, )  ' 52
字库图数据大小 ＝ 取字节集数据 (取字节集中间 (字库图, 35, 4), #整数型, )  ' 56
字库图实际数宽 ＝ 字库图数据大小 ÷ 字库图高度  ' 60
字库图坐标X ＝ 0  ' 64
字库图坐标Y ＝ 0  ' 68
字库图行首点 ＝ 0  ' 72
字库图当前列 ＝ 0  ' 76
字库图R值 ＝ 0  ' 80
字库图G值 ＝ 0  ' 84
字库图B值 ＝ 0  ' 88

字库图终点坐标X ＝ 字库图宽度 － 1  ' 92
字库图终点坐标Y ＝ 字库图高度 － 1  ' 96
字库图起点误差X ＝ 0  ' 100
字库图起点误差Y ＝ 0  ' 104

' 当前行 ＝ 高度 － 坐标Y
' 行首点 ＝ 当前行 × 实际数宽 － 实际数宽 ＋ 54
' 当前列 ＝ 坐标X × 3 ＋ 1

.如果 (Y2 ≥ 源图像高度)
    Y2 ＝ 源图像高度 － 1
.否则

.如果结束
.如果 (X2 ≥ 源图像宽度)
    X2 ＝ 源图像宽度 － 1
.否则

.如果结束
置入代码 ({ 184, 0, 0, 0, 0, 137, 69, 188, 102, 139, 69, 188, 102, 139, 93, 160, 102, 59, 195, 15, 132, 137, 0, 0, 0, 235, 11, 139, 69, 188, 131, 192, 1, 137, 69, 188, 235, 226, 184, 0, 0, 0, 0, 137, 69, 192, 102, 139, 69, 192, 102, 139, 93, 164, 102, 59, 195, 116, 224, 139, 69, 204, 43, 69, 188, 139, 93, 196, 247, 227, 43, 69, 196, 131, 192, 55, 137, 69, 184, 139, 69, 192, 187, 3, 0, 0, 0, 247, 227, 3, 69, 184, 137, 69, 180, 51, 192, 139, 93, 12, 139, 27, 139, 77, 180, 138, 68, 25, 7, 137, 69, 168, 138, 68, 25, 8, 137, 69, 172, 138, 68, 25, 9, 137, 69, 176, 102, 139, 69, 172, 102, 187, 255, 0, 102, 59, 195, 116, 11, 139, 69, 192, 131, 192, 1, 137, 69, 192, 235, 152, 139, 69, 192, 137, 69, 156, 139, 69, 188, 137, 69, 152 })

.变量循环首 (Y1, Y2, 1, 原始坐标Y)
    .变量循环首 (X1, X2, 1, 原始坐标X)
        源图像坐标X ＝ 整数相加 (原始坐标X, 字库图起点误差X)
        源图像坐标Y ＝ 整数相加 (原始坐标Y, 字库图起点误差Y)


    .变量循环尾 ()
.变量循环尾 ()



联系我时，请说是在 挂海论坛 上看到的，谢谢！

完美不美

看完回帖,这是必须的,支持一下楼主 海

wuyudp

好东西。拿走了，感谢楼主分享

fengjikou

貌似很不错的样子

ghost_z

貌似不错 先收了 谢楼主

小和尚

淡定一下吧，不要太鸡冻呵，要淡定！

panzer11

谢谢分享，好贴！

xu119005886

支持楼主，感谢楼主！

小贾贾

真的假的,不过还是先谢了

大大大哇

虽然用不到 但是也要支持