Private Sub Picture1_Click()
Dim b() As Byte
x = FreeFile
Inet1.URL = "http://www.jcard.cn/Modules/LoginRandomImage.aspx"
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")
Text1.Text = ""
For i = 5 To 13
tt = ""
For j = 0 To 39
If Picture1.Point(j, i) <> 16777215 Then '
tt = tt & "1"
Else
tt = tt & " "
End If
Next
Text1.Text = Text1.Text & tt & Chr(13) & Chr(10)
Next
End Sub