本工程需要Microsoft Internet Transfer Control 6.0控件
'-----------------------窗体上一个inet、一个picture、一个command
Private Sub Command1_Click()
Dim Buff() As Byte
Inet1.URL = "https://passport.baidu.com/?verifypic"
Buff() = Inet1.OpenURL(, icByteArray)
p = App.Path + "\temp.jpg"
Open p For Binary As #1
For i = 0 To UBound(Buff)
Put #1, , Buff(i)
Next
Close #1
Picture1.Picture = LoadPicture(p)
Kill p
End Sub
