vb-验证码识别

原创

于 2007-08-27 17:30:00 发布 · 1.4k 阅读

标签

#integer #command #function #input #access

这段VB代码实现了一个从指定URL下载验证码图片，并通过识别每个字符的像素来匹配预设字模，从而识别验证码的功能。它首先下载验证码图片到本地，然后遍历图像中的每个像素，将像素值转换为十六进制并与预存的字模进行比较，以找出最接近的匹配值。

Option Base 1
Dim c1(63) As Integer   '存放单个验证码的字模
Private Sub Command1_Click()
    Dim b() As Byte
    Dim xx As Integer   '验证码X坐标的起始位置
    'Y坐标的y1和y2是固定的

    Command1.Enabled = False
    Label1.Caption = ""
    xx = 4
    x = FreeFile
    Inet1.URL = "http://member.cnc.mytv365.net/validateCode/index.asp?200782061408"
    b() = Inet1.OpenURL(, icByteArray)
    Open "c:/tmp.bmp" For Binary Access Write As #x
    Put #x, , b()
    Close #x
    Picture1.Picture = LoadPicture("c:/tmp.bmp")
    For i = 1 To 4
        Label1.Caption = Label1.Caption & getNumber(xx, xx + 6, 3,

最低0.47元/天解锁文章