ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 37086|回复: 89

[原创] 验证码识别,直接判断

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-3-31 11:31 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:图像处理和GDI
本帖最后由 蓝天630902 于 2012-7-19 06:18 编辑

验证码识别:

验证码识别.rar

73.23 KB, 下载次数: 1942

中国移动通信集团浙江有限公司.rar

25.74 KB, 下载次数: 680

不另存图片,直接判断,中国移动通信集团浙江有限公司

北京教育考试院综合查询系统.rar

32.87 KB, 下载次数: 659

北京教育考试院综合查询系统

辽宁移动行业ADC应用平台.rar

23 KB, 下载次数: 511

辽宁移动行业ADC应用平台,重新校正,识别率大大提高!

41VBA_验证码识别.rar

69.88 KB, 下载次数: 821

对http://club.excelhome.net/forum. ... id%3D110&page=1的识别

中国移动通信集团浙江有限公司.rar

27.49 KB, 下载次数: 571

另一种方法,适合所有不变性、不旋转图形,很厉害的

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-1 06:20 | 显示全部楼层
本帖最后由 蓝天630902 于 2012-4-1 06:22 编辑

现在,稍微快一些了,实战演练一下,一楼的是8位的,
这个是32位真彩色的,效果还不错:

中国移动通信集团浙江有限公司.rar

23.39 KB, 下载次数: 536

TA的精华主题

TA的得分主题

发表于 2012-4-1 01:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
做的很不错,可以参考对比这个贴http://club.excelhome.net/forum. ... id%3D110&page=1

TA的精华主题

TA的得分主题

发表于 2012-4-1 08:41 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 liucqa 于 2012-4-1 08:42 编辑
蓝天630902 发表于 2012-4-1 06:20
现在,稍微快一些了,实战演练一下,一楼的是8位的,
这个是32位真彩色的,效果还不错:

在俺的机器上出来个s就没动静了

Windows7+IE9下不好使,left和top取不到数值

能不能改成把BMP取到窗体里面处理?

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-1 10:25 | 显示全部楼层
liucqa 发表于 2012-4-1 08:41
在俺的机器上出来个s就没动静了

Windows7+IE9下不好使,left和top取不到数值

限制:点击试试看以后,不要动鼠标,耐心等待一下。

主要是,这几句不太好:
        keybd_event Asc("S"), 0, KEYEVENTF_EXTENDEDKEY, 0 '执行图片另存为
        keybd_event Asc("S"), 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
        Do Until FindWindow(vbNullString, "保存图片") > 0 '捕捉“保存图片”窗口
            DoEvents
        Loop
        StartTime = Now()
        Do
            DoEvents
        Loop Until CLng(DateDiff("S", StartTime, Now())) > 1 '延时2秒
        SendKeys "c:\1.bmp", True '输入保存文件名
        SendKeys "%s" '点击保存

现在还没有好方法

点评

好像是IE9的文档与你代码里面对图片的定义不一致,导致IE窗口图片的鼠标位置无法取得,也就不能保存图片了,一般来说,不赞成用sendkeys方法来执行程序,兼容性很差。  发表于 2012-4-1 10:28

TA的精华主题

TA的得分主题

发表于 2012-4-1 10:29 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-1 10:35 | 显示全部楼层
liucqa 发表于 2012-4-1 10:29
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=815805&pid=5596186

参考这个, ...

liucqa   %@^%$^(* 太神气了!

一下子没搞明白,

点评

不急慢慢看,里面垃圾代码也不少。天下代码是一家,你抄我呀我抄他...  发表于 2012-4-1 10:46

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-1 17:29 | 显示全部楼层
重新做一遍:
不过,要先麻烦一下,省得出剪贴板对话框:

在Internet Explorer中选择“工具”-“Internet选项”即可打开IE属性对话框,选择“安全”选项卡中的“自定义级别”,在“安全设置-Internet 区域”设置对话框中找到“允许对剪切板进行编程访问”并设置为“启用”

中国移动通信集团浙江有限公司.rar

30.32 KB, 下载次数: 152

点评

在我的IE9上还是不干活,貌似图片没有copy到剪贴板  发表于 2012-4-1 17:50

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-1 17:46 | 显示全部楼层
liucqa 发表于 2012-4-1 10:29
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=815805&pid=5596186

参考这个, ...

两种方法得到的bmp文件不一样,一个是32位,一个是24位
这个24位的更是没法想象明明是47,他却是48。无法了解。

42 4D 76 0B 00 00 00 00 00 00 36 00 00 00 28 00
00 00 2F 00 00 00 14 00 00 00 01 00 18 00 00 00
00 00 40 0B 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00

42 4D E6 0E 00 00 00 00 00 00 36 00 00 00 28 00
00 00 2F 00 00 00 14 00 00 00 01 00 20 00 00 00
00 00 B0 0E 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-1 18:01 | 显示全部楼层
liucqa  在我的IE9上还是不干活,貌似图片没有copy到剪贴板  发表于 2012-4-1 17:50
在ie8是可以干活的,
ie9?……%#¥@%%&
我晕了
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 08:18 , Processed in 0.046573 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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