如何使用Inet控件下载文件，如一个ZIP文件？

Question

Private Sub Download(UrtFile As String, LocalFile As String)
Dim bData() As Byte      '数据变量
Dim intFile As Integer   '可用文件变量
Dim i As Integer
Dim ttt As String
    intFile = FreeFile()      '将 intFile 设置为未使用的文件
    ' OpenURL 方法的结果首先传入 Byte 数组，
    '然后将 Byte 数组保存到磁盘。
    On Error Resume Next
    Kill LocalFile
    On Error GoTo 0
    bData() = Inet1.OpenURL(UrtFile, icByteArray)
    Open LocalFile For Binary Access Write As #intFile
        Put #intFile, , bData()
    Close #intFile
    Exit Sub
err1:
MsgBox "error!"
Resume
End Sub

Answer 1

Private Sub Command1_Click()
Dim b() As Byte
Inet1.CancelInet1.Protocol = icHTTPInet1.URL = Text1.Text  '你想下东东的urlb() = Inet1.OpenURL(, icByteArray)
'建立一个暂存文件來存放取回來的 东东
Open Text2.Text For Binary Access Write As #1
Put #1, , b()
Close #1
End Sub

Answer 2

我明白了，
谢谢但请问怎么给你们加分哪！
我点了管理了，但没有加分选项呀
有Email吗？我们常保持联系，做个朋友好吗？

Answer 3

你是mm么？呵呵。开玩笑啦，mail to :  [email protected]

Answer 4

to :haogui0,and _1_
  thanks for your answer!
MY Email address is :
          [email protected]