请问怎么用Inet下载文件

来源：百度知道 编辑：UC知道 时间：2024/05/12 17:48:49
请问怎么用inet的Execute 方法来下载文件，我在用VB做浏览器程序，所以我想自己做一个下载文件的。在此先谢谢各位了，如果回答得好有加分

'做成了一个小的过程 添加一个inet控件和一个命令按钮
Option Explicit

Private Function Down(ByVal url As String, ByVal f As String) As Boolean

On Error GoTo ErrH:
Dim errNum As Long

Inet1.url = url
'这里路径不存在时没有处理。
Dim fnum As Long
fnum = FreeFile
Open f For Binary Access Write As #fnum

Inet1.Execute , "Get", , "Range: bytes=0-" & vbCrLf
While Inet1.StillExecuting
DoEvents
Wend
Dim TotalLength As Long
Dim vtData() As Byte

Dim pvalue As Long
TotalLength = Val(Inet1.GetHeader("Content-length"))

vtData = Inet1.GetChunk(1024, icByteArray)

Do While UBound(vtData) > 0
Put #fnum, , vtData

vtData = Inet1.GetChunk(1024, icByteArray)
Loop
Close #fnum

'下载完毕后，重命名文件，并删除可能存在的原文件

Inet1.Execute , "QUIT&q