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