1,502
社区成员




Private Sub Command1_Click()
Dim a As New xmlHttp, v() As Byte
a.Open "GET", "http://www.baidu.com/img/baidu_logo.gif", False
a.send
While a.readyState <> 4
DoEvents
Wend
v = a.responseBody
Open "c:\1.jpg" For Binary As #1
Put #1, , v
Close #1
Picture1.Picture = LoadPicture("c:\1.jpg")
End Sub