验证码识别_jhg(易语言源码)

.版本 2
.支持库 HtmlView
.支持库 internet

.程序集 窗口程序集1
.程序集变量 x, 整数型
.程序集变量 y, 整数型

.子程序 _按钮_读取_被单击

超文本浏览框1.地址 ＝ “https://www.360docs.net/doc/821562882.html,/CodeImg.aspx”
画板00.底图 ＝ HTTP读文件 (“https://www.360docs.net/doc/821562882.html,/CodeImg.aspx”)

.子程序 _按钮_分割_被单击

x ＝ 1
y ＝ 1
.计次循环首 (275, )
.判断开始 (y ≥ 20)
跳出循环 ()
.判断 (x ≥ 13)
y ＝ y ＋ 1
x ＝ 0
.默认
x ＝ x ＋ 1
.判断结束
.判断开始 (画板00.取点 (x, y) ＝ #黑色)
画板01.画点 (x, y, #黑色)
.判断 (画板00.取点 (x, y) ＝ #红色)
画板01.画点 (x, y, #红色)
.判断 (画板00.取点 (x, y) ＝ #蓝色)
画板01.画点 (x, y, #蓝色)
.判断 (画板00.取点 (x, y) ＝ #墨绿)
画板01.画点 (x, y, #墨绿)
.默认
画板01.画点 (x, y, #白色)
.判断结束

.计次循环尾 ()
x ＝ 1
y ＝ 1
.计次循环首 (275, )
.判断开始 (y ≥ 20)
跳出循环 ()
.判断 (x ≥ 13)
y ＝ y ＋ 1
x ＝ 1
.默认
x ＝ x ＋ 1
.判断结束
.判断开始 (画板00.取点 (x ＋ 13, y) ＝ #黑色)
画板02.画点 (x, y, #黑色)
.判断 (画板00.取点 (x ＋ 13, y) ＝ #红色)
画板02.画点 (x, y, #红色)
.判断 (画板00.取点 (x ＋ 13, y) ＝ #蓝色)
画板02.画点 (x, y, #蓝色)
.判断 (画板00.取点 (x ＋ 13, y) ＝ #墨绿)
画板02.画点 (x, y, #墨绿)
.默认
画板02.画点 (x, y, #白色)
.判断结束

.计次循环尾 ()
x ＝ 1
y ＝ 1
.计次循环首 (275, )
.判断开始 (y ≥ 20)
跳出循环 ()
.判断 (x ≥ 13)
y ＝ y ＋ 1
x ＝ 2
.默认
x ＝ x ＋ 1
.判断结束
.判断开始 (画板00.取点 (x ＋ 27, y) ＝ #黑色)
画板03.画点 (x, y, #黑色)
.判断 (画板00.取点 (x ＋ 27, y) ＝ #红色)
画板03.画点 (x, y, #红色)
.判断 (画板00.取点 (x ＋ 27, y) ＝ #蓝色)
画板03.画点 (x, y, #蓝色)
.判断 (画板00.取点 (x ＋ 27, y) ＝ #墨绿)
画板03.画点 (x, y, #墨绿)
.默认
画板03.画点 (x, y, #白色)
.判断结束

.计次循环尾 ()
x ＝ 1
y ＝ 1
.计次循环首 (275, )
.判断开始 (y ≥ 20)
跳出循环 ()
.判断 (x ≥ 10)
y ＝ y ＋ 1
x ＝ 3
.默认
x ＝ x ＋ 1
.判断结束
.判断开始 (画板00.取点 (x ＋ 40, y) ＝ #黑色)
画板04.画点 (x, y, #黑色)
.判断 (画板00.取点 (x ＋ 40, y) ＝ #红色)
画板04.画点 (x, y, #红色)
.判断 (画板00.取点 (x ＋ 40, y) ＝ #蓝色)
画板04.画点 (x,

y, #蓝色)
.判断 (画板00.取点 (x ＋ 40, y) ＝ #墨绿)
画板04.画点 (x, y, #墨绿)
.默认
画板04.画点 (x, y, #白色)
.判断结束

.计次循环尾 ()
x ＝ 0
y ＝ 0

.子程序 _按钮_写文本_被单击