VBS简单的文件下载器

Ma Kai posted @ Oct 30, 2010 01:06:16 AM in 胡说 , 2856 阅读

学校只有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文件,可以试试直接下载该文件,直接双击即可。(当然如果不能下载的话例外)

  • 无匹配
  • 无匹配

登录 *


loading captcha image...
(输入验证码)
or Ctrl+Enter