建立模块:
Sub zxl_download()
Set h = CreateObject("Microsoft.XMLHTTP")
fp = "http://web.zxl.net/zzz/xxx/lll/hello.zip"
h.Open "GET", fp, False
h.send
Set s = CreateObject("ADODB.Stream")
s.Type = 1
s.Open
s.wirte h.Responsebody
s.savetofile "d:\hello.zip", 2
s.Close
End Sub