Dim sURL, sPath
 
sURL = InputBox("下载文件的网址是？")
sPath = InputBox("存储的文件名是？")
Set xPost = createObject("Microsoft.XMLHTTP") 
xPost.Open "GET",sURL,0
xPost.Send() 
Set sGet = createObject("ADODB.Stream") 
sGet.Mode = 3 
sGet.Type = 1 
sGet.Open() 
sGet.Write(xPost.responseBody) 
sGet.SaveToFile sPath,2

众所周知：无论是小学还是中学甚至是大学机房都有可能禁止下载，这让我们用着很不爽，而且学校的网速也很快，不用来下载简直就是浪费，现在笔者教你让下载飞一会啊～

PS：学校只有ie,不准下载文件,可以用这个下载文件，加了InputBox，直接双击即可打开，复制完代码后直接创建vbs文件即可。

====================================

推荐一款软件：p2p终结者

如果你在租房，室友经常下载东西占用带宽：如果你是父母，想限制孩子使用时间或者只许他打开某些特定的软件和网页，那么这款软件将会是你绝佳的选择！