验证码识别讲座

蓝天630902

liucqa 发表于 2012-7-21 13:55
一般验证码处理的步骤是：
去边框--反转--转灰度--二值化--OCR

首先，让我上传《text-based-captcha-strengths-and-weaknesses.pdf》里面的一个图片，来看看效果：

蓝天630902

现在，我们对上面的  “quxg4h”   图片进行处理(包括2次去噪)，看看效果如何：

蓝天630902

对于“ｃｇ４ａ９＂图片，不需要额外的降噪，只需要扶扶正，就可以了：

蓝天630902

lzqlaj 发表于 2012-7-21 21:08
很是高深，不太明白。http://myw.1tpan.com/#/tpan这个网站的验证码可以识别吗？

这个不能，
http://www.1tpan.com/tpan/site/diskweb/servlet/kaptcha.png
里面的图片，现在想不出分离的办法

lzqlaj

期待大师能解决。。

引子玄

下一个讲座，如果蓝天大师，能就一些实用、常用的处理技巧，开点讲座，是很所大家盼望的。
比如：
如何让空白网页不导入EXCEL？（免使空白页导入挤占SHEET空间）
如何用VBA自动保存当前网页源文件，然后自动导入EXCEL？（免去菜鸟找URL的苦恼，好让菜鸟不找URL也能搞定网抓）


如何让空白网页不导入EXCEL的案例有现成的（http://support.ufida.com.cn/kbm/kbmedit3.asp?iKbmID=1
到
http://support.ufida.com.cn/kbm/kbmedit3.asp?iKbmID=600
缩小了点URL范围，便于练习操作。

liucqa

支持一下，俺得找个ie8的机器看看

蓝天630902

引子玄 发表于 2012-7-22 09:25
下一个讲座，如果蓝天大师，能就一些实用、常用的处理技巧，开点讲座，是很所大家盼望的。
比如：
如何让 ...

Sub test()
    Dim temp, s
    Dim arr
    Cells.RowHeight = 13.5
    With CreateObject("Microsoft.XMLHTTP")
        For p = 1 To 600
            .Open "GET", "http://support.ufida.com.cn/kbm/kbmedit3.asp?iKbmID=" & p, False
            .Send
            n = Range("a65536").End(xlUp).Row
            temp = StrConv(.responseBody, vbUnicode, &H804)
            If Split(Split(temp, "</font>")(1), ">")(0) <> "错误 '80020009'" Then '这一句应该可以过滤
            temp = Split(temp, "</td>")
            For i = 1 To UBound(temp) - 1 Step 2
                s = Split(temp(i), ">")
                Cells(n + 1, (i + 1) / 2) = Replace(s(UBound(s)), " ", "")
            Next i
            End If
        Next p
    End With
End Sub

引子玄

以前你用IE对象法过滤了空白网页，现在用XMLHTTP对象也过滤了空白网页，那我以后，学着也用QueryTables对象法，过滤空白网页。

liucqa

lzqlaj 发表于 2012-7-22 09:01
期待大师能解决。。

http://club.excelhome.net/thread-897117-1-1.html
学习一下，你自己试试吧。我估计识别率可能在50%作用。