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, x