请教网络编程高手!!!!!!!!!!!!!!!!!!!(本人是新手!!!!)

Question

我试了你的程序，确实有错。
看看我的办法行不行。Private Sub Command1_Click()
Inet1.Execute "http://pimg.163.com/diy/ad/nease_75560.gif"
End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)Dim sourcefile As Integer
Dim g() As Byte
 
Select Case State
Case icResponseCompleted
    sourcefile = FreeFile()
    Open "d:\asp1.gif" For Binary Access Write As #sourcefile
    g = Inet1.GetChunk(1024, icByteArray)
    Do While UBound(g()) > 0
        Put #sourcefile, , g()
        g() = Inet1.GetChunk(1024, icByteArray)
    Loop
    Close #sourcefile
Case Else
    
End Select
End Sub