用vb6的ActiveX控件实现异步下载[2]

private sub command1_click()
    downloader1.begindownload url, savefile
    '请把 url 替代为 http://文件路径
    '请把 savefile 替代为下载到本地文件的路径与名称。
end sub
   
private sub downloader1_downloadcomplete(maxbytes as long, savefile as string)
    msgbox "文件下载完成，保存文件名为：" & savefile, vbinformation or vbokonly, "提示："
end sub

private sub downloader1_downloaderror(savefile as string)
    msgbox "下载发生错误！", vbexclamation or vbokonly, "错误："
end sub

private sub downloader1_downloadprogress(curbytes as long, maxbytes as long, savefile as string)
    '在这里添加进度第的代码
end sub

最后申明：  本文为 airon,softworker 原作，未经本人同意，不作出版，(csdn 除外),但可以转载，转载时请注明作者。  如需在源程序的请mail联系我， vbprg@sohu.com 。希望本文能给广大读者带来帮助。