vbs文件下载小脚本

  • 内容
  • 评论
  • 相关

linux很方便可以直接wget,windows用vbs下载挺方便的。随便在网上找了个小脚本改了下就ok了。

命令行下执行参数url:cscript 1.vbs /url:http://www.baidu.com/img/bdlogo.gif

'执行后下载到当前目录:cscript 1.vbs /url:http://www.baidu.com/img/bdlogo.gif
Set xPost = CreateObject("Microsoft.XMLHTTP")
Set sGet = CreateObject("ADODB.Stream")
Sub DownloadToFile(url, file)
  xPost.Open "GET", url, False
  xPost.Send
  sGet.Type = 1
  sGet.Open
  sGet.Write xPost.responseBody
  sGet.SaveToFile file, 2
  sGet.Close
End Sub
dim url
url = WScript.Arguments.Named.Item("url")
dim fileName
fileName = Right(url, Len(url) - InStrRev(url,"/"))
DownloadToFile url, fileName

摘自 园长MM http://p2j.cn/?p=1339

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注

*

code