易语言验证码简单识别参考源码.pdfVIP

.版本 2 .支持库 BmpOperate .支持库 internet .支持库 eImgConverter .程序集 窗口程序集1 .程序集变量 aa, 位图 .子程序 _按钮1_被单击 编辑框1.内容 ＝ “” 清空内容 编辑框2.内容 ＝ “” 清空内容 识别程序 () .子程序 识别程序 .局部变量 图片组, 位图, ,6 .局部变量 数据组, 文本型, , 6 .局部变量 a, 位图 .局部变量 b, 位图 .局部变量 n, 整数型,, , 计次用 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 原图宽, 整数型 .局部变量 原图高, 整数型 .局部变量 图片框, 图片框 .局部变量 测试结果, 文本型 .局部变量 c, 位图 原图宽 ＝ 60 原图的高和宽，单位是像索，用画图软件得到的，别的途径也可以得到 原图高 ＝ 10 写 到 文 件 (“asdf.bmp”, HTTP 读 文 件 (“/sdo/reg/num.asp?rand=0.6877980376378167”)) 读取网上的一个动 态验证码 转换到BMP(“asdf.bmp”,“asdf1.bmp”) 复制一个BMP 文件用来操作， a.载入数据 (读入文件 (“asdf1.bmp”)) 将ASDF1 读入到位图变量a 里 c.载入数据 (读入文件 (“asdf.bmp”)) 图片框9.图片 ＝ c.取位图数据 () .计次循环首 (原图高 ＋ 2, y) 去除背景色，（如果颜大于当前点的颜色，那 就把这一点变成白色） .计次循环首 (原图宽 ＋ 2, x) .如果 (a.取某点颜色 (x － 1, y － 1) ＜ a.置某点颜色 (x － 1, y － 1, #黑色) .否则 a.置某点颜色 (x － 1, y － 1, #白色) .如果结束 .计次循环尾 () .计次循环尾 () 切割 n ＝ 0 初始化变量 x ＝ 0 y ＝ 0 .计次循环首 (6, n) 因为是六块所以要处理六次 图片组 [n].创建 (6, 原图高,a.取位深度 (),#白色) 图片组存放变量加入一个宽6高 10的空白图片备用 6是一个字的实际有颜色的宽度 a.复制到 (原图宽 ÷ 6× n － 8, 0, 6, 原图高, 图片组 [n], 0, 0, ) 讲算功式，仔细研 究一下吧，第一个参数，原图除以六得到每个字的占用宽度，再剩以现在正在进行的是第几 个切片 n,再减去 八（‘单个字连同左右两边的白边所占用的宽度中10’白边宽度为2，10-2= 八，就是取当前切片的左边第三个像索开始）第三个参数是要取的宽度，因为这个验证码实 际单字占用的宽度就是6，第五个参数 就是把这个切出来的切片 存放到图片组数组变量的 第n个位置 图片框 ＝ 图片框选择 (n) 根据变量 n 来通过图片框选择子程序，返回一个框片框 如果n=1 那么就返回图片框1 图片框.图片 ＝ 图片组 [n].取位图数据 () 将切出来的切片显示到图片框里，注意， 图片框是个变量， .计次循环尾 () .计次循环首 (6, n) 对六个切片进行每个像索点的比对，分析 这个环节，只是把每个 点的颜色值取出来，如果是白色就记一个 0 如果是黑色就记一个1 然后再调用 比对程序 进行比对，并返回结果，比对，请看“比对程序”这个子程序 .计次循环首 (6, x) .计次循环首 (原图高,y) .如果 (图片组 [n].取某点颜色 (x － 1, y － 1) ＝ #黑色) 数据组 [n] ＝ 数据组 [n] ＋ “1” .否则 数据组 [n] ＝ 数据组 [n] ＋ “0” .如果结束 .计次循环尾 () .计次循环尾 () 编辑框1.内容 ＝ 编辑框1.内容 ＋ “第 ” ＋ 到文本 (n) ＋ “ 位的特征串:” ＋ 数据 组 [n] ＋ #换行符 这一行用来输出当前取得的特征串的文本，以便大家更好的理解 编辑框2.内容 ＝ 编辑框2.内容 ＋ 到文