.版本 2 .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 ' 6695833 ' 10059929 画板1.底图 ＝ 网页_访问 (“//www.cnzz.cn/Home/GetValidateCode?_=1441895244796”) .子程序 _按钮1_被单击 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 a, 整数型 .计次循环首 (画板1.宽度, x) .计次循环首 (画板1.高度, y) a ＝ 画板1.取点 (x － 1, y － 1) .如果 (a ＞ 10059929) 画板1.画点 (x － 1, y － 1, #白色) .否则 画板1.画点 (x － 1, y － 1, #黑色) .如果结束 .计次循环尾 () .计次循环尾 () 画板1.复制 (0, 0, 131, 41, 画板2, , , ) .子程序 _画板1_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 画板1.底图 ＝ 网页_访问 (“//www.cnzz.cn/Home/GetValidateCode?_=1441895244796”) .子程序 _按钮2_被单击 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 a, 整数型 .计次循环首 (画板2.宽度, x) .计次循环首 (画板2.高度, y) a ＝ 画板2.取点 (x － 1, y － 1) .如果真 (a ≠ #白色) .如果真 (画板2.取点 (x － 1, y － 2) ＝ #白色 且 画板2.取点 (x － 1, y) ＝ #白色 且 画板2.取点 (x － 2, y － 1) ＝ #白色 且 画板2.取点 (x, y － 1) ＝ #白色) 画板2.画点 (x － 1, y － 1, #白色) .如果真结束 .如果真结束 .计次循环尾 () .计次循环尾 () 写到文件 (取运行目录 () ＋ “\1.bmp”, 画板2.取图片 (131, 41)) .子程序 _按钮3_被单击 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 xx, 整数型 .局部变量 yy, 整数型 .局部变量 a, 整数型 .局部变量 b, 整数型 .局部变量 跳吗, 逻辑型 .计次循环首 (画板2.高度, x) .计次循环首 (画板2.高度, y) .如果真 (跳吗 ＝ 真) 跳出循环 () .如果真结束 .如果真 (画板2.取点 (x － 1, y － 1) ＝ #黑色) .计次循环首 (5, xx) .如果真 (跳吗 ＝ 真) 跳出循环 () .如果真结束 .计次循环首 (5, yy) .如果真 (画板2.取点 (x － 1 ＋ xx, y － 1 ＋ yy) ＝ #黑色) a ＝ a ＋ 1 .如果真结束 .如果 (a ＞ 35) 跳吗 ＝ 真 画板2.复制 (x － 3, 0, 18, 41, 画板3, , , ) b ＝ x － 1 画板2.复制 (x ＋ 16, 0, 画板2.宽度 － x － 16, 41, 画板7, , , ) 跳出循环 () .否则 .如果结束 .计次循环尾 () .计次循环尾 () .如果真结束 .计次循环尾 () .计次循环尾 () 下一次 () .子程序 下一次 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 xx, 整数型 .局部变量 yy, 整数型 .局部变量 a, 整数型 .局部变量 b, 整数型 .局部变量 跳吗, 逻辑型 .计次循环首 (画板7.高度, x) .计次循环首 (画板7.高度, y) .如果真 (跳吗 ＝ 真) 跳出循环 () .如果真结束 .如果真 (画板7.取点 (x － 1, y － 1) ＝ #黑色) .计次循环首 (5, xx) .如果真 (跳吗 ＝ 真) 跳出循环 () .如果真结束 .计次循环首 (5, yy) .如果真 (画板7.取点 (x － 1 ＋ xx, y － 1 ＋ yy) ＝ #黑色) a ＝ a ＋ 1 .如果真结束 .如果 (a ＞ 35) 跳吗 ＝ 真 画板7.复制 (x － 3, 0, 18, 41, 画板4, , , ) b ＝ x － 1 画板7.复制 (x ＋ 16, 0, 画板7.宽度 － x － 16, 41, 画板8, , , ) 跳出循环 () .否则 .如果结束 .计次循环尾 () .计次循环尾 () .如果真结束 .计次循环尾 () .计次循环尾 () 下一次2 () .子程序 下一次2 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 xx, 整数型 .局部变量 yy, 整数型 .局部变量 a, 整数型 .局部变量 b, 整数型 .局部变量 跳吗, 逻辑型 .计次循环首 (画板8.高度, x) .计次循环首 (画板7.高度, y) .如果真 (跳吗 ＝ 真) 跳出循环 () .如果真结束 .如果真 (画板8.取点 (x － 1, y － 1) ＝ #黑色) .计次循环首 (5, xx) .如果真 (跳吗 ＝ 真) 跳出循环 () .如果真结束 .计次循环首 (5, yy) .如果真 (画板8.取点 (x － 1 ＋ xx, y － 1 ＋ yy) ＝ #黑色) a ＝ a ＋ 1 .如果真结束 .如果 (a ＞ 35) 跳吗 ＝ 真 画板8.复制 (x － 3, 0, 18, 41, 画板5, , , ) b ＝ x － 1 画板8.复制 (x ＋ 16, 0, 画板8.宽度 － x － 16, 41, 画板9, , , ) 跳出循环 () .否则 .如果结束 .计次循环尾 () .计次循环尾 () .如果真结束 .计次循环尾 () .计次循环尾 () 下一步2 () .子程序 下一步2 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 xx, 整数型 .局部变量 yy, 整数型 .局部变量 a, 整数型 .局部变量 b, 整数型 .局部变量 跳吗, 逻辑型 .计次循环首 (画板9.高度, x) .计次循环首 (画板9.高度, y) .如果真 (跳吗 ＝ 真) 跳出循环 () .如果真结束 .如果真 (画板9.取点 (x － 1, y － 1) ＝ #黑色) .计次循环首 (5, xx) .如果真 (跳吗 ＝ 真) 跳出循环 () .如果真结束 .计次循环首 (5, yy) .如果真 (画板9.取点 (x － 1 ＋ xx, y － 1 ＋ yy) ＝ #黑色) a ＝ a ＋ 1 .如果真结束 .如果 (a ＞ 35) 跳吗 ＝ 真 画板9.复制 (x － 3, 0, 18, 41, 画板6, , , ) b ＝ x － 1 ' 画板9.复制 (x ＋ 16, 0, 画板8.宽度 － x － 16, 41, 画板9, , , ) 跳出循环 () .否则 .如果结束 .计次循环尾 () .计次循环尾 () .如果真结束 .计次循环尾 () .计次循环尾 ()