设为首页收藏本站亲,今天是2018年04月21日,离还有-17641.666666667天。

易源码

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 321|回复: 0

易语言读取CSDN验证码源码

[复制链接]

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19399
发表于 2017-11-27 09:08:10 | 显示全部楼层 |阅读模式
链接:http://pan.baidu.com/s/1gfrOLAb 密码:cmee

  
窗口程序集名保 留  保 留备 注
窗口程序集1   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
' --========  易语言资源网  ([url]www.wodesoft.com[/url])  ======--
' 努力创建完善、持续更新的易语言学习例程源码资源站
' --================   [url]www.wodesoft.com[/url]  ===========--
' --==================   易语言资源网注意事项  ================--
' * 易语言资源网为易语言官方站、易语言官方论坛提供辅助资源站;
' 本易语言资源网( [url]www.wodesoft.com[/url])所有软件和资料均为软件作者提
' 供和网友推荐发布而来,其版权归该软件和程序源码的合法拥有者所
' 有,本站易语言资源网整理收集仅供易语言用户学习和易语言技术研
' 究探讨使用,不得用于任何商业用途。如果由于以上原因造成的版权
' 纠纷本站概不负责!
' * 本站资源未经许可,任何网站不得非法盗链及抄袭本站资源;如引用
' 页面,请注明来自易语言资源网,谢谢合作!
' --=====================   [url]www.wodesoft.com[/url]  ================--
读图 ()
子程序名返回值类型公开备 注
读图  
画板1.底图 = HTTP读文件 (http://passport.csdn.net/ShowExPwd.aspx?temp=)
' 本源码来自易语言资源网([url]www.wodesoft.com[/url])
子程序名返回值类型公开备 注
_按钮1_被单击  
读图 ()
子程序名返回值类型公开备 注
_按钮2_被单击  
变量名类 型静态数组备 注
第二点整数型  
i整数型  
a整数型  
第一点整数型  
bin字节集  
RGB文本型 3
R整数型  
G整数型  
' 本源码来自易语言资源网([url]www.wodesoft.com[/url])
第一点 = 到整数 (取文本左边 (到文本 (画板1.取点 (1, 1)), 2))
第二点 = 到整数 (取文本左边 (到文本 (画板1.取点 (5, 10)), 2))
调试输出 (第一点)
调试输出 (第二点)
' 画板2.底图 = 画板1.底图
计次循环首 (52, i)
计次循环首 (153, a)
bin = 到字节集 (画板1.取点 (a, i))
RGB [1] = 取十六进制文本 (bin [3])
R = 取整 (到数值 (bin [1]) ÷ 3)
G = 取整 (到数值 (bin [2]) ÷ 3)
判断 (到整数 (取文本左边 (到文本 (画板1.取点 (a, i)), 2)) = 第二点 到整数 (取文本左边 (到文本 (画板1.取点 (a, i)), 2)) = 第一点 R > 70 G > 30)
画板2.画点 (a, i, #白色 )
画板2.画点 (a, i, #黑色 )

' 调试输出 (到文本 (a) + “-” + 到文本 (i) + “-” + 到文本 (画板1.取点 (a, i)))
计次循环尾 ()
' 调试输出 (i)
计次循环尾 ()
调试输出 (“结束”)
' 画板2.画直线 (1, 25, 150, 25)
去除子点 ()
子程序名返回值类型公开备 注
去除子点  
变量名类 型静态数组备 注
i整数型  
a整数型  
d整数型  
e整数型  
计次循环首 (153, i)
d = 0
计次循环首 (52, a)
判断 (画板2.取点 (i, a) = 0)
d = d + 1


判断 (a = 52)
判断 (d < 3)  ' 把整幅图进行列扫,一列黑色少于3个点则把该列刷白。**不大,要不要无所谓
计次循环首 (53, e)
画板2.画点 (i, e, #白色 )
计次循环尾 ()

' 本源码来自易语言资源网([url]www.wodesoft.com[/url])


计次循环尾 ()
计次循环尾 ()


i支持库列表   支持库注释   
internet互联网支持库
spec特殊功能支持库




上一篇:易语言动态文字效果
下一篇:易语言读取进度循环暂停
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|易源码论坛 ( 123456  

GMT+8, 2018-4-21 08:07 , Processed in 0.068621 second(s), 8 queries , File On.

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表