学校只有ie,不准下载文件,可以用这个下载文件
这是网上查的代码，自己加了InputBox，直接双击即可打开
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
如果你是一个确确实实的懒人，或者你IQ有问题，不会创建vbs文件，可以试试直接下载该文件，直接双击即可。（当然如果不能下载的话例外）
评论 ()
