vb自动识别验证码源代码

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, 11)
        xx = xx + 8
    Next i
    Command1.Enabled = True

End Sub

Function getNumber(x1 As Integer, x2 As Integer, y1 As Integer, y2 As Integer) As Integer
    Dim tmp As Long
    Dim s1 As String
    x = FreeFile
    For i = x1 To x2